用vb编写计算器的代码程序

功能:1.1到9九个数字在程序运行是自动添加
2.有清零功能
3.可实现加、减、乘、除等功能

1. 输入第一个数字。当单击数字区的数字时,文本框中将显示相应的数字,并能进行正负数变换。
2.输入四则运算符。当第一个数字输入完成后,可单击功能区的加、减、乘、除四则运算符。
3.输入第二个数字。当单击了某个运算符后,再单击数字区的数字时,文本框中将显示第二个数字。
4. 进行计算。上述三步完成后,单击“计算结果”按钮,将在文本框中显示四则运算的结果。
5.重复计算。可在第四步的基础上,返回到第2步继续进行四则运算,或者单击“清空”按钮并返回第1步,开始新的四则运算过程。
6.菜单操作。当单击“帮助”中的“关于”菜单项时,弹出“帮助”窗体。
7.退出系统。单击“退出”按钮结束程序。

第1个回答  2019-12-06
在窗体上放置以下控件:
1、lblResult
Label控件
设置lblResult.Caption
=
0
2、btnNum(0)~btnNum(9)
按钮控件数组,下标对应齐数字(如:btnNum(0).Caption=0,依次类推)
3、添加btnAdd(加法)、btnSub(减法)、btnMul(乘法)、btnDiv(除法)、btnEnter(等于号)、btnReset(清除键)六个按钮。
在窗体代码中输入以下内容:
Dim
byteOperation
As
Byte
'操作符
Dim
byteTmp
As
Byte
'临时操作符
Dim
intNum
As
Double
'输入的数字
Sub
Calc()
Select
Case
byteOperation
Case
1
'Add
lblResult.Caption
=
CDbl(lblResult.Caption)
+
intNum
Case
2
'Sub
lblResult.Caption
=
intNum
-
CDbl(lblResult.Caption)
Case
3
'Mul
lblResult.Caption
=
CDbl(lblResult.Caption)
*
intNum
Case
4
'Div
lblResult.Caption
=
intNum
/
CDbl(lblResult.Caption)
Case
Else
End
Select
End
Sub
Private
Sub
btnNum_Click(Index
As
Integer)
If
byteTmp
<>
0
Then
intNum
=
lblResult.Caption
lblResult.Caption
=
0
byteTmp
=
0
End
If
If
lblResult.Caption
=
0
Then
lblResult.Caption
=
Index
Else
If
Len(lblResult.Caption)
<
9
Then
lblResult.Caption
=
lblResult.Caption
&
Index
End
If
End
If
End
Sub
Private
Sub
btnAdd_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
1
byteTmp
=
1
End
Sub
Private
Sub
btnReset_Click()
byteTmp
=
0
byteOperation
=
0
intNum
=
0
lblResult.Caption
=
0
End
Sub
Private
Sub
btnSub_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
2
byteTmp
=
2
End
Sub
Private
Sub
btnMul_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
3
byteTmp
=
3
End
Sub
Private
Sub
btnDiv_Click()
If
byteOperation
<>
0
Then
Call
Calc
End
If
byteOperation
=
4
byteTmp
=
4
End
Sub
Private
Sub
btnEnter_Click()
Call
Calc
byteTmp
=
0
End
Sub
第2个回答  2009-10-09
能编程这样的,都可以烧制成商用计算器,拿去制造出售卖钱了!5分?500000分都不 算个鸟!呵呵
RMB才算鸟本回答被网友采纳
第3个回答  2009-10-09
加减乘除等功能?还有什么功能?不会有计算积分吧?
第4个回答  2009-10-09
100RMB,帮你完成!