VB简单计算器编程代码附图Word格式文档下载.docx

VB简单计算器编程代码附图Word格式文档下载.docx

《VB简单计算器编程代码附图Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB简单计算器编程代码附图Word格式文档下载.docx（16页珍藏版）》请在冰豆网上搜索。

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.