资源描述：
《用vb编写一个简单计算器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、用VB编写一个简单计算器一、功能：实现简单的加减乘除功能，C归零，CE取消输入，%计算并显示第一个操作数的百分比。二、控件：1个label，20个commandbutton。三、计算器运行界面：四、详细代码：OptionExplicitDimOp1,Op2'前面输入的操作数DimDecimalFlagAsInteger'小数点仍然存在吗？DimNumOpsAsInteger'操作数个数DimLastInput'指示上一次按键事件的类型DimOpFlag'指示未完成的操作DimTempReadout'C(取消)按钮的Click事件过
2、程'重新设置显示并初始化变量PrivateSubCancel_Click()Readout=Format(0,"0.")Op1=0Op2=0Form_LoadEndSub'CE(取消输入)按钮的Click事件过程PrivateSubCancelEntry_Click()Readout=Format(0,"0.")DecimalFlag=FalseLastInput="CE"EndSub'小数点(.)按钮的Click事件过程'如果上一次按键为运算符，初始化readout为"0."；'否则显示时追加一个小数点PrivateSubDec
3、imal_Click()IfLastInput="NEG"ThenReadout=Format(0,"-0.")ElseIfLastInput<>"NUMS"ThenReadout=Format(0,"0.")EndIfDecimalFlag=TrueLastInput="NUMS"EndSub'窗体的初始化过程'设置所有变量为其初始值PrivateSubForm_Load()DecimalFlag=FalseNumOps=0LastInput="NONE"OpFlag=""Readout=Format(0,"0.")'Decim
4、al.Caption=Format(0,".")EndSub'数字键(0-9)的Click事件过程'向显示中的数追加新数PrivateSubNumber_Click(IndexAsInteger)IfLastInput<>"NUMS"ThenReadout=Format(0,".")DecimalFlag=FalseEndIfIfDecimalFlagThenReadout=Readout+Number(Index).CaptionElseReadout=Left(Readout,InStr(Readout,Format(0,".
5、"))-1)+Number(Index).Caption+Format(0,".")EndIfIfLastInput="NEG"ThenReadout="-"&ReadoutLastInput="NUMS"EndSub'运算符(+,-,x,/,=)的Click事件过程'如果接下来的按键是数字键，增加NumOps。'如果有一个操作数，则设置Op1。'如果有两个操作数，则将Op1设置为Op1与'当前输入字符串的运算结果，并显示结果PrivateSubOperator_Click(IndexAsInteger)TempReadout=R
6、eadoutIfLastInput="NUMS"ThenNumOps=NumOps+1EndIfSelectCaseNumOpsCase0IfOperator(Index).Caption="-"AndLastInput<>"NEG"ThenReadout="-"&ReadoutLastInput="NEG"EndIfCase1Op1=ReadoutIfOperator(Index).Caption="-"AndLastInput<>"NUMS"AndOpFlag<>"="ThenReadout="-"LastInput="NEG
7、"EndIfCase2Op2=TempReadoutSelectCaseOpFlagCase"+"Op1=CDbl(Op1)+CDbl(Op2)Case"-"Op1=CDbl(Op1)-CDbl(Op2)Case"X"Op1=CDbl(Op1)*CDbl(Op2)Case"/"IfOp2=0ThenMsgBox"除数不能为0",48,"计算器"ElseOp1=CDbl(Op1)/CDbl(Op2)EndIfCase"="Op1=CDbl(Op2)Case"%"Op1=CDbl(Op1)*CDbl(Op2)EndSelectRead
8、out=Op1NumOps=1EndSelectIfLastInput<>"NEG"ThenLastInput="OPS"OpFlag=Operator(Index).CaptionEndIfEndSub'百分比键(%)的Click事件过程'计算并
