vb 如果根据输入的公式计算结果。

[qq_32562225]

已知a=10
b=3
文本框输入a*b
触发条件后，得到结果30

如何解？什么函数。

[of123]

使用 Replace 函数将字符替换为变量所表示的数。

[Tiger_Zhao]

'工程添加组件 Microsoft Script Control 1.0
'--------
'Form1
'放1个ScriptControl、1个TextBox、1个CommandButton
Option Explicit

Private Sub Command1_Click()
    With ScriptControl1
        .Language = "VBScript"
        .Reset
        '添加已知变量'
        .AddCode "a = 10"
        .AddCode "b = 3"
        '计算公式'
        MsgBox .Eval(Text1)
    End With
End Sub

Private Sub Form_Load()
    Text1.Text = "a*b" '默认公式'
End Sub

[lylkr]

必须一个文本框吗 想简单，如果可以的话就文本框加标签 如 text。text × text2.text

[vansoft]

引用 2 楼 Tiger_Zhao 的回复:

'工程添加组件 Microsoft Script Control 1.0
'--------
'Form1
'放1个ScriptControl、1个TextBox、1个CommandButton
Option Explicit

Private Sub Command1_Click()
    With ScriptControl1
        .Language = "VBScript"
        .Reset
        '添加已知变量'
        .AddCode "a = 10"
        .AddCode "b = 3"
        '计算公式'
        MsgBox .Eval(Text1)
    End With
End Sub

Private Sub Form_Load()
    Text1.Text = "a*b" '默认公式'
End Sub

这控件用好了，可以自己整一个IDE。