怎样才能动态生成公式？

Question

select case product_nameCase name1
 表达式1Case Name2
表达式2
...
Case Namen
表达式nend select
OK?????

Answer 1

是小MM？OK，我也是一个老菜鸟，Let's have a try!
首先，你要算总的价格，对吧？建几个TEXTBOX，其中一个用于接收产品名(txtName)，一个记录产品数量(txtNumber)，另一个接收你输入的公式(txtExp)，最后，你还得有一个TEXTBOX显示你要计算的结果吧(txtResult),当然，你还得有1-几个BUTTON
后面，你会做了吗？如果不会，把你的详细要求发送给我，不要太复杂哟，大G很忙！[email protected]

Answer 2

我晓得用一个TEXTBOX接收公式，存入数据库，但它只是一个字符串，无法根据它来进行计算，好象要用到栈的方法吧！

Answer 3

有办法的：
  引用 Microsoft Script Control 1.0 (也可用控件)
objects: Form1、Command1、Text1
Code:
Private Sub Form_Load()
Text1.Text = "1+2+sqr(3)"
End Sub
Private Sub Command1_Click()
Dim s As New MSScriptControl.ScriptControl
s.Language = "VBScript"
s.AddObject "Form1", Me
s.AddCode "a=" & Trim(Text1.Text)
s.ExecuteStatement "Form1.Caption = a"
End Sub