用VB编写简易计算器(带运行图).doc

《用VB编写简易计算器(带运行图).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、简易计算器：OptionExplicitDimFlgAsBoolean,OpAsInteger,FirstAsSinglePrivateSubCommand1_Click(IndexAsInteger)IfIndex=10ThenText1.Text=Text1.Text&"."ElseText1.Text=Text1.Text&CStr(Index)EndIfIfLen(Text1)=2AndLeft(Text1,1)="0"AndMid(Text1,2,1)<>"."ThenText1=Mid(Text1,2)End

2、IfEndSubPrivateSubCommand2_Click(IndexAsInteger)First=Val(Text1.Text)Op=IndexText1.Text=""EndSubPrivateSubCommand3_Click()Text1.Text=""First=0EndSubPrivateSubCommand4_Click()DimSecAsSingleSec=Val(Text1.Text)SelectCaseOpCase0Text1.Text=Str(First+Sec)Case1Text1.Tex

3、t=Str(First-Sec)Case2Text1.Text=Str(First*Sec)Case3IfSec<>0ThenText1.Text=Str(First/Sec)ElseText1.Text="除数为0"EndIfCase4IfSec<>0ThenText1.Text=Str(FirstModSec)ElseText1.Text="除数为0"EndIfEndSelectEndSubPrivateSubCommand5_Click()EndEndSub运行画面：