如题所述
Option Explicit
Private Sub Form_Load()
Randomize
Me.AutoRedraw = True
Dim RandNumber(0 To 9) As Long '十个随机数
Dim MaxNumber As Long '最大数
Dim i As Long
For i = 0 To 9 '循环随机数
RandNumber(i) = Int((200 - 100 + 1) * Rnd + 100) '生成随机数
Print RandNumber(i) '打印生成的随机数
If i > 0 Then '不是第一个随机数
If RandNumber(i) > MaxNumber Then '生成的随机数大于最大的
MaxNumber = RandNumber(i) '更新最大数
End If
Else '是第一个随机数
MaxNumber = RandNumber(i) '设置最大数
End If
Next i
Print "其中最大数为:" & MaxNumber
End Sub
Private Sub Form_Load()
Randomize
Me.AutoRedraw = True
Dim RandNumber(0 To 9) As Long '十个随机数
Dim MaxNumber As Long '最大数
Dim i As Long
For i = 0 To 9 '循环随机数
RandNumber(i) = Int((200 - 100 + 1) * Rnd + 100) '生成随机数
Print RandNumber(i) '打印生成的随机数
If i > 0 Then '不是第一个随机数
If RandNumber(i) > MaxNumber Then '生成的随机数大于最大的
MaxNumber = RandNumber(i) '更新最大数
End If
Else '是第一个随机数
MaxNumber = RandNumber(i) '设置最大数
End If
Next i
Print "其中最大数为:" & MaxNumber
End Sub
温馨提示:答案为网友推荐,仅供参考