用vb设计一个简单的计算器，上面是文本框可以输入算式，点击计算可以

用vb设计一个简单的计算器，上面是文本框可以输入算式，点击计算可以

Function CalcStr(StrNum As String) As Double
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(StrNum)
End Function
Private Sub Command1_Click()
text1=CalcStr(Text1.Text)
End If追问

追答
这个是单独的！不用放在text1里面！！！好好好学学吧！！
追问但它会自动分开啊，追答Function CalcStr(StrNum As String) As Double
Set MSSC = CreateObject("MSScriptControl.ScriptControl")
MSSC.Language = "VBScript"
CalcStr = MSSC.Eval(StrNum)
End Function
Private Sub Command1_Click()
Text1 = Text1 & "=" & CalcStr(Text1.Text)
End Sub
在form中添加text1和一个按钮这样运行就好了！！追问我知道啊，但是运行，会弹“发现二义性的名称:command1_click”

这个需求有点特殊，恐怕得一段时间追问没关系，我可以等你追答你在哪里等我追问就这啊