Question

这个程序运行时出现缺少数组是怎么回事？Private Sub Text1_keypress(KeyAscii As Integer)

Private Sub Text1_keypress(KeyAscii As Integer)
Dim wellnumeric As Boolean, IsNumeric As Boolean, n!
n = Val(Text1.Text)
m = Text1.Text
If KeyAscii = 13 Then
If IsNumeric(m) = False Then
Call MsgBox("代码4，不是数字", vbInformation, "提示")
ElseIf wellnumeric(n) = False Then
Call MsgBox("代码3，是数字但不是整数", vbInformation, "提示")
ElseIf n < 10 Then
Call MsgBox("代码2，是小于10的整数", vbInformation, "提示")
ElseIf n > 99 Then
Call MsgBox("代码1，是大于99的整数", vbInformation, "提示")
Else
Call MsgBox("代码0，是两位整数", vbInformation, "提示")
End If
End If
End Sub

Answer 1

If IsNumeric(m) = False Then
ElseIf wellnumeric(n)

的(m)(n) 都去掉
另外IsNumeric 是个函数的名字，不能作为变量的名字
不再回复

Answer 2

文本框的按键事件。 index表示text1这个控件数组的索引号。 keyAscii是按键的TextBox接收按键刚按下未释放时的事情 当用户按下或松开键盘上的某个,hWWupj