VB循環(huán)結(jié)構(gòu)測(cè)試題及答案

1、資料收集于網(wǎng)絡(luò)，如有侵權(quán) 請(qǐng)聯(lián)系網(wǎng)站刪除循環(huán)結(jié)構(gòu)測(cè)試題 （四）一：選擇題1以下（）是正確的for.nex結(jié)構(gòu)。只供學(xué)習(xí)與交流A) for x=1 to step 10(B) for x=3 to -3 step -3next x(D) for x=3 to step 3next y)(B) I=1 doI=I+2loop until I=10(D) I=6doI=I-2loop until I=1next x(C ) for x=1 to 10 re: .Next xIf I=10 then goto re2:下列循環(huán)語句能正常結(jié)束循環(huán)的是( A) I=5doI=I+1Loop until I

2、<0(C) I=10doI=I-1Loop until I<03:下面程序段的運(yùn)行結(jié)果為()for I=3 to 1 step -1print spc(5-I);for j=1 to 2*1-1print “ * n ext j printn ext Il(A)*(B)(C)(D)4下列程序在文本框輸入“ ABCD ”四個(gè)字符時(shí)，窗體上顯示的是private sub text1_cha nge()print text1.text;end sub(A) ABCD(B) A(C )AABABCABCDB(D) AABABCABCD5哪個(gè)程序段不能分別正確顯示1!,2!,3!,4!的()

3、(A)for 1=1 to 4n=1 for j=1 to I n=n*j n ext j print n n ext i(C) N=1for j=1 to 4n=n*jprint nn ext j(B)for I=1 to 4for j=1 to I n=1 n=n*j next j print n next i(D)N=1J=1 Do while j<=4 n=n*j print n j=j+1 loop:填空題1:要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是：for k=（）to 45 step 2:下面程序段顯示（）個(gè)“ * ”。For I=1 to 5For j=2

4、to IPri nt“ * ”；Next jNext I3:下列第40句共執(zhí)行了（）次，第41句共執(zhí)行（ ）次30 for j=1 to 12 step 340 for k=6 to 2 step 41 prin t j,k42 next k43 next j4:以下程序運(yùn)行后，si,sj,l,j,k的結(jié)果分別是（），（©）,（）， （），（）,（）private sub command1_click（ ）for l=1 to 2for j=1 to lsk=0for k=j to 3sk=sk+1next ksj=sj+1next jsi=si+1next lprint si,sj

5、,sk,l,j,kend sub5:下面程序運(yùn)行后輸出的結(jié)果是（11）private sub command1_click（）for l=0 to 3print tab（5*l+1）;”2”+l; ”2”&l;next l(12)end sub 6:下面程序運(yùn)行后輸出的結(jié)果是( private sub command1_click() a$=”*”;b$= ”$”for I=2 to 4if I mod 2=0 thenx$=string(len(a$)+I,b$)elsex$=string(len(a$)+I,a$)end ifprint x$;next Iend sub7：執(zhí)行下面

6、程序，打印結(jié)果是(13)option explicitprivate sub form_click( )dim I as integer,j as integerj=10for I=1 to j step 2I=I+1J=j-INext IPrint I,jEnd sub8:輸入任意長度的字符串，要求將字符順序倒置，例如：將輸入“ ABCDEFG ”變換成“ GFEDCBA ”private sub command1_click()dim a$,I%,c$a=inputbox( 輸“入字符串 ”)n=( (14)for I =1 to (15)c=mid(a,I,1)mid(a,l,1)=(1

7、6)(17) )=cnext Iprint aend sub9：找出被 3，5，7 除，余數(shù)為 1 的最小的 5 個(gè)正整數(shù)。Private sub command1_click()Dim countN%,n%CountN=0N=1DoN=n+1If (18) the nPrint nCountN=countN+1End ifLoop (19)End sub10：某次大獎(jiǎng)賽， 有 7 個(gè)評(píng)委打分，如下程序?qū)σ幻麉⒓颖荣愓?，輸? 個(gè)評(píng)委的打分分?jǐn)?shù)，去掉一個(gè)最高分，一個(gè)最低分?jǐn)?shù)，求出平均分 為該參賽選手的得分。Private sub command1_click()Dim mark!,aver!,

8、I%,max!,min!Aver=0For I=1 to 7Mark=inputbox( 輸“入第“ &I& ”位評(píng)委的打分 ”)If I=1 thenMax1=mark(20)elseif mark<min1 then( ( 21)elseif mark>max1 then( ( 22) )end ifend if( ( 23) )next Iaver=(24) )print averend sub11：由鍵盤上輸入一個(gè)正整數(shù)， 找出大于或等于該數(shù)的第一個(gè)質(zhì)數(shù)。Private sub command1_click( )Dim m%,x%,tag as Boolea

9、nTag=falseX=inputbox( 輸“入正整數(shù) ”)Do while not tagM=2Tag=( (25) )Do while tag and (m<(x2)If x mod m=0 then ( ( 26) ) else ( ( 27) )LoopIf not tag then x=x+1LoopPrint xEnd sub12：將一個(gè)正整數(shù)分解為質(zhì)因數(shù)乘機(jī)，例如： 234=2*3*3*13 private sub command1_click()dim n%,factor%,first as Booleann=inputbox( 輸“入一個(gè)正整數(shù) ”)factor=2f

10、irst=truedodo while ( (28) )if first thenprint n; ” =” ;factor;elseprint “* ”;factor;end if(29) )first=falseloopfactor=factor+1loop until factor>nend sub測(cè)試題（四）答案）選擇題123456789101112BCBCB二） 填空題1： 332： 10 3: 4，124:2, 3，2，3，3，45:2 20 3 21 4 22 5 236 ： *$*$7:13-168:LEN(a),i nt(n 2),mid(a ,n-l+1,1),mid(a ,n-1+1,1)9:n mod 3=1 and n mod 5=1 and n mod 7=1