20121229vb编程题目-含答案

《20121229vb编程题目-含答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2012年12月29日VB--编程题第一题（1）PrivateSubCommand1_Click()'''不得删除本行注释Dimyear%year=Val(Trim(Text1.Text))IfyearMod4=0AndyearMod100<>0OryearMod400=0ThenText2.Text="是闰年"ElseText2.Text="非闰年"EndIfEndSub（2）PrivateSubCommand1_Click()'''不得删改本行注释DimN%,i%N=Val(Trim(Text1.Text))Text2.Text=""Fori=1ToNIfSqr(i)

2、=Int(Sqr(i))ThenText2.Text=Text2.Text&i&""EndIfNextiText1.Text=""EndSub（3）PrivateSubcommand1_click()'''不得删改本行注释DimN%,i%,count%N=Len(Trim(Text1.Text))Fori=1ToNIfMid(Text1.Text,i,1)>="0"AndMid(Text1.Text,i,1)<="9"Thencount=count+1EndIfNextiText2.Text=Str(count)EndSub（4）PrivateSubCommand1_Cl

3、ick()'''不得删改本行注释Dimscore%score=Val(Text1.Text)SelectCasescoreCase0To59Text2.Text="不合格"Case60To79Text2.Text="合格"Case80To100Text2.Text="优良"CaseElseText2.Text="成绩出错！"EndSelectEndSub（5）PrivateSubCommand1_Click()'''不得删改本行注释DimN%,a%,b%,c%N=Val(Text1.Text)a=N100b=(NMod100)10c=NMod10Ifa^3+b^3+c

4、^3=NThenLabel1.Caption="是水仙花数"ElseLabel1.Caption="不是水仙花数"EndIfEndSub第二题（1）PrivateSubCommand1_Click()'''不得删改本行注释Dimi%Fori=100To200IfIsprime(i)=FalseThenText1.Text=Text1.Text&i&""NextiEndSub（2）PrivateSubCommand1_Click()'''不得删改本行注释Text2.Text=Str(zh(Text1.Text))EndSub（3）PrivateSubcommand1_cli

5、ck()'''不得删改本行注释Dimi%Text1.Text=""Fori=1To10A(i)=Int(Rnd*90+10)Text1.Text=Text1.Text&A(i)&""NextiEndSubPrivateSubCommand2_Click()'''不得删改本行注释Dimi%,max%,min%max=A(1)min=A(1)Fori=2To10IfA(i)>maxThenmax=A(i)IfA(i)

6、k()'''不得删改本行注释Dima$Text1.Text=""OpenApp.path&”&"pdzm.txt"ForInputAs#1DoWhileNotEOF(1)LineInput#1,aText1.Text=Text1.Text&aLoopClose#1EndSubPrivateSubCommand2_Click()'''不得删改本行注释Dimn$,i%,count%n=Text2.TextFori=1ToLen(Text1.Text)IfUCase(Mid(Text1.Text,i,1))=UCase(Text2.Text)Thencount=count+1

7、NextiText3.Text=countEndSub（5）PrivateSubCommand1_Click()'''不得删改本行注释Dimi%,num%OpenApp.path&”&"input02.txt"ForInputAs#1Fori=1To20Input#1,numa(i)=numText1.Text=Text1.Text&a(i)&""NextiClose#1EndSubPrivateSubCommand2_Click()'''不得删改本行注释Dimsum%,i%sum=0Fori=1To20sum=sum+a(