通过公式?是要自己输入的公式么?是的话可以试试看VB里用VBS(microsoft script control 1.0)用法Dim s As New ScriptControldim result as doublei=inputbox ("i=?")dim fun as stringfun=inputbox("function f(x)=")'只要符合VB语法都可以,比如 x^2(要支持多行的话用textbox输入)s.Language = "VBScript"s.AddCode "function f(x)" & vbcrlf & "f=" & fun & vbcrlf & "end function"'(text1中是VBS代码) result=s.eval( "f(" & x & ")")