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

答案:2 悬赏:80 手机版

解决时间 2021-02-13 11:33

提问者网友：呐年旧曙光
2021-02-13 02:50

最佳答案

五星知识达人网友：迷人又混蛋
2021-02-13 03:22

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”

全部回答

1楼网友：轻雾山林
2021-02-13 04:13

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息