VisualBasic程序设计与实训课件作者苏玉雄电子教案第7章节.pptVIP

课堂练习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 I