Question

vb 文本框内的字符串只能输入数字和空格

For i = 0 To x ’x是从x = UBound(a) 得来的
If Not IsNumeric(a(i)) Then ‘a(i)是从a = Split(Text1.Text, " ") 得来的，定义为String
MsgBox "数据输入框内只能输入数字！"
Exit Sub
Else
Next i
这是我写的一段代码，我是超级菜鸟，别笑话我，但是应该能明白我的意思，请求正确的写法，并标明详细注释
详细说一下我想要的效果吧
总得来说，事项text1内输入的只能是数字和空格，其他的一概不可以；

之前的代码是我的一个想法，就是判断a(i)中那个不是数字，如果有，那就MsgBox ，如果没有，那就运行后面的代码，我把else改成end if后，只能识别第一个元素，后面的就不识别了；如：输入q 1 2 3后，弹出MsgBox，而输入1 2 3 q后弹出错误提示：实时错误13，类型不匹配

若以下回答无法解决问题，邀请你更新回答

Answer 1

Else那边应该写End If吧

追问

更改完成后，运行时提示下标越界

追答

VB好久不用，具体的语言我记不清了，但是我觉得思路应该是这样的

在 KeyPress 事件里，你判断按键的Asicc值，如果是数字，就通过，如果不是数字，就不通过

具体的写法。。。唔，我 记不清了

追问

你这个说法我在别的答案里看过，原理我大概了解，但是我输入的不是整数，而是小数，如何判断Asicc值啊，我也想过变通一下，通过err来处理，因为只要text1内有非数字字符后，在Val (a(i)) 时就会出错，但是始终用不好

追答

那你就直接把文本框里的字符往数字类型上转，出错了就告诉用户输的不是数字呗

追问

我也是这么想的，但是我用不好，我是这么用的（先说好，不准笑话我）
on error goto edit6

其他代码，与本事件无关

edit6:
MsgBox "请正确填写数据，数据输入框内只能输入数字！"
exit sub
运行后提示“编译错误，标签未定义“