假设我们要像上图, 让使用者可以在「方程式」单元中自由输入方程式, 然后利用程序加以计算, 则引用 ScriptControl 控件(注)最为方便, 假设被布置在窗体上的 ScriptControl 控件其名称为 ScriptControl1, 则所撰写的程序将如下:
Dim statement As Stringstatement = "X = " & Text1.Text & vbCrLf & _ "Y = " & Text2.Text & vbCrLf & _ "MsgBox ""计算结果="" & Y"ScriptControl1.ExecuteStatement statement注:ScriptControl 控件附属于 VB 6.0, 如果安装之后没有看到这一控件, 可在光盘的 \Common\Tools\VB\Script 目录底下找这一控件, 其 .ocx 文件名称为 Msscript.ocx。