可以自己做个命令窗口,几行代码:
Functions.remove("Sum")Functions.Add("Sum",e.Form.Controls("TextBox1").Value)Functions.Complie()Dim s As String = Functions.Execute("Sum")If s > "" Then MessageBox.show("执行结果:" & s)End If