For i = 1 To 10
a(i) = InputBox("请输入整数")
If Not IsNumeric(a(i)) Then
MsgBox "输入数据无效,请重新输入,请输入第" & n & "个数"
End If
a(i)是定义的数组,
Dim a(1 To 10) As Integer
Dim i, s As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入整数")
If Not IsNumeric(a(i)) Then
MsgBox "输入数据无效,请重新输入,请输入第" & n & "个数"
End If
Next i
Dim a(1 To 10) As Integer
Dim i, s As Integer
Private Sub Command1_Click()
For i = 1 To 10
a(i) = InputBox("请输入整数")
If Not IsNumeric(a(i)) Then
MsgBox "输入数据无效,请重新输入,请输入第" & n & "个数"
End If
是这样的,那个a(i)是定义的数组,和那个单纯的mm不一样。
我是新手,不太懂,谢谢你了。能加qq吗?245617122
楼下那位写的应该符合你要求了吧?
a(i)=inputbox("请输入数字","这是标题","0")
do until isnumeric(a(i)) = true or len(a(i))=0
msgbox "请输入数字,谢谢合作",16,"警告"
a(i)=inputbox("请输入数字","这是标题")
loop
msgbox "您输入的数字是"&a(i),64,"谢谢合作" !