用户连续输入n个值，直到输入非数值数据为止。最后输出期中最小的一个数。

建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