VB数组程序设计.docVIP

实验三 数组程序设计 一、实验目的 三、实验内容及要求 1. 编写程序实现方阵的运算示例。点击“生成方阵A、B”按钮，允许用户输入方阵阶数，根据阶数随机产生两个方阵。分别点击运算框中的命令按钮，完成相应的运算。 要求：方阵A、B、C采用动态二维数组存放；三个运算命令按钮使用命令按钮控件数组。 2.编写程序实现一个信息输入与查询系统。用户从界面输入人员信息，点击新增按钮将信息加入记录数组；通过界面上的按钮完成人员信息的查询。要求使用记录数组。 四、程序代码草稿 五、实验结果 （1）方阵运算最终代码： Dim A() As Integer Dim B() As Integer Dim C() As Integer Dim x As Integer Dim j As Integer Dim i As Integer Private Sub Command1_Click() x = InputBox(请输入方阵阶数, 阶数) Show Randomize ReDim A(x, x) ReDim B(x, x) Print 方阵A: For j = 1 To x For i = 1 To x A(j, i) = Int(10 * Rnd) Print Format(A(j, i), 0 ); ; Next i Print Next j Print Print 方阵B: For j = 1 To x For i = 1 To x B(j, i) = Int(10 * Rnd) Print Format(B(j, i), 0 ); ; Next i Print Next j End Sub Private Sub Command2_Click(Index As Integer) Show Select Case Index Case 0: Print Print 方阵A: For j = 1 To x For i = 1 To x Print Format(A(i, j), 0 ); ; Next i Print Next j Print Print 方阵B: For j = 1 To x For i = 1 To x Print Format(B(i, j), 0 ); ; Next i Print Next j Case 1: Print Print C=A+B Randomize ReDim C(x, x) For j = 1 To x For i = 1 To x C(j, i) = A(j, i) + B(j, i) Print Format(C(j, i), 0 ); ; Next i Print Next j Case 2: Print Print C=A*B Randomize ReDim C(x, x) For j = 1 To x For i = 1 To x C(j, i) = A(j, i) * B(j, i) Print Format(C(j, i), 0 ); ; Next i Print Next j End Select End Sub 程序运行结果考屏：  （2）输入与查询系统最终代码： Dim M() As Member Dim x As Integer Private Sub Command1_Click(Index As Integer) Dim i As Integer Dim j As Integer Select Case Index Case 0 Text1.Text = M(1).no Text2.Text = M(1).name Text3.Text = M(1).class Text4.Text = M(1).pay Case 1 For i = 1 To x If M(i).no = Text1.Text And i 1 Then Text1.Text = M(i - 1).no Text2.Text = M(i - 1).name Text3.Text = M(i - 1).class Text4.Text = M(i - 1).pay Exit For End If Next Case 2 For j = 1 To x If M(j).no = Text1.Text And j x Then Text1.Text = M(j + 1).no Text2.Text = M(j + 1).name Text3.Text = M(j + 1).class Text4.Tex