2个回答
展开全部
窗口上放两个TextBox,一个名为Text1,用于输入表达式,一个名为Text2,用于输出结果。
放一个CommandButton,名为Command1,点击后进行计算。
然后在工程中引用Microsoft Script Control
然后加入以下代码:
Dim C1 As New ScriptControl
Private Sub Command1_Click()
Dim str1 As String
str1 = Me.Text1.Text
str1 = Replace(str1, "%", " Mod ")
str1 = Replace(str1, "sqrt", "sqr")
C1.Language = "VBScript"
Me.Text2.Text = C1.Modules(GlobalModule).Eval(str1)
End Sub
表达式的文字需规范,你的式子是:-25\21/3Mod(1-2*3^2)\3,全部要用半角字符输入,答案是-3
放一个CommandButton,名为Command1,点击后进行计算。
然后在工程中引用Microsoft Script Control
然后加入以下代码:
Dim C1 As New ScriptControl
Private Sub Command1_Click()
Dim str1 As String
str1 = Me.Text1.Text
str1 = Replace(str1, "%", " Mod ")
str1 = Replace(str1, "sqrt", "sqr")
C1.Language = "VBScript"
Me.Text2.Text = C1.Modules(GlobalModule).Eval(str1)
End Sub
表达式的文字需规范,你的式子是:-25\21/3Mod(1-2*3^2)\3,全部要用半角字符输入,答案是-3
参考资料: http://hi.baidu.com/%CF%E6%BA%FE%B7%BA%D6%DB/blog/item/ccee2ffb5637708e9f51468f.html
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询