Question

vb 随机产生10个100-200之间的数 求最大值

Answer 1

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