vb.net如何运算一个字符串

调用 脚本解析引擎，

成都创新互联公司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吧_百度贴吧

在VB.net中，怎么编一个计算器，要求输入 1+2*3输出7。

Dim Scr As Object

Scr = CreateObject("MSScriptControl.ScriptControl")

Scr.Language = "Vbscript"

Dim t As Single

t = Scr.Eval(TextBox1.Text)

MsgBox(t)

eval()函数的作用是什么?

作用是把对应的字符串解析成js代码并运行。eval()是程序语言中的函数，功能是获取返回值，不同语言大同小异，函数基础是返回值= eval(codeString)，如果eval函数在执行时遇到错误，则抛出异常给调用者。

如果eval函数在执行时遇到错误，则抛出异常给调用者。类似的函数是loadcode，loadcode不立即执行代码，另外返回一个函数对象。并且loadcode支持路径参数，评估不支持。评估不支持代码中的返回语句，将代码作为表达式直接计算出结果。

相关信息

Eval函数在PHP代码中的用法：eval()函数把字符串按照PHP代码来计算。该字符串必须是合法的PHP代码，且必须以分号结尾。如果没有在代码字符串中调用返回语句，则返回NULL。如果代码中存在解析错误，则eval()函数返回false。

Eval函数在VBScript脚本语言中的使用：在VB脚本语言中，Eval函数具有两层英文，一是实现计算表达的值，即eval()函数可将字符串转换为代码执行，并返回一个或多个值；二是运行指定的代码。

网站栏目：关于vb.neteval的信息
当前URL：http://scpingwu.com/article/hgccjh.html