Private Sub Form_Click()
Dim n(5) As Integer,nMax As Integer,nMin As Integer,i As Integer
Randomize
Print "六个数分别是：";
For i = 0 To 5
n(i) = Int(Rnd * 100)
Print n(i);
Next
Print
nMax = n(0)
nMin = n(0)
For i = 1 To 5
If n(i) > nMax Then nMax = n(i)
If n(i) < nMin Then nMin = n(i)
Next
Print "最大值是：" & nMax
Print "最小值是：" & nMin
End Sub