vb中text1输入一个算式text2输出值
界面如下图，上面输入bv表达式，下面输出该表达式的值。比如在上面输入1+2*3，然后点击确定后下面出现7；上面输入abs（-3）+sqr（36），下面输出9。...
界面如下图，上面输入bv表达式，下面输出该表达式的值。
比如在上面输入1+2*3，然后点击确定后下面出现7；上面输入abs（-3）+sqr（36），下面输出9。 展开
比如在上面输入1+2*3，然后点击确定后下面出现7；上面输入abs（-3）+sqr（36），下面输出9。 展开
1个回答
展开全部
Dim Str As String '用来存储表达式
Dim SCtl As Object
Set SCtl = CreateObject("MSScriptControl.ScriptControl") '创建并存储ScriptControl对象
Str = Text1.Text '将表达式的值传递给Str
SCtl.Language = "VBScript" '设置脚本语言为
Text2.Text = SCtl.Eval(Str) '计算表达式的值
Dim SCtl As Object
Set SCtl = CreateObject("MSScriptControl.ScriptControl") '创建并存储ScriptControl对象
Str = Text1.Text '将表达式的值传递给Str
SCtl.Language = "VBScript" '设置脚本语言为
Text2.Text = SCtl.Eval(Str) '计算表达式的值
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
