用vb设计一个简单计算器要求输入的表达式在一个文本框中显示出来，那个字符串的各元素怎么换成表达式啊，

答案:3 悬赏:20 手机版

解决时间 2021-02-20 16:07

提问者网友：斑駁影
2021-02-19 19:55

最佳答案

五星知识达人网友：第幾種人
2021-02-19 21:12

Dim a As String, b As Double
Dim Scr As Object
a = "5*10+2*5"
Set Scr = CreateObject("MSScriptControl.ScriptControl")
Scr.Language = "vbscript"
b = Scr.Eval(a)

全部回答

1楼网友：一秋
2021-02-19 23:56

引用前面大神的
b = Scr.Eval(a)
改成
b=scr.eval(textbox1.text)
'不知MSScriptControl.ScriptControl是否检查表达式的语法。估计多半会的。

2楼网友：毛毛
2021-02-19 22:45

完善
crazy0qwer|当前分类：18 级排名：235
的回答！
Private Sub Form_Click()
Dim a As String, b As Double
Dim Scr As Object
a = "5*(10+2)*5-3^2"
Set Scr = CreateObject("MSScriptControl.ScriptControl")
Scr.Language = "vbscript"
b = Scr.Eval(a)
Print a, b
End Sub

我要举报

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

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