Question

VB读入文本框用空格隔开的字符

怎么说呢？嗯...类似与做一个加法计算器吧！在文本框1输入“1 3“，在文本框2就要输出“4”， 更简单说，就是把文本框的数读进VB数组，以空格为数的分隔符号。
俺不要那种读“1 3”进去变“13”，读“2 4”变“24”那种...
唔~我顶你...能逐句说明句子作用么？

Answer 1

先用split函数给数组变量赋值 然后计算
Private Sub Command1_Click()

Dim n() As String
Dim i As Integer
text2 = 0'设置text2初始值
n() = Split(Text1, " ")'使用split函数将text1中用空格分隔的数据分别赋值给变量数组n
For i = 0 To UBound(n())'从数组变量n的第一个到最后一个进行循环
Text2 = Val(Text2) + n(i)'计算过程
Next i
End Sub

Answer 2

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = False
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '按下enter键结果在text2中
splitNumber = Split(Text1.Text, " ", -1, vbTextCompare)
If Text2.Text <> "" Then
Text2.Text = ""
End If
For i = 0 To UBound(splitNumber)
Text2.Text = Val(splitNumber(i)) + Val(Text2.Text)
Next i
End If
End Sub