Vb編程計算器代碼.doc

《Vb編程計算器代碼.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、Vb編程，小計算器代碼計算器代碼Dima!,b!,c!,op$,f%,offAsBooleanPrivateSubCommand1_Click(IndexAsInteger)Ifop<>""Andf=0ThenText1.Text=""f=1EndIfText1.Text=Text1&IndexEndSubPrivateSubCommand2_Click()IfText1.Text<>""ThenText1.Text=Mid(Text1.Text,1,Len(Text1.Text)-1)EndSubPrivateSubCommand3_Click()Text1.Text=""a=0:b=0:c

2、=0:f=0:op=""EndSubPrivateSubCommand4_Click()Ifoff=FalseThenoff=TrueText1.Text=""op=""a=0:b=0:c=0Fori=0To9Command1(i).Enabled=FalseNextiFori=0To3Command5(i).Enabled=FalseNextiCommand2.Enabled=FalseCommand3.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseElseoff=FalseFori=0To9Command1(i).Enab

3、led=TrueNextiFori=0To3Command5(i).Enabled=TrueNextiCommand2.Enabled=TrueCommand3.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueEndIfEndSubPrivateSubCommand5_Click(IndexAsInteger)a=Text1.TextSelectCaseIndexCase0:op="+"Case1:op="-"Case2:op="*"Case3:op="/"EndSelectEndSubPrivateSubCommand6_Click

4、()Text1.Text=Text&"."EndSubPrivateSubCommand7_Click()b=Text1.TextSelectCaseopCase"+":c=a+bCase"-":c=a-bCase"*":c=a*bCase"/":Ifb=0ThenText1.Text="除數(shù)不能為0"Elsec=a/bEndSelectText1.Text=cf=0EndSub