誰有VB簡易計算機的程式碼(包括括號和四則運算)

Question

如標題，我要的是用VB寫的計算機的程式碼(包括括號和四則運算)
在Text1顯示的地方是一連串的式子，按等號就把值算出來！不容易喔！

還有就是當輸入為非數字資料時，當按下等號時程式須能提出警告，並不執行運算而結束程式！

Answer 1

用Microsoft Script Control 1.0 元件就能解決,如果你電腦沒此元件,可在VB光碟的 \Common\Tools\VB\Script 目錄底下找此一元件,其檔案名稱為Msscript.ocx進行註冊即可使用Dim Sc As Object, M As ObjectPrivate Sub Form_Load()Set Sc = CreateObject("ScriptControl")Sc.Language = "VBScript"Set M = Sc.Modules.Add("Module1")Text1 = "1+2*3-4/(5+30)"Text1.SelStart = Len(Text1)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim S$If KeyAscii = 61 Then   KeyAscii = 0   On Error Resume Next   S = M.Eval(Text1)   If Err Then      MsgBox "算式錯誤"   Else      MsgBox Text1 & " = " & S   End IfEnd IfEnd Sub