之前确实有人问过,但是没有像你一样问到点子上(他没有说使用ScriptControl对象),所以并没有得到想要的回答 2楼发的链接里提供了ScriptControl的用法,其中这一段应该就是你需要的: ■计算带变量的表达式 Private Sub Command1_Click() '执行一条 scripting 语句例子 x = 10 ScriptControl1.ExecuteStatement "x=" & x '执行一条 scripting 语句,将值 10 赋给变量 x S = ScriptControl1.Eval("(x-1)^2") MsgBox S End Sub