求一段vb代码！简单计算器

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:03:53
有0～9按键，有加减乘除等于按钮
没有小数点
能算加减乘除就行了！！！

谁会告诉我一下

谢谢

用scriptcontrol可以计算公式
首先建立你要的界面，按加减等按钮在文本框中生成公式（直接敲入表达式不更好吗？。。。），再加一个求值的按钮，用scriptcontrol直接算结果

private sub command2_click()
dim s
dim textStr as string

textStr = text1.text'这个TEXT控件放表达式

if text1 = "" then exit sub
on error goto errhandler

set s = createobject("scriptcontrol")
s.language = "vbscript"
text1 = s.eval(textStr)
set s = nothing
flag = true
text1.text = textStr
exit sub
errhandler: text1.text = "e"
end sub

你要一步的还是多步一下子算的?