VB试题随机产生20个50-108(包括50和108)的整数赋给一个一维数组,求其最大值,

VB试题随机产生20个50-108(包括50和108)的整数赋给一个一维数组,求其最大值,

Private Sub Command1_Click()
Dim i%, n%, m%
Dim a() As Integer
n = 10
For i = 1 To n
a(i) = 50 + Rnd * (108 - 50 + 1)
Next
m = 0
For i = 1 To n
If m < a(i) Then m = a(i)
Next
Print m

End Sub追问运行的时候不对啊追答在n=10下面加一句 redim a(n) as integer

Private Sub Form_Load()
Label1.Caption = ""
Dim arr(1 To 20) As Integer
Dim max As Integer
For i = 1 To 20
arr(i) = Int(Rnd() * 58 + 50)
Label1.Caption = arr(i) & "_" & Label1.Caption
Next
For i = 1 To 20 '这是找最大值的简单程序
If max < arr(i) Then
max = arr(i)
End If
Next
Label1.Caption = "最大数值为：" & max & " " & vbCrLf & "原始数据为：" & Label1.Caption & vbCrLf & "排序后为："
For i = 2 To 20
temp = arr(i)
j = i - 1
Do Until temp < arr(j)
arr(j + 1) = arr(j)
j = j - 1
If j = 0 Then
Exit Do
End If
Loop
arr(j + 1) = temp
Next i

For i = 1 To 20
Label1.Caption = Label1.Caption & arr(i) & " - "
Next i
End Sub

Sub Test()
    Dim arr(19) As Integer
    For i = LBound(arr) To UBound(arr)
        arr(i) = Int((59 * Rnd)) + 50
        arrstr = arrstr & " " & arr(i)
        If arr(i) > maxNum Then maxNum = arr(i)
    Next
    MsgBox arrstr & Chr(10) & " Max=" & maxNum
End Sub

Private Sub Command1_Click()
  Dim a(20) As Integer
  Randomize
  Max = -1
  For i = 1 To 20
    a(i) = 50 + Int(Rnd * 59)
    Print a(i);
    If i Mod 10 = 0 Then Print
    If Max < a(i) Then Max = a(i)
  Next i
  Print "Max="; Max
  Print
End Sub