7,785
社区成员




Dim a(99)
randomize
For i = 0 To 99
a(i) = int(rnd * 900 + 100)
Next
max = a(0)
min = a(0)
For i=1 To 99
If max < a(i) Then
max = a(i)
End If
If min > a(i) Then
min = a(i)
End If
Next
msgbox "最大值:" & max & " 最小值:" & min