Question

VB中如何让几十个TEXTBOX中只能输入数字,小数点，进行计算用，

输其他符号全为0
不想一条条判断，太多了，想求一个数组的办法，给textbox名定义成一个，然后一起判断，谢谢了，
全为空值，呵，

Answer 1

用控件数组，如果是点击按钮就判断的话就用for循环来判断，例如先在窗体上放置一个Text1，然后复制它再粘贴到同一个窗体上，当提示是否创建控件数组时选择是，再复制三次，这样窗体上就有5个文本框了，text1就变成了Text1(0)，Text1(1)，Text1(2)，Text1(3)，Text1(4)，添加一个确定按钮，写代码如下来判断文本框中的内容是否为空，如果为空的话就给这个文本框获取焦点并设置其背景色为红色，代码如下：
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 4
If Text1(i).Text = "" Then
Text1(i).BackColor = vbRed
Text1(i).SetFocus
End If
Next i
End Sub

希望对你有用！

Answer 2

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Index
Case 0
Select Case KeyAscii
Case 8
Case 46 '小数点
'If InStr(Text1(Index).Text, ".") <> 0 Then KeyAscii = 0 '可以输入数字和一个小数点
KeyAscii = 0
Case 47 To 57 '数字
Case Else
KeyAscii = 0
MsgBox "只能输入数字!请重新输入!", 16, "格式错误"
Text1(0).SetFocus
End Select
End Select

Answer 3

先将你计算的数据项以数组形式追加到画面上。
可以捕捉每一个数组控件的KeyDown事件。控制非数字和单点之外的
KeyCode固定清0（保留回车，消除案件）.如果鼠标贴入的时候，直接
在失去光标的地方追加：
If Val（文本内容）=0 Then 文本 = 0
或者Isnumeric判断也可以

Answer 4

用控件数组，只写几行代码搞定