在VB中如何将字符串 "(10+20)*2+2" 执行并得到结果 62

Question

在VB中如何将字符串 "(10+20)*2+2" 执行并得到结果  62

Answer 1

运用字符转换函数  left right instr 等 很麻烦的
你还不如做四个文本框 运用标签标明 (xxx+xxx)*xxx+xxxx在用一个算式算出结果 w=(val(trim(text1)+.......这是我的苯方法，讨论   学习

Answer 2

：）
同意的是zcm123的方法
1410104(兔子) 不行

Answer 3

http://community.csdn.net/Expert/TopicView.asp?id=3231596

Answer 4

'在工程中添加“Microsoft Script Control1.0”控件，然后在控件下面寫代碼Private Sub Command1_Click()
    Dim test As String
    test = "(10+20)*2+2"
    MsgBox Me.ScriptControl1.Eval(test)
End Sub

Answer 5

Private Sub Command1_Click()
    Dim scr As Object, test As String
    test = "(10+20)*2+2"
    Set scr = CreateObject("MSScriptControl.ScriptControl")
    scr.Language = "vbscript"
    MsgBox test & "=" & scr.Eval(test)
End Sub

Answer 6

http://community.csdn.net/Expert/topic/3231/3231596.xml

Answer 7

Private Sub Command1_Click()
  Dim str As String
  Dim scr As Object
  str = "(10+20)*2+2"
  Set scr = CreateObject("MSScriptControl.ScriptControl")
  scr.Language = "vbscript"
Text1.Text = scr.Eval(str)
End Sub

Answer 8

A:去学算法与数据结构
B:用“Microsoft Script Control1.0”控件

Answer 9

用“Microsoft Script Control1.0”控件

Answer 10

我用过两个方法：
1、用“Microsoft Script Control1.0”控件。
2、到网上找一个计算表达式的值的控件。

Answer 11

兩種都OK
dim num as integer
num=cint((10+20)*2+2)
或
num=cdbl((10+20)*2+2)