欢迎来到天天文库
浏览记录
ID:57691152
大小:14.50 KB
页数:2页
时间:2020-09-01
《Vb编程计算器代码.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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="除数不能为0"Elsec=a/bEndSelectText1.Text=cf=0EndSub
此文档下载收益归作者所有