189 8069 5689
调用 脚本解析引擎，
成都创新互联公司10多年成都企业网站定制服务;为您提供网站建设,网站制作,网页设计及高端网站定制服务,成都企业网站定制及推广,对自上料搅拌车等多个行业拥有丰富设计经验的网站建设公司。
textbox2.text=Eval(textbox1.text).ToString()
Function Eval(ByVal Expressions As String) As Double
Dim Mssc = CreateObject("MSScriptControl.ScriptControl")
Mssc.Language = "vbscript"
Return CDbl( Mssc.Eval(Expressions))
End Function
不喜欢上面提示的警告的话
textbox2.text=EvalString(textbox1.text)
Function EvalString(ByVal Expressions As String) As String
dim oType = System.Type.GetTypeFromProgID("MSScriptControl.ScriptControl")
Dim o = System.Activator.CreateInstance(oType)
oType.InvokeMember("Language", System.Reflection.BindingFlags.SetProperty , Nothing, o,New Object(){ "vbscript"})
Return oType.InvokeMember("Eval", System.Reflection.BindingFlags.InvokeMethod, Nothing, o, New Object(){Expressions}).ToString()
End Function
Eval 在VB中使用，刚找到的_vb吧_百度贴吧
Dim Scr As Object
Scr = CreateObject("MSScriptControl.ScriptControl")
Scr.Language = "Vbscript"
Dim t As Single
t = Scr.Eval(TextBox1.Text)
MsgBox(t)
作用是把对应的字符串解析成js代码并运行。eval()是程序语言中的函数，功能是获取返回值，不同语言大同小异，函数基础是返回值= eval(codeString)，如果eval函数在执行时遇到错误，则抛出异常给调用者。
如果eval函数在执行时遇到错误，则抛出异常给调用者。类似的函数是loadcode，loadcode不立即执行代码，另外返回一个函数对象。并且loadcode支持路径参数，评估不支持。评估不支持代码中的返回语句，将代码作为表达式直接计算出结果。
相关信息
Eval函数在PHP代码中的用法：eval()函数把字符串按照PHP代码来计算。该字符串必须是合法的PHP代码，且必须以分号结尾。如果没有在代码字符串中调用返回语句，则返回NULL。如果代码中存在解析错误，则eval()函数返回false。
Eval函数在VBScript脚本语言中的使用：在VB脚本语言中，Eval函数具有两层英文，一是实现计算表达的值，即eval()函数可将字符串转换为代码执行，并返回一个或多个值；二是运行指定的代码。