VB实验数组程序设计.doc

实验三 数组程序设计一、实验目的通过实验掌握vb的数组的概念和使用。二、实验设备1PC机一台；2VB 6.0集成开发环境。三、实验内容及要求1. 编写程序实现方阵的运算示例。点击“生成方阵A、B”按钮，允许用户输入方阵阶数，根据阶数随机产生两个方阵。分别点击运算框中的命令按钮，完成相应的运算。 要求：方阵A、B、C采用动态二维数组存放；三个运算命令按钮使用命令按钮控件数组。2.编写程序实现一个信息输入与查询系统。用户从界面输入人员信息，点击新增按钮将信息加入记录数组；通过界面上的按钮完成人员信息的查询。要求使用记录数组。 五、程序代码草稿六、实验结果要求：将实验调试通过的程序代码考屏；程序运行结果考屏。七、实验中遇到的问题与解决方法或实验收获答案：1.方阵运算 代码：Option Base 1Dim a() As Integer, b() As IntegerDim n As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integern = InputBox(请输入方阵阶数, 阶数)ShowRandomizeReDim 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 PrintNext iPrint 方阵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 PrintNext iEnd SubPrivate 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=AB For i = 1 To n For j = 1 To n Print Format(a(i, j) * b(i, j), 00 ); Next j Print Next iEnd SelectEnd Sub截图：2.职工信息处理代码：Option Base 1Private Type worker num As Long nam As String dep As String mon As LongEnd TypeDim a() As workerDim n As IntegerPrivate Sub Command2_Click()ReDim Preserve a(n + 1) As workern = n + 1a(n).num = Text1.Texta(n).nam = Text2.Texta(n).dep = Text3.Texta(n).mon = Text4.TextText1.Text = Text2.Text = Text3.Text = Text4.Text = End SubPrivate Sub Command3_Click()p = InputBox(请输入要查找人的姓名：, 查找)Dim i As Integer, t As Integert = 0For i = 1 To n If p = a(i).nam Then Text1.Text = a(i).num Text2.Text = a(i).nam Text3.Text = a(i).dep Text4.Text = a(i).mon t = 1 End IfNext iIf t = 0 Then q = MsgBox(抱歉，没有您要查找的人！, 5 + 48, 查找) If q = 4 Then p = InputBox(请输入要查找人的姓名：, 查找) t = 0 For i = 1 To n If p = a(i).nam Then Text1.Text = a(i).num Text2.Text = a(i).nam Text3.Text = a(i).dep Text4.Text = a(i).mon t = 1 End If Next i End IfEnd IfEnd SubPrivate Sub Command1_Click(Index As Integer)Dim i As IntegerSelect Case Index Case 0 Text1.Text = a(1).num Text2.Text = a(1).nam Text3.Text = a(1).dep Text4.Text = a(1).mon Case 1 For i = 1 To n If a(i).num = Text1.Text And i 1 Then Text1.Text = a(i - 1).num Text2.Text = a(i - 1).nam Text3.Text = a(i - 1).dep Text4.Text = a(i - 1).mon Exit For End If Next Case 2 For i = 1 To n If a(i).num = Text1.Text And i n Then Text1.Text = a(i + 1).num Text2.Text = a(i + 1).nam Text3.Text = a(i + 1).dep Text4.Text = a(i + 1).mon Exit For End If Next Case 3 Text1.Text = a(n).num Text2.Text = a(n).nam Text3.Text = a(n).dep Text4.Text = a(n).monEnd SelectEnd Sub截图：初次运行，没有新增职工信息时是没有职工信息的：新增第一个编号为1001的职工信息：新增至最后编号为1004的职工信息：点“第一个”按钮可以显示编号为1001的职工信息：点“后一个”显示编号为1002的职工信息：点“最后一个”显示编号为1004的职工信息：点“前一