计算器vb源代码.docx

计算器vb源代码.docx

《计算器vb源代码.docx》由会员分享，可在线阅读，更多相关《计算器vb源代码.docx（14页珍藏版）》请在冰豆网上搜索。

计算器vb源代码

计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。

完全版的前后台代码...

'请把下面的保存为

VERSION

BeginCalculator

BorderStyle=1'FixedSingle

Caption="计算器"

ClientHeight=2970

ClientLeft=2580

ClientTop=1485

ClientWidth=3270

ClipControls=0'False

BeginPropertyFont

Name="System"

Size=

Charset=0

Weight=700

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Icon="":

0000

LinkMode=1'Source

LinkTopic="Form1"

MaxButton=0'False

PaletteMode=1'UseZOrder

ScaleHeight=2970

ScaleWidth=3270

WhatsThisHelp=-1'True

BeginNumber

Caption="7"

Height=480

Index=7

Left=120

TabIndex=7

Top=600

Width=480

End

BeginNumber

Caption="8"

Height=480

Index=8

Left=720

TabIndex=8

Top=600

Width=480

End

BeginNumber

Caption="9"

Height=480

Index=9

Left=1320

TabIndex=9

Top=600

Width=480

End

BeginCancel

Caption="C"

Height=480

Left=2040

TabIndex=10

Top=600

Width=480

End

BeginCancelEntry

Caption="CE"

Height=480

Left=2640

TabIndex=11

Top=600

Width=480

End

BeginNumber

Caption="4"

Height=480

Index=4

Left=120

TabIndex=4

Top=1200

Width=480

End

BeginNumber

Caption="5"

Height=480

Index=5

Left=720

TabIndex=5

Top=1200

Width=480

End

BeginNumber

Caption="6"

Height=480

Index=6

Left=1320

TabIndex=6

Top=1200

Width=480

End

BeginOperator

Caption="+"

Height=480

Index=1

Left=2040

TabIndex=12

Top=1200

Width=480

End

BeginOperator

Caption="-"

Height=480

Index=3

Left=2640

TabIndex=13

Top=1200

Width=480

End

BeginNumber

Caption="1"

Height=480

Index=1

Left=120

TabIndex=1

Top=1800

Width=480

End

BeginNumber

Caption="2"

Height=480

Index=2

Left=720

TabIndex=2

Top=1800

Width=480

End

BeginNumber

Caption="3"

Height=480

Index=3

Left=1320

TabIndex=3

Top=1800

Width=480

End

BeginOperator

Caption="X"

Height=480

Index=2

Left=2040

TabIndex=14

Top=1800

Width=480

End

BeginOperator

Caption="/"

Height=480

Index=0

Left=2640

TabIndex=15

Top=1800

Width=480

End

BeginNumber

Caption="0"

Height=480

Index=0

Left=120

TabIndex=0

Top=2400

Width=1080

End

BeginDecimal

Caption="."

Height=480

Left=1320

TabIndex=18

Top=2400

Width=480

End

BeginOperator

Caption="="

Height=480

Index=4

Left=2040

TabIndex=16

Top=2400

Width=480

End

BeginPercent

Caption="%"

Height=480

Left=2640

TabIndex=17

Top=2400

Width=480

End

BeginReadout

Alignment=1'RightJustify

BackColor=&H0000FFFF&

BorderStyle=1'FixedSingle

Caption="0."

BeginPropertyFont

Name="MSSansSerif"

Size=12

Charset=0

Weight=700

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

ForeColor=&H00000000&

Height=375

Left=120

TabIndex=19

Top=105

Width=3000

End

End

AttributeVB_Name="Calculator"

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_PredeclaredId=True

AttributeVB_Exposed=False

'--------------------------------------------------------------------------

'版权所有（C）1994MicrosoftCorporation

'

'您可以免费以任何方式使用、修改、复制并分发您认为有用的

'示例应用程序文件（或任何修改过的版本）。

Microsoft对任何

'示例应用程序文件不做任何保证，不负任何责任和义务。

'--------------------------------------------------------------------------

OptionExplicit

DimOp1,Op2'前面输入的操作数

DimDecimalFlagAsInteger'小数点仍然存在吗？

DimNumOpsAsInteger'操作数个数

DimLastInput'指示上一次按键事件的类型

DimOpFlag'指示未完成的操作

DimTempReadout

'C（取消）按钮的Click事件过程

'重新设置显示并初始化变量

PrivateSubCancel_Click（）

Readout=Format（0,"0."）

Op1=0

Op2=0

Form_Load

EndSub

'CE（取消输入）按钮的Click事件过程

PrivateSubCancelEntry_Click（）

Readout=Format（0,"0."）

DecimalFlag=False

LastInput="CE"

EndSub

'小数点（.）按钮的Click事件过程

'如果上一次按键为运算符，初始化readout为"0."；

'否则显示时追加一个小数点

PrivateSubDecimal_Click（）

IfLastInput="NEG"Then

Readout=Format（0,"-0."）

ElseIfLastInput<>"NUMS"Then

Readout=Format（0,"0."）

EndIf

DecimalFlag=True

LastInput="NUMS"

EndSub

'窗体的初始化过程

'设置所有变量为其初始值

PrivateSubForm_Load（）

DecimalFlag=False

NumOps=0

LastInput="NONE"

OpFlag=""

Readout=Format（0,"0."）

'=Format（0,"."）

EndSub

'数字键（0-9）的Click事件过程

'向显示中的数追加新数

PrivateSubNumber_Click（IndexAsInteger）

IfLastInput<>"NUMS"Then

Readout=Format（0,"."）

DecimalFlag=False

EndIf

IfDecimalFlagThen

Readout=Readout+Number（Index）.Caption

Else

Readout=Left（Readout,InStr（Readout,Format（0,"."））-1）+Number（Index）.Caption+Format（0,"."）

EndIf

IfLastInput="NEG"ThenReadout="-"&Readout

LastInput="NUMS"

EndSub

'运算符（+,-,x,/,=）的Click事件过程

'如果接下来的按键是数字键，增加NumOps。

'如果有一个操作数，则设置Op1。

'如果有两个操作数，则将Op1设置为Op1与

'当前输入字符串的运算结果，并显示结果

PrivateSubOperator_Click（IndexAsInteger）

TempReadout=Readout

IfLastInput="NUMS"Then

NumOps=NumOps+1

EndIf

SelectCaseNumOps

Case0

IfOperator（Index）.Caption="-"AndLastInput<>"NEG"Then

Readout="-"&Readout

LastInput="NEG"

EndIf

Case1

Op1=Readout

IfOperator（Index）.Caption="-"AndLastInput<>"NUMS"AndOpFlag<>"="Then

Readout="-"

LastInput="NEG"

EndIf

Case2

Op2=TempReadout

SelectCaseOpFlag

Case"+"

Op1=CDbl（Op1）+CDbl（Op2）

Case"-"

Op1=CDbl（Op1）-CDbl（Op2）

Case"X"

Op1=CDbl（Op1）*CDbl（Op2）

Case"/"

IfOp2=0Then

MsgBox"除数不能为0",48,"计算器"

Else

Op1=CDbl（Op1）/CDbl（Op2）

EndIf

Case"="

Op1=CDbl（Op2）

Case"%"

Op1=CDbl（Op1）*CDbl（Op2）

EndSelect

Readout=Op1

NumOps=1

EndSelect

IfLastInput<>"NEG"Then

LastInput="OPS"

OpFlag=Operator（Index）.Caption

EndIf

EndSub

'百分比键（%）的Click事件过程

'计算并显示第一个操作数的百分数

PrivateSubPercent_Click（）

Readout=Readout/100

LastInput="Ops"

OpFlag="%"

NumOps=NumOps+1

DecimalFlag=True

EndSub