如何讓用戶自行輸入方程式,并計(jì)算其結(jié)果?

字號(hào):

假設(shè)我們要讓使用者在“方程式”欄位中自由輸入方程式,然后利用方程式進(jìn)行計(jì)算,則引用ScriptControl控件可以很方便地做到。
    ( ScriptControl 控件附屬于VB 6.0,如果安裝后沒有看到此一控件,可在光盤的 \Common\Tools\VB\Script 目錄底下找此一控件, 其.文件名為Msscript.ocx。)
    假設(shè)放在窗體上的ScriptControl控件名稱為ScriptControl1,則在“計(jì)算”按鈕的Click事件中編寫如下代碼: Dim Statement As String Statement = "X=" + Text1.Text + vbCrLf + _ "Y=" + Text2.Text + vbCrLf + _ "MsgBox ""計(jì)算結(jié)果="" & Y " ScriptControl1.ExecuteStatement( Statement )