建Command1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim i, min As Single
i = InputBox("?")
If IsNumeric(i) = False Then Exit Sub
min = Val(i)
Do
i = InputBox("?")
If IsNumeric(i) = False Then Exit Do
If Val(i) < min Then min = Val(i)
Loop
Print "Minimum Value:"; min
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024