Question

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

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

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

Answer 1

在窗体上放置以下控件：
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

Answer 2

能编程这样的，都可以烧制成商用计算器，拿去制造出售卖钱了！5分？500000分都不 算个鸟！呵呵
RMB才算鸟

Answer 3

加减乘除等功能？还有什么功能？不会有计算积分吧？

Answer 4

100RMB，帮你完成！