VB字符串切取,并计算(求助)

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:27:15
如: 12*23*21+32*43*432+400*121*21*2 这个字符串我输入text文本框后,回车能计算出值来,请哪位高手帮帮忙.谢谢了

s="12*23*21+32*43*432+400*121*21*2"
a=split(s,"+")
sum=0
for i = 0 to ubound(a)
arr=split(a(i),"*")
k=1
for j=0 to ubound(arr)
k=k*arr(j)
next j
s=sum+k
next i
msgbox sum

在工具框中添加Microsoft Script Control 1.0控件；
在窗体上创建一个控件ScriptControl1；
在窗体上创建一个文本框Textbox1；
在Textbox1的keypress事件中添加代码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox Me.ScriptControl1.Eval(Me.Text1.Text)
End If
End Sub
运行程序，将12*23*21+32*43*432+400*121*21*2输入文本框并回车。
或者将各部分乘积转为Double类型（因为数值较大），然后参照楼上进行计算。