怎样利用VB计算表达式的值?
在利用vb编程中,常常需要计算表达式的值。例如,3+6,sin(-8),(3>4) or (1>5) 等。下面介绍利用微软的脚本控件计算表达式的值的方法。
操作方法
- 01
打开VB6.0,新建一个标准EXE程序
- 02
绘制界面。添加两个label控件,将caption属性分别改为"表达式"和"值"。 然后添加两个Textbox控件,将名字改为txbExpression,txbValue,分别用来输入表达式和输出表达式的值。 最后添加一个commandbutton,将名字改为cmdCalc,caption属性改为"计算"。
- 03
编写代码。双击commandbutton,进入代码编辑窗口,在 txbCalc_Click 这一过程中添加如下代码: Dim Str As String '用来存储表达式 Dim Rst As String ’用来存储结果 Dim SCtl As Object Set SCtl = CreateObject("MSScriptControl.ScriptControl") ’创建并存储ScriptControl对象 Str = txbExpression ’将表达式的值传递给Str SCtl.Language = "VBScript" '设置脚本语言为 VBScriptRst = SCtl.Eval(Str) '计算表达式的值 txbValue = Rst '输出最终结果
- 04
运行。按F5,输入任意表达式,点击“计算”,程序立即给出了正确的计算结果。这里需要指明的是,因为是调用了脚本控件,输入的表达式必须符合vbscript的语法规范。凡是符合vbscript语法的表达式都能计算;反之,不符合vbscript的语法规范的表达式是无法计算的。
赞 (0)