关于vb计算公式

发布网友发布时间：2022-04-25 23:08

共3个回答

热心网友时间：2022-06-18 13:18

如果想直接查看结果：msgbox 12+4*(20-(3*4+3)-1)/2
如果是变化的计算式：那需要先创建控件，为了使用Eval函数:
Set Calculater=CreateObject("MSScriptControl.ScriptControl")
Calculater.language="VBScript"
msgbox Calculater.Eval(Text1.text)

热心网友时间：2022-06-18 13:18

直接把式子放在输出的地方不就可以了吗？
要再加层括号。

热心网友时间：2022-06-18 13:19

调用脚本？？在VB里不是可以直接写出你这个式子得出结论吗
Private Sub Form_DblClick()
Print Str(12 + 4 * (20 - (3 * 4 + 3) - 1) / 2)
End Sub追问如果表达式是字符串呢？例如 Text1.Text = "12+4*(20-(3*4+3)-1)/2"，现在我想计算它的结果怎么做呢？

追答这个就有点复杂了，需要逐一提取运算符，再按优先级来计算