VB中计算表达式值的方法

在vb编程中，常常需要计算表达式的值，例如3+6、sin(-8)或(3>4)or(1>5)等。下面将介绍一种利用微软脚本控件来实现表达式求值的技巧。

免费影视、动漫、音乐、游戏、小说资源长期稳定更新！ 👉 点此立即查看 👈

1、 打开VB6.0，新建一个标准EXE工程。

2、 设计界面时，放置两个label控件，并将其caption属性分别设置为“表达式”和“值”。

3、 然后添加两个Textbox控件，分别命名为txbExpression和txbValue，用来输入表达式以及显示运算结果。

4、 最后再添加一个命令按钮，命名为cmdCalc，其标题设为“计算”。

5、 双击命令按钮，进入代码编辑界面，在txbCalc_Click事件里编写以下代码：

6、 定义一个字符串变量，用于存储表达式内容。

7、 再定义一个字符串变量Rst，用来保存运算结果。

8、 创建并初始化 ScriptControl 对象，具体代码如下：

9、 设置 SCtl = CreateObject(MSScriptControl.ScriptControl)

10、 这一步是为了初始化脚本控制对象，方便后续调用。

11、 将表达式的内容赋值给变量Str，比如：Str = txbExpression.Text

12、 设置脚本语言为VBScript，代码如下：SCtl.Language = "VBScript"

13、 利用 SCtl 对象的 Eval 方法对字符串 Str 的表达式进行求值，并将结果保存到 VBScriptRst 变量中。

14、 将计算结果赋值给变量 txbValue 并展示最终输出。

15、 按下F5运行程序，在输入框内输入任意表达式，点击“计算”按钮，程序会快速给出正确答案。需要注意的是，因为使用了脚本控件，所以输入的表达式必须符合VBScript的语法规则。只要满足VBScript语法的表达式都可以正确计算，而不符合该规则的表达式则无法被处理。