关于vb计算公式

Posted 2023-04-09

对于复杂的四则运算算式，如：12+4*(20-(3*4+3)-1)/2，除了调用脚本的方式进行计算，怎样能用什么其他的方式快速、准确的得出结果？谢谢！

参考技术A 如果想直接查看结果：msgbox 12+4*(20-(3*4+3)-1)/2
如果是变化的计算式：那需要先创建控件，为了使用Eval函数:
Set Calculater=CreateObject("MSScriptControl.ScriptControl")
Calculater.language="VBScript"
msgbox Calculater.Eval(Text1.text) 参考技术B 直接把式子放在输出的地方不就可以了吗？
要再加层括号。追问

能说得具体点吗？

追答

...
msgbox 12+4*(20-(3*4+3)-1)/2

追问

如果表达式是字符串呢？例如 Text1.Text = "12+4*(20-(3*4+3)-1)/2"

追答

那就只能用脚本了。
dim fso as new scripting.filesystemobject
dim a as variant
a=fso.createtextfile("xxxxx.vbs")
a.writeline "msgbox " & text1.text
a.close

本回答被提问者采纳 参考技术C 调用脚本？？在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"，现在我想计算它的结果怎么做呢？

追答

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

求做一个最简单的vb计算公式程序的代码

各位高人请看，要求有两个文本框用来输入已知变量，两个已知变量要做除法，而且两个文本框之间现实除号，后边有等号，等号后有一个输出计算结果的文本框，这样类似的公式做两个，让后要有一个统一的按钮取名计算，还有一个取名清空，两个按钮最好放在下面，谢谢，急的

一、设置控件属性
text1（被除数）:text=（空）
label1:caption=“/”
text2（除数）:text=（空）
label2:caption=“=”
text3（商）:text=（空）
command1:caption=“计算”
command2:caption=“清空”
二、编写代码
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=a/b
Text3.Text=c
End Sub

Private Sub Command2_Click()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub 参考技术A 给个邮箱