vb多数字相加

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:46:37
想让VB的text1.text里面输入这样一组数字,让它们想加的结果显示在text2.text里面!
text1.text:74+45+65+85+35+12
text2.text:316(存储结果)
随便说一下,如果自己再加上括号后面再除或乘以一个数,那又怎么办?
谢谢!

建一个Text1,Text2,Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim spt
Private Sub Command1_Click()
Text2.Text = spt.Eval(Text1.Text)
End Sub

Private Sub Form_Load()
Set spt = CreateObject("scriptcontrol")
spt.Language = "vbscript"
End Sub