vb四则运算计算机,VB编写四则运算“程序形似于WINDOWS自带的标准型计算器要 爱问知识人...

最简单最快速的实现方法： 窗口上放两个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 代码就这么一点点，呵呵，够简洁吧？但是可以完全完成你要的功能。 ok，运行看看吧。 ____________________________________________________________ 补充： 你用的VB6吧？绝对没有问题，我测试了ok才贴出来的。

你有在工程中引用Microsoft Script Control 1。0的库吗？ 我刚才又把代码拷贝过去测试了的确没有问题。 你能把问题详细情况说下吗？提示什么错误之类的？ _________________________________________________ 代码解释： '引用Microsoft Script Control脚本解释库，可以解释VBS和JS的脚本。

'下面定义一个ScriptControl的新实例C1 Dim C1 As New ScriptControl '按下按钮的时候进行表达式计算。使用脚本引擎将表达式按照VBS语法进行解释。 Private Sub Command1_Click() Dim str1 As String str1 = Me。

Text1。Text'读取Text1的内容 str1 = Replace(str1, "%", " Mod ") '将%取模运算符替换为 Mod (VBS的取模运算符) str1 = Replace(str1, "sqrt", "sqr") '将sqrt开放函数替换为VBS中的sqr开方函数 C1。

Language = "VBScript" '设置脚本语言为VBSript。 '其实设置为JScript也可以，只要把Replace(str1, "sqrt", "sqr") '改为Replace(str1, "sqrt", "Math。sqrt")即可， '这样可以省掉替换%那一句，我用VBScript部分原因是为了 '防止像楼下katar1024那样的人，要简洁这个更简洁啊，你怎么不用？ Me。

Text2。Text = C1。Modules(GlobalModule)。Eval(str1) '最后上面这句就是调用脚本引擎的全局模块的Eval方法运算表达式， '返回结果显示在Text2中。 End Sub 再PS：我早知道楼下会出现katar1024这样的人来蹭分，要简洁也不是你那样。

不用引用你以为很好吗？CreateObject是后期绑定，还要Query，比直接引用库要慢不少，也不见得方便，你那招没啥新意，拜托~！ 查看原帖>>

求采纳。

全部