6月6国际爱眼日:怎样用VB做一个小型计算器

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 02:23:35

你的问题在界面还是在算法?
要是算法上的问题可以这样:
声明两个数组作为栈(可用类模块)
'Class Stack:
Dim stc(100),top as integer
Sub Push(k)
stc(top)=k
top=top+1
End Sub
Function Pop
top=top-1
Pop=stc(top)
End Function
Function Peek
Peek=stc(top-1)
End Function

然后按下运算符按钮就把数字压入数字栈(push)
看看符号占上面的是否为低级运算,是则push符号,否则取出数字占的两个进行计算,结果入栈……

设置一个文本框,然后让输入算式,
在程序内部进行识别,然后计算

VB帮助里面自带一个计算器的例子!