新Visual Basic程序设计与实训 教学课件 苏玉雄 电子教案 第7章.pptVIP

案例7-6 案例7-6：利用数组参数传递的方法，建立一个输出一组数的Sub过程ShowArray，然后在窗体上输出两组数据。 【案例分析】：在ShowArray过程中利用UBound函数可以获得数组的上界。利用一个for循环就可以输出数组的每一个元素。 【代码分析】： Sub ShowArray(a() As Integer) Dim i, n As Integer n = UBound(a)　　　‘获取数组a的上界 For i = 0 To n Print a(i); If (i Mod 10 = 9) Then　　　‘如果输出元素达到10则换行 Print End If Next i End Sub 案例7-6 【代码分析】： Private Sub Command1_Click() Dim x(9) As Integer Dim y(8) As Integer x(0) = 10: x(1) = 23:x(2) = 34: x(3) = 12　　　‘初始化数组x的元素 x(4) = 5: x(5) = 67: x(6) = 76: x(7) = 84:x(8) = 123: x(9) = 55 y(0) = 121: y(1) = 32:y(2) = 20: y(3) = 45 　‘初始化数组y的元素 y(4) = 42: y(5) = 28: y(6) = 35: y(7) = 78y(8) = 124 ShowArray x ‘调用过程ShowArray显示数组x的值 ShowArray y ‘调用过程ShowArray显示数组y的值 End Sub 课堂练习7-4 课堂练习7-4：用户在文本框中输入想要产生的随机数的个数后按下“生成随机数”按钮后将生成指定数目的随机数并在Label2中显示出来。再按下“最大数按钮”将在Label4中显示随机数中的最大值。 【案例分析】：通过“打擂法”可以找出一组数中的最大值。随机数的生成则可以通过Rnd()函数来完成。 【代码分析】： Dim x() As Integer Sub GenerateNums(n As Integer) Dim i As Integer ReDim x(n) As Integer ‘重新设置数组x的上界 Randomize Label2.Caption = For i = 1 To n x(i) = Rnd() * 1000 ‘生成随机并给数组元素赋值 Label2.Caption = Label2.Caption x(i) If (i Mod 6 = 0) Then ‘当元素输出满6个就换行 Label2.Caption = Label2.Caption vbCrLf End If Next i End Sub 返回 课堂练习7-4 【代码分析】： Function Max(a() As Integer) As Integer Dim n, i, m As Integer n = UBound(a) m = a(0) For i = 1 To n If (a(i) m) Then m = a(i) End If Next i Max = m End Function Private Sub Command1_Click() GenerateNums (CInt(Text1.Text)) End Sub Private Sub Command2_Click() Label4.Caption = Max(x) End Sub 返回 课堂练习7-5 课堂练习7-4：设计一函数AverageOfArray可以计算整型数组的平均值。 【案例分析】：通过累加操作可以计算出整型数组的元素的和，再除以数组的元素个数就可以获得数组中数据的平均值。 【代码分析】： Dim x() As Integer Sub GenerateArray(n As Integer) Dim i As Integer ReDim x(n) As Integer ‘重新设置数组x的上界 Randomize Label2.Caption = For i = 1 To n x(i) =