SOS !! 高分求:公式计算问题

Question

如下:
(<100>-<108>+<206>)*20% 之类的计算
还有if 之类的简单的函数
上面的<>为科目代码

Answer 1

对哟~还有Script这么个东西，都忘了~

Answer 2

script控件  怎么用 是什么??  别 那么神秘啊......

Answer 3

引用“Microsoft Script Control 1.0”
Private Sub Command1_Click()
    Dim VBEval As New ScriptControl
    Dim Result As String
    On Error GoTo E
    VBEval.Language = "vbscript"
    Result = VBEval.Eval(Text1.Text)
    MsgBox Text1.Text & "=" & Result
    Exit Sub
E:
    MsgBox "表达式错误，检查是否输入了非法字符！"
End Sub

Answer 4

如何分隔里面的<100>代码呢 ???