关于外观与WINDOWS 自带的计算器外观差不多上面要有0-9数字键 用文本框输出结果,要求只要可以完成 + – * / 运算即可,如果可以的话,请把程序代码放到上面来,谢谢了.
各位高手请帮忙的问题
OptionExplicitDimNum1,Num2AsDouble’操作数DimStrNum1,StrNum2AsStringDimFirstNumAsBoolean’判断是否是数字开头DimPointFlagAsBoolean’判断是否已有小数点DimRunSignAsInteger’储存运算符号DimSignFlagAsBoolean’判断是否已有运算符号DimequalAsDouble’运算结果DimequalflagAsBoolean’运算结果有无标志因为计算结果不能用退格按钮DimOffSignAsBoolean’计算器关闭标志PrivateSubCommand1_Click(IndexAsInteger)IfOffSign=FalseThen’计算器已打开IfIndex=16Then’清除按钮CallClearDataElseSelectCaseIndexCase0To9IfFirstNumThen’如果是第一个字符StrNum1=Right(Str(Index),1)FirstNum=FalseElseIfLen(StrNum1)”0″AndtxtShow。
Text”0。”ThenIfLeft(txtShow。Text,1)=”-“ThentxtShow。Text=Right(txtShow。Text,Len(txtShow。Text)-1)ElsetxtShow。Text=”-“&txtShow。
TextEndIfEndIfStrNum1=txtShow。TextCase16’清除按钮CallClearDataCase17’退格IfNotequalflagAndtxtShow。Text””AndtxtShow。Text”0。”ThentxtShow。
Text=Left(txtShow。Text,Len(txtShow。Text)-1)StrNum1=txtShow。TextEndIfCase18’=IfNotSignFlagThenequal=txtShow。TextFirstNum=TruePointFlag=Falseequalflag=TrueElseCallRunSignFlag=Falseequalflag=TrueEndIfEndSelectEndIfElseOffSign=True’计算器已关闭ExitSubEndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0OffSign=FalsetxtShow。
Text=”0。”Command2(0)。Enabled=FalseCommand2(1)。Enabled=TrueCase1OffSign=TruetxtShow。Text=””FirstNum=TrueCommand2(1)。Enabled=FalseCommand2(0)。
Enabled=TrueEndSelectEndSubPrivateSubForm_Load()Me。Top=3500Me。Left=5500Num1=0Num2=0StrNum1=””StrNum2=””FirstNum=True’开头数字PointFlag=False’小数点RunSign=0SignFlag=False’无运算符号equalflag=False’无计算结果OffSign=True’关闭Command2(0)。
Enabled=TrueCommand2(1)。Enabled=FalseEndSubPublicSubRun()DimchAsStringNum1=Val(StrNum2)Num2=Val(StrNum1)OnErr ‘加equal=Num1+Num2Case2’减equal=Num1-Num2Case3’乘equal=Num1*Num2Case4’除equal=Num1/Num2EndSelectStrNum2=Trim(Str(equal))IfLeft(StrNum2,1)=”。
“ThenStrNum2=”0″+StrNum2ElseIfLeft(StrNum2,2)=”-。”ThenStrNum2=”-0。”+Right(StrNum2,Len(StrNum2)-2)EndIfStrNum1=StrNum2txtShow。
Text=StrNum2FirstNum=True’计算结果后复位标志E “除数不能为0″OffSign=TrueEndSubPublicSubClearData()Num1=0Num2=0StrNum1=””StrNum2=””FirstNum=TruePointFlag=FalseRunSign=0SignFlag=FalsetxtShow。
Text=”0。”OffSign=Falseequalflag=FalseEndSubPrivateSubmnuAbout_Click()frmAbout。ShowEndSubPrivateSubmnuExit_Click()UnloadMeEndSub。
