欢迎来到天天文库
浏览记录
ID:26045242
大小:81.00 KB
页数:10页
时间:2018-11-24
《vb 判断一个数是不是完数.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、1、判断一个数是不是完数PrivateSubCommand1_Click()DimmAsInteger,iAsInteger,jAsInteger,sumAsIntegerDima()AsIntegerm=Text1.TextFori=1Tom-1IfmModi=0Thensum=sum+ij=j+1ReDimPreservea(i)AsIntegera(i)=iEndIfNextiIfm=sumThenPicture1.Printm&"是完数,因为"Picture1.Printm;"=";Fori=1ToUBound(a)-1Picture1.Printa(i);
2、"+";NextiPicture1.Printa(i)ElsePicture1.Printm&"不是完数"EndIfEndSubPrivateSubCommand2_Click()Picture1.ClsText1.Text=""Text1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub2、选择排序法OptionExplicitOptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,tAsIntegerDimiAsInteger,jAsIntegerRandom
3、izeFori=1To10a(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))NextiFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjText2=Text2&Str(a(i))NextiText2=Text2&Str(a(i))EndSub1、冒泡排序法PrivateSubForm_Click()Dima(5)AsDoubleDimi,jAsInteger'给数组赋值Fori=1To5temp=InputBox("请输入"+Str(i)+"个数字","
4、输入")IfIsNumeric(temp)Then'是数字就将数字赋值给数组a(i)=tempElse'不是数字就将数组置0a(i)=0EndIfNexti'排序Fori=1To4Forj=1To5-iIfa(j)5、rDimjAsIntegerDimxAsIntegerx=Val(InputBox("请输入一个自然数:","输入提示"))Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThen'此处若i的值变为x则说明所以上面的循环全被执行完Printx&"是素数"ElsePrintx&"不是素数"'若i6、9Forb=0To9Forc=0To9i=a*100+b*10+cIfi=a^3+b^3+c^3Thenst=i&"="&a&"^3+"&b&"^3+"&c&"^3"PrintstEndIfNextcNextbNextaEndSub3、显示系统时间PrivateSubForm_Load()DimsAsString,nAsIntegern=Weekday(Now,2)Ifn=7Thens="日"ElseIfn=6Thens="六"ElseIfn=5Thens="五"ElseIfn=4Thens="四"ElseIfn=3Thens="三"ElseIfn=2Thens="7、二"ElseIfn=1Thens="一"EndIfLabel1.Caption="今天是"&Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"&"星期"&sLabel2.Caption=Time()EndSub1、求三个数的最小公倍数OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimlAsLong,cAsIntegera=Text1b=Text2c=Text3l=lcm(lcm(a,b),c)Text4=lEndSubPrivateFunction
5、rDimjAsIntegerDimxAsIntegerx=Val(InputBox("请输入一个自然数:","输入提示"))Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThen'此处若i的值变为x则说明所以上面的循环全被执行完Printx&"是素数"ElsePrintx&"不是素数"'若i6、9Forb=0To9Forc=0To9i=a*100+b*10+cIfi=a^3+b^3+c^3Thenst=i&"="&a&"^3+"&b&"^3+"&c&"^3"PrintstEndIfNextcNextbNextaEndSub3、显示系统时间PrivateSubForm_Load()DimsAsString,nAsIntegern=Weekday(Now,2)Ifn=7Thens="日"ElseIfn=6Thens="六"ElseIfn=5Thens="五"ElseIfn=4Thens="四"ElseIfn=3Thens="三"ElseIfn=2Thens="7、二"ElseIfn=1Thens="一"EndIfLabel1.Caption="今天是"&Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"&"星期"&sLabel2.Caption=Time()EndSub1、求三个数的最小公倍数OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimlAsLong,cAsIntegera=Text1b=Text2c=Text3l=lcm(lcm(a,b),c)Text4=lEndSubPrivateFunction
6、9Forb=0To9Forc=0To9i=a*100+b*10+cIfi=a^3+b^3+c^3Thenst=i&"="&a&"^3+"&b&"^3+"&c&"^3"PrintstEndIfNextcNextbNextaEndSub3、显示系统时间PrivateSubForm_Load()DimsAsString,nAsIntegern=Weekday(Now,2)Ifn=7Thens="日"ElseIfn=6Thens="六"ElseIfn=5Thens="五"ElseIfn=4Thens="四"ElseIfn=3Thens="三"ElseIfn=2Thens="
7、二"ElseIfn=1Thens="一"EndIfLabel1.Caption="今天是"&Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"&"星期"&sLabel2.Caption=Time()EndSub1、求三个数的最小公倍数OptionExplicitPrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDimlAsLong,cAsIntegera=Text1b=Text2c=Text3l=lcm(lcm(a,b),c)Text4=lEndSubPrivateFunction
此文档下载收益归作者所有