VB实验数组程序设计.doc

实验三 数组程序设计 一、实验目的 三、实验内容及要求 1. 编写程序实现方阵的运算示例。点击“生成方阵A、B”按钮，允许用户输入方阵阶数，根据阶数随机产生两个方阵。分别点击运算框中的命令按钮，完成相应的运算。 要求：方阵A、B、C采用动态二维数组存放；三个运算命令按钮使用命令按钮控件数组。 2.编写程序实现一个信息输入与查询系统。用户从界面输入人员信息，点击新增按钮将信息加入记录数组；通过界面上的按钮完成人员信息的查询。要求使用记录数组。 五、程序代码草稿 六、实验结果 要求：将实验调试通过的程序代码考屏；程序运行结果考屏。 七、实验中遇到的问题与解决方法或实验收获 答案： 1.方阵运算 代码： Option Base 1 Dim a() As Integer, b() As Integer Dim n As Integer Private Sub Command1_Click() Dim i As Integer, j As Integer n = InputBox(请输入方阵阶数, 阶数) Show Randomize ReDim a(n, n) Print 方阵A： For i = 1 To n For j = 1 To n a(i, j) = Int(9 * Rnd + 1) Print a(i, j); Next j Print Next i Print 方阵B： ReDim b(n, n) For i = 1 To n For j = 1 To n b(i, j) = Int(Rnd * 9 + 1) Print b(i, j); Next j Print Next i End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 Print Print 方阵A： For i = 1 To n For j = 1 To n Print a(j, i); Next j Print Next i Print 方阵B： For i = 1 To n For j = 1 To n Print a(j, i); Next j Print Next i Case 1 Print Print C=A+B For i = 1 To n For j = 1 To n Print Format(a(i, j) + b(i, j), 00 ); Next j Print Next i Case 2 Print Print C=A×B For i = 1 To n For j = 1 To n Print Format(a(i, j) * b(i, j), 00 ); Next j Print Next i End Select End Sub 截图： 2.职工信息处理 代码： Option Base 1 Private Type worker num As Long nam As String dep As String mon As Long End Type Dim a() As worker Dim n As Integer Private Sub Command2_Click() ReDim Preserve a(n + 1) As worker n = n + 1 a(n).num = Text1.Text a(n).nam = Text2.Text a(n).dep = Text3.Text a(n).mon = Text4.Text Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub Pr