如何让使用者自行输入方程式, 并且计算其结果?

假设我们要像上图, 让使用者可以在「方程式」单元中自由输入方程式, 然后利用程序加以计算, 则引用 ScriptControl 控件(注)最为方便, 假设被布置在窗体上的 ScriptControl 控件其名称为 ScriptControl1, 则所撰写的程序将如下:

Dim statement As String 
statement = "X = " & Text1.Text & vbCrLf & _ 
                   "Y = " & Text2.Text & vbCrLf & _ 
                   "MsgBox ""计算结果="" & Y" 
ScriptControl1.ExecuteStatement  statement 

注:ScriptControl 控件附属于 VB 6.0, 如果安装之后没有看到这一控件, 可在光盘的 \Common\Tools\VB\Script 目录底下找这一控件, 其 .ocx 文件名称为 Msscript.ocx。


学 VB(Visual Basic) 找王国荣