vb实验指导书_理论综合练习题_答案(完结版)

《vb实验指导书_理论综合练习题_答案(完结版)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页第二部分综合练习理论练习一一单选1-5CDCCB6-10ABDCD11-15CCBBD16-20DBCBA二多选1ABCE2CE3BCE4ADE5ABCD6ABCDE7ACD8ABCDE9ABC10ABCDE三判断1-5×√×√√6-10√×√√√四填空1x=int(Rnd*101)EndIfavg=s/82i=1to10Right(str(i),1)或Right(str(imod10))3m*n/GCD(m,n)GCD(b,amodb)4ExitFori&“是素数”Nexti五阅读程序1-4DDCB六程序设计1OptionB

2、ase1PrivateSubForm_click()Dima(10)Clscreatedataa()sorta()Fori=1To10《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页Printa(i);NextiEndSubSubcreatedata(a())Fori=1To10a(i)=Int(Rnd*101)NextiEndSubSubsort(a())Fori=1To9Forj=1To10-iIfa(j)>a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=tEndIfNextjNextiEndSub2PrivateTypeksnoAsString

3、*8BscjAsIntegerSjcjAsIntegerEndTypeDimstudentAsksPrivateSubForm_Load()Open"c:ksxx.dat"ForRandomAs#1Len=Len(student)EndSubPrivateSubcmdadd_Click()student.no=Text1.Textstudent.Bscj=Val(Text2.Text)student.Sjcj=Val(Text3.Text)lastrecord=LOF(1)/Len(student)+1Put#1,lastrecord,studentText1.Text=""Text2.Te

4、xt=""Text3.Text=""EndSubPrivateSubcmdquit_Click()Close#1EndEndSub《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页理论练习二一单选1-5CABCD6-10ABCCD11-15BBBAB16-20DBAAC二多选1CD2AD3CE4BC5AD6BCDE7CDE8ABCDE9ABD10ACDE三判断1-5××××√6-10√√√××四填空1n-1或者Sqr(n)0True2xy31to102*i-14Button=2start=True-(x,y)五阅读程序1-5DBDAB六程序设计1PrivateSubForm_

5、click()japan=47528china=22257n=0DoWhilechina<=japanchina=china*1.098japan=japan*1.028n=n+1LoopPrintn&"年之后，中国GDP将超过日本"EndSub《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页2'VB6中的Split函数，其功能是将一字符串用分界符分割为一字符串数组。'例如:'Dima()AsString's="1;2;3;4"'a=Split(s,";")'得到的结果如下:'a(1)="1"'a(2)="2"'a(3)="3"'a(4)="4"PrivateSubComm

6、and1_Click()Dima()AsStringa=Split(Text1.Text,"")Fori=LBound(a)ToUBound(a)a(i)=UCase(Left(a(i),1))&Mid(a(i),2)'Mid(a(i),2)代表从第2位开始取，一直取到最后一位Label1.Caption=Label1.Caption+a(i)+""NextiEndSubPrivateSubForm_Load()Label1.Caption=""EndSub《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页理论练习三一单选1-5DBDBD6-10CCBBD11-15ADDDC

7、16-20BBBBA二多选1CDE2ABCD3ADE4BCE5BCE6ACD7ADE8BCE9AC三判断1-5××√√×6-10√√××√四填空1Frm2Single352*k-1“#”nextj4x=2ton-1nmodx=0falsef=true五阅读程序1-4BDCB六程序设计略《VB程序设计》实验指导与练习题理论练习(1~6)_答案第8页共8页理论练习四一单选1-5CDBBA6-10CAB