实验4-数组应用.docVIP

实 验 报 告 课 程 VB程序设计 实验项目 4．数组应用 成 绩 专业班级 石工2012级9班 指导教师 岳静 姓 名 毛飞翔 学 号 1201010934 实验日期 2013-4-24 [实验目的] （1）掌握一维数组（静态、动态）定义及使用 （2）掌握二维数组（静态、动态）定义及使用 （3）掌握“控件数组”的使用 （4）掌握数组相关算法 [实验内容] 【4-1】程序界面如图4-1所示，程序运行后，在四个文本框中各输入一个整数，然后单击命令按钮，即可求出这四个数的平均值，并在窗体上显示出来，要求用数组完成。 图4-1 代码 Private Sub Command1_Click() Dim a(4) As Long a(1) = Val(Text1(0)) a(2) = Val(Text1(1)) a(3) = Val(Text1(2)) a(4) = Val(Text1(3)) i = (a(1) + a(2) + a(3) + a(4)) / 4 Print 平均值是; :; i End Sub 实验结果 【4-2】参考图4-2，设计手机拨号及显示功能。要求：用控件数组完成。 图4-2 代码Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text + Command1(Index).Caption End Sub Private Sub Command2_Click() Text1 = Left(Text1, Len(Text1) - 1) End Sub 实验结果 【实验4-3】在窗体上有一个命令按钮（名称为Command1，标题为“计算并输出”）和两个文本框（名称分别为Text1和Text2），如图所示。程序运行后，单击命令按钮，随机产生-100~100之间的10个随机整数，放入数组Arr中，统计数组中所有正数之和与负数之和，并分别在两个文本框中显示出来。 图4-3 代码Option Base 1 Private Sub Command1_Click() Dim a(10) As Long For i = 1 To 10 a(i) = Int(201 * Rnd - 100) If a(i) 0 Then s = s + a(i) Else j = j + a(i) End If Next i Text1 = s Text2 = j End Sub 实验结果 【实验4-4】在窗体中有两个单选按钮，名称分别为Op1和Op2，标题分别为“前15项”、“前25项”，还有一个名字为C1 ，标题为“Fibonacci数列”的命令按钮，程序功能是，选择某一单选按钮，则计算Fibonacci数列的前15或25项值，并在窗体中按每行5个数据输出。如下图所示： 注：Fibonacci数列的第1项和第2项值均为1，从第3项起，每一项为前两项之和。（可用动态数组完成） 图4-4 代码 Option Base 1 Private Sub Command1_Click() Dim a() As Long, n As Integer If Option1.Value = True Then n = 15 Else n = 25 End If ReDim a(n) As Long a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) Next i For j = 1 To n Print a(j); If j Mod 5 = 0 Then Print End If Next j End Sub 实验结果 【实验4-5】在窗体上建立一个名为Op1的单选按钮数组，含有三个单选按钮，其标题分别为“10！”、“11！”、“12！”，Index属性分别为0、1、2；再画一个名为C1的按钮，其标题为“计算”，再画一个名为Text1的文本框，如图4-5所示： 图4-5 程序功能是：选定一个单选按钮并单击“计算”按钮后，可计算出相应的阶乘值，在Text1中显示出结果。 代码 Private Sub Command1_Click() If Op1(0).Value = True Then n = 10 ElseIf Op1(1).Value = True Then n = 11 ElseIf Op1(2).Value = True Then n = 12 End If s = 1 For i = 1 To n s = s * i Next i Text1 = s End Sub 实验结果 【实验4-6】其窗体上