用VB编写程序:随机产生三个数,求出其中最小的那个数

问题描述:

用VB编写程序:随机产生三个数,求出其中最小的那个数

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