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的语法规范的表达式是无法计算的。
