UC知道怎么判断这个数组，是纯数字的
来源：百度知道 编辑：UC知道 时间：2024/06/04 19:38:20
有如下代码，我的单击时间是，把text1.text中的字符，付给一个数组，再利用这个数组下标判断，每个字符是否都是数字，如果是数字的话，form2.show
如果不是的话，就msgbox一个对话框。我自己是这样写的，然后我运行，说下标越界。如何解决，我的是不是有错误，请高手直接，本人初学者。
Private Sub Label4_Click()
Dim a() As Integer
Dim l As Integer, s As String
s = Text1.Text
l = Len(s)
If l < 1 Then Exit Sub
ReDim a(1 To l)
For i = 1 To l
a(i) = Val(Mid(s, i, 1))
Next i
For b = 1 To 10 Step 1
If Asc(a(b)) >= 48 And Asc(a(b)) <= 57 Then
Form1.Hide
Form2.Show
Else
MsgBox ("ÇëÊäÈëÕýÈ·µÄQQºÅÂë"), , "QQÌáʾ"
End If
Next b
End Sub
如果不是的话，就msgbox一个对话框。我自己是这样写的，然后我运行，说下标越界。如何解决，我的是不是有错误，请高手直接，本人初学者。
Private Sub Label4_Click()
Dim a() As Integer
Dim l As Integer, s As String
s = Text1.Text
l = Len(s)
If l < 1 Then Exit Sub
ReDim a(1 To l)
For i = 1 To l
a(i) = Val(Mid(s, i, 1))
Next i
For b = 1 To 10 Step 1
If Asc(a(b)) >= 48 And Asc(a(b)) <= 57 Then
Form1.Hide
Form2.Show
Else
MsgBox ("ÇëÊäÈëÕýÈ·µÄQQºÅÂë"), , "QQÌáʾ"
End If
Next b
End Sub
问题出在For b = 1 To 10 Step 1上，应该是For b = 1 To l，后面的Step 1可以省略。另外你的判断方法不对，应该这样写：
For b = 1 To l
If Asc(a(b)) < 48 or Asc(a(b)) > 57 Then
MsgBox ("ÇëÊäÈëÕýÈ·µÄQQºÅÂë"), , "QQÌáʾ"
exit sub
End If
Next b
Form1.Hide
Form2.Show
End Sub