文体框的内容为 0.5+0.5 怎么计算文本框里的值。即S=0.5+0.5=1

解决方案 »

  1.   

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

  2.   

    http://dev.csdn.net/article/26/26383.shtm
      

  3.   

    表达式计算:
    1. 引用:"Microsoft Script Control 1.0"
    2. 代码实现:
        Dim StringCalc As New ScriptControl
        StringCalc.Language = "VBScript"
        ‘显示公司计算结果
        Msgbox  StringCalc.Eval(“25+45-sqr(10)”)
        Set StringCalc = Nothing
      

  4.   

    Option ExplicitPrivate Sub Command1_Click()
      Dim a As Double
      a = CDbl(Text1.Text) + CDbl(Text2.Text)
      MsgBox a
    End Sub
      

  5.   

    b=split(text1.text,"+")
    n=b(0)+b(1)
    msgbox n