VB简单计算器编程代码附图Word文档下载推荐.docx
《VB简单计算器编程代码附图Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB简单计算器编程代码附图Word文档下载推荐.docx（18页珍藏版）》请在冰点文库上搜索。
TabIndex=28
Top=3060
Width=735
End
BeginVB.CommandButtonCommand3
1/x"
TabIndex=27
Top=2520
BeginVB.CommandButtonCommand2
%"
TabIndex=26
Top=1980
BeginVB.CommandButtonCommand1
sqrt"
TabIndex=25
Top=1440
BeginVB.CommandButtoncmbDOT
."
Left=2910
TabIndex=24
BeginVB.CommandButtoncmbZF
+/-"
Left=2130
TabIndex=23
BeginVB.CommandButtoncmbSign
+"
Index=3
Left=3690
TabIndex=22
-"
Index=2
TabIndex=21
*"
Index=1
TabIndex=20
/"
Index=0
TabIndex=19
BeginVB.CommandButtoncmbNUM
9"
Index=9
TabIndex=18
8"
Index=8
TabIndex=17
7"
Index=7
Left=1350
TabIndex=16
6"
Index=6
TabIndex=15
5"
Index=5
TabIndex=14
4"
Index=4
TabIndex=13
3"
TabIndex=12
2"
TabIndex=11
1"
TabIndex=10
0"
TabIndex=9
BeginVB.CommandButtoncmbMa
M+"
Left=150
TabIndex=8
Width=975
BeginVB.CommandButtoncmbMS
MS"
TabIndex=7
BeginVB.CommandButtoncmbMR
MR"
TabIndex=6
BeginVB.CommandButtoncmbMC
MC"
TabIndex=5
BeginVB.CommandButtoncmbC
C"
Left=4020
TabIndex=4
Top=690
Width=1155
BeginVB.CommandButtoncmbCE
CE"
Left=2670
TabIndex=3
BeginVB.CommandButtoncmbbackspace
Backspace"
Left=1380
TabIndex=2
BeginVB.TextBoxText1
Alignment=1'
RightJustify
Height=375
Left=210
TabIndex=0
Text="
0."
Top=120
Width=4935
BeginVB.LabelLabel2
Alignment=2'
Center
Height=255
Left=360
TabIndex=29
Top=840
Width=375
BeginVB.LabelLabel1
BorderStyle=1'
FixedSingle
BeginPropertyFont
Name="
宋体"
Size=14.25
Charset=134
Weight=400
Underline=0'
False
Italic=0'
Strikethrough=0'
EndProperty
Left=240
TabIndex=1
Width=615
BeginVB.Menuedit
编辑（&
E）"
BeginVB.Menulook
查看（&
V）"
BeginVB.Menuhelp
帮助（&
H）"
End
AttributeVB_Name="
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=True
AttributeVB_Exposed=False
OptionExplicit
PrivateDeclareFunctionShowCursorLib"
user32"
（ByValbShowAsLong）AsLong
DimdotflagAsBoolean
DimfuhaoAsString
DimfirstAsDouble
DimsecondAsDouble
DimisEqualAsBoolean
DimmemoryAsDouble'
保存显示的数据
DimlianyongAsDouble'
当连续按等号时使用该变量
PrivateSubcmbDesign_Click（IndexAsInteger）
EndSub
PrivateSubcmbbackspace_Click（）
IfRight（Trim（Text1.Text）,1）="
Then
Text1.Text=Mid（Text1.Text,1,Len（Text1.Text）-2）&
"
Else
Text1.Text=Mid（Text1.Text,1,Len（Text1.Text）-1）
EndIf
IfRight（Text1.Text,1）="
Then
dotflag=False
IfLen（Text1.Text）=1Then
Text1.Text="
EndSub单击Backspace时删除文本框内最后一个字符
PrivateSubcmbC_Click（）
dotflag=False
Text1.Text="
first=0
second=0
EndSub使文本框变成初始状态“0.”
PrivateSubcmbCE_Click（）
EndSub删除文本框内的所有内容，使文本框变成初始状态“0.”
PrivateSubcmbDOT_Click（）
'
标示点击了点“。
”
dotflag=True
EndSub点的点击，
PrivateSubcmbMa_Click（）
Text1.Text=Str（Val（Text1.Text）+memory）
formatText
EndSub记忆运算数值
PrivateSubcmbMC_Click（）
memory=0
Label2.Caption="
"
EndSub清除存储器内容.
PrivateSubcmbMR_Click（）
Text1.Text=Str（memory）
formatText
EndSub调用存储器内容
PrivateSubcmbMS_Click（）
memory=Val（Text1.Text）'
保存到内存中
Label2.Caption="
M"
EndSub保存到内存中
PrivateSubcmbNUM_Click（IndexAsInteger）
'
判断是否按过等号键“="
IfisEqual=TrueThen
isEqual=False
EndIf
判断是否点击过“点”按扭，如果未点击过在点前添加，否则在点后添加
Ifdotflag=FalseThen
Text1.Text=Left（Text1.Text,Len（Text1.Text）-1）&
Index&
Else
Text1.Text=Text1.Text&
Index
PrivateSubcmbSign_Click（IndexAsInteger）
恢复未点击点“。
”的状态
isEqual=False'
恢复等号在本次运算中未单击过状态
first=Text1.Text
fuhao=cmbSign（Index）.Caption
PrivateSubcmbZF_Click（）
IfLeft（Trim（Text1.Text）,1）="
Text1.Text=Mid（Text1.Text,2）
&
Trim（Text1.Text）
EndSub对文本框进行取负运算
PrivateSubCommand1_Click（）
DimisDotAsBoolean
DimiAsInteger
Fori=1ToLen（Trim（Text1.Text））
IfMid（Trim（Str（Sqr（Val（Text1.Text））））,i,1）="
isDot=True
ExitFor
Nexti
IfisDot=FalseThen
Text1.Text=Str（Sqr（Val（Text1.Text）））&
Text1.Text=Str（Sqr（Val（Text1.Text）））
EndSub对文本框的内容进行开方运算
PrivateSubCommand4_Click（）
second=Val（Text1.Text）
IfisEqual=FalseThen
lianyong=Val（Text1.Text）
first=second
Text1.Text=Str（compute（first,lianyong,fuhao））
isEqual=True
EndSub等号的运算，并结束此次运算
PrivateSubForm_Load（）
lianyong=0
EndSub判断等号是否连用
PublicFunctioncompute（fAsDouble,sAsDouble,fuhaoAsString）AsDouble
SelectCasefuhao
Case"
compute=f+s
compute=f-s
compute=f*s
compute=f/s
CaseElse
MsgBox"
不明白"
EndSelect
EndFunction对文本框的内容进行加、减、乘、除的运算
PublicSubformatText（）
DimiAsInteger
isDot=False
Fori=1ToLen（Text1.Text）
IfMid（Trim（Text1.Text）,i,1）="
Text1.Text=Text1.Text+"
IfLeft（Text1.Text,1）="
IfLeft（Trim（Text1.Text）,2）="
-."
-0"
Mid（Trim（Text1.Text）,2）
五、程序调试结果及程序改进意见
1）如何判断小数点是否按下？
当小数点没有按下是，文本框的内容最后一个字符是：
“.”，当小数点按下时，文本框内容最后一个字符是输入的内容。
2）如何对按钮添加彩色图形？
在画图板上做出所需要彩色图形的图片，再把图片应用到控件按钮上。
3）如何判断除数不能为0，当除数为0时如何操作？
当除数为0时，单击等于运算时会显示除数不能为0，当除数为0时改变文本框的内容使除数不为0.
升级会员 