vb程序输出最小数不正确，如何限制输入空或者非数字呢？请高手指教

来源：百度知道 编辑：UC知道 时间：2024/06/04 05:41:53
Private Sub Command1_Click()
Dim mark(1 To 5) As Integer
Dim i%, max%, min%
For i = 1 To 5
mark(i) = InputBox("请输入5个数，系统将进行比较", "提示")
Print "你输入的数是"; mark(i)
If mark(i) >= max Then
max = mark(i)
End If
If mark(i) <= min Then
min = mark(i)
End If
Next i
MsgBox "最大数是" & max & " 最小数是" & min & "", 0, "提示"
End Sub

代码如下：
Private Sub form_click()
Dim var(1 To 5) As Integer
Dim max%
Dim min%
For i = 1 To 5
Data = InputBox("输入一个整数")
If IsNumeric(Data) Then
var(i) = Val(Data)
Print var(i)
Else
MsgBox ("数据类型不对，请输入整数")
i = i - 1
End If
Next i
max = var(1)
min = var(1)
For i = 2 To 5
If max < var(i) Then
max = var(i)
ElseIf min > var(i) Then
min = var(i)
End If
Next i
Print "max="; max
Print "min="; min
End Sub
如果希望输入的数据可以是小数，则把数据改成单精度single型的。自己看着改就成了。

用isnumeric