作业帮 > 综合 > 作业

VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 23:50:37
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
楼主看看这个:Private Sub Command1_Click()
   Dim aNum(19) As Long, V As Long
   Dim nMax As Long, i As Long
    
   Randomize
   Me.Cls: nMax = 0
   Print "这20个数是:"
   For i = 0 To 19         '产生10个数据
      V = 1 + 99 * Rnd()   '1到100
      aNum(i) = V
      Print V;
      If (V > nMax) Then nMax = V
      If (i Mod 10 = 9) Then Print
   Next
   Print
   Print "最大数是:" & nMax
End Sub