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

显示全部楼层 · 2016-9-14 08:33:28

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

千问 · 2016-9-14 08:33:28

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

千问 · 2016-9-14 08:33:28

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = FalseEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If K