vb字符串相加

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:40:53
控件：text1,text2,text3,command1
在text1里面输入一组数字:12 85 74 69 73 91 65 （共七个数）
在text2里面随便输入一些固定的字符串:第一个数+第二个数+第五个数 ……让它们相加. (固定的字符串:第一个数,第二个数,第三个数,第四个数,第五个数,第六个数,第七个数)
怎样按command1在text3里面得到它们相加的结果。
{"第一个数"就是指text1里面的12
"第二个数"就是指text1里面的85
"第三个数"就是指text1里面的74
"第四个数"就是指text1里面的69……}
比如:我在text2里面输入:第一个数+第二个数 它在text3里面显示器12+85=97
谢谢各位大侠!

这个问题用vb.net比较简单.......

在text1里输入12 85 74 69 73 91 65
在text2里输入第一个数+第二个数

我这个方法的前提是：
text1里的每个数必需由空格分隔
text2里的文本要用+分隔

----------------------------------------------------------
Dim t1() As String
Dim t2() As String
Dim t1l, i As Integer
Dim temp
Dim r As Integer, rs As String
'用Split函数分隔用户的输入
t1 = Split(Text1.Text, " ")
t2 = Split(Text2.Text, "+")
'获取数组t1中一共有几个元素
For Each temp In t1
t1l = t1l + 1
Next
'直接开始相加
For Each temp In t2
r = r + t1(i)
rs = rs & t1(i) & "+"
i = i + 1
Next
'显示结果
rs = Left(rs, Len(rs) - 1)
rs = rs & "=" & r
Text3.Text = rs
----------------------------------------------------------
代码就是这样，缺点就是不是说在text2中输入第一个数+第二个数才可以加，输入a+b也可以加

完全按照你的要求。控件：text1,text2,text3,command1
代码如下。
＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Dim a,