Private Sub Form_Click()
Dim i, min, n
Cls
For i = 1 To 3
Randomize
n = Int(Rnd * 100) + 1
Print n,
If i = 1 Then
min = n
Else
If min > n Then min = n
End If
Next
Print vbNewLine & "最小值："; min
End Sub