在Form1上创建一个TextBox。TextBox里可以输入任意表达式(比如:(3+4)/2 )
要求做个程序可以算出TextBox中表达式的结果,请问怎么实现?

解决方案 »

  1.   

    编程语言怎么做你就怎么做,使用case语句,处理各个关键字。
      

  2.   

    '引用 Microsoft Script Control 1.0Option Explicit
    Dim obj As ScriptControl
    Private Sub Command1_Click()
    On Error Resume Next
        Set obj = New ScriptControl    
        obj.Language = "VBScript"
        Text1.Text = obj.Eval(Text1.Text)
        Set obj = Nothing
    End Sub
    Private Sub Form_Load()
        Text1.Text = "(3+4)/2"
    End Sub
      

  3.   

    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=192980
      

  4.   

    我照leolan的方法做了,但是程序出错,说无效使用NEW关键字。
     EbExecuteLine  这个API的说明在那里可以找到?