1、打开VB6.0，新建一个标准EXE程序
2、绘制界面。添加两个label控件，将caption属性分别改为"表达式"和"值"。然后添加两个Textbox控件，将名栓疠瑕愤字改为txbExpression，txbValue，分别用来输入表达式和输出表达式的值。最后添加一个commandbutton，将名字改为cmdCalc，caption属性改为"计算"。
3、编写代码。双击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 '输出最终结果
4、运行。按F5，输入任意表达式，点击“计算”，程序立即给出了正确的计算结果。这里需要指明的是，因为是调用了脚本控件，输入的表达式必须符合vbscript的语法规范。凡是符合vbscript语法的表达式都能计算；反之，不符合vbscript的语法规范的表达式是无法计算的。
