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

1、循環(huán)結(jié)構(gòu)測試題（四）一：選擇題1:以下（ ）是正確的for.nex結(jié)構(gòu)。(A) for x=1 to step 10(B) for x=3 to -3 step -3next xn ext x(C ) for x=1 to 10(D) for x=3 to ste p 3re:Next xnext yIf 1=10 the n goto re2:下列循環(huán)語句能正常結(jié)束循環(huán)的是（(A)1=5(B) 1=1dodo1=1+11=1+2Loop un til l<0loop un til I=10(C) I=10(D) l=6dodoI=I-1I=I-2Loop un til I<0lo

2、op un til I=13:下面程序段的運(yùn)行結(jié)果為（for I=3 to 1 ste p -print sp c(5-I);for j=1 to 2*1-1printn ext jprintn ext I(A)(B) * * * * *(C) * * * * *(D) * * * * *4下列程序在文本框輸入“ ABCD ”四個字符時，窗體上顯示的是P rivate sub text1_cha nge() print text1.text;end sub(A) ABCD(B)(D) AAB(C ) AABABCABCDABCABCD5哪個程序段不能分別正確顯示1!,2!,3!,4!的()(B

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

4、 * ”Next jNext I3:下列第40句共執(zhí)行了（）次，第41句共執(zhí)行（）次。30for j=1 to 12 ste p 340for k=6 to 2 ste p 41prin t j,k42 next k43n ext j4:以下程序運(yùn)行后，si,sj,l,j,k的結(jié)果分別是（），（），（）,（）,（），（）P rivate sub comma nd1_click()for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1n ext k sj二sj+1 n ext j si=si+1 next I print si,sj,sk,I,j,k en

5、d sub5:下面程序運(yùn)行后輸出的結(jié)果是（11）p rivate sub comma nd1_click()for 1=0 to 3print tab(5*l+1);” 2” +1; ” 2” &I;next Iend sub6:下面程序運(yùn)行后輸出的結(jié)果是（12）p rivate sub comma nd1_click()a$=”*” ;b$= ” $”for 1=2 to 4if I mod 2=0 thenx$=stri ng(le n(a$)+l,b$)elsex$=stri ng(le n(a$)+l,a$)end ifprint x$;next Iend sub7:執(zhí)行下面程

6、序，打印結(jié)果是（13）op ti on exp licitp rivate sub form_click()dim I as in tegerj as in tegerj=10for I=1 to j ste p 2I=I+1Next IJ=j-IPrint l,jEnd sub8:輸入任意長度的字符串，要求將字符順序倒置，例如：將輸入“ABCDEFG ”變換成“ GFEDCBA ”P rivate sub comma nd1_click()dim a$,l%,c$a=inputbox（輸入字符串”）n=( (14)for I =1 to (15)c=mid(a,I,1)mid(a,I,1)=

7、(16) (17) )=cn ext Iprint aend sub9:找出被3, 5, 7除，余數(shù)為1的最小的5個正整數(shù)。P rivate sub comma nd1_click()Dim cou ntN%, n%Cou ntN=ON=1DoIf (18) thenPrint nCou ntN二cou ntN+1End ifLoop (19)End sub10:某次大獎賽，有7個評委打分，如下程序?qū)σ幻麉⒓颖荣愓?，輸?個評委的打分分?jǐn)?shù)，去掉一個最高分，一個最低分?jǐn)?shù)，求出平均分為該參賽選手的得分。Private sub comma nd1_click()Dim mark!,aver!,l%,

8、max!,m in!Aver=0For I=1 to 7Mark二inputbox（輸入第“ &I& ”位評委的打分”）If l=1 thenMaxi二mark(20)else if mark< mini the n elseif mark>max1 the n（21）)（22）（23）end if end if next Iaver=( 24) print aver end sub11:由鍵盤上輸入一個正整數(shù)，找出大于或等于該數(shù)的第一個質(zhì)數(shù)。P rivate sub comma nd1_click()Dim m%,x%,tag as Boolea nTag二fal

9、seX=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 the n x=x+1LoopEnd subPrint x12:將一個正整數(shù)分解為質(zhì)因數(shù)乘機(jī)，例如:234=2*3*3*13P rivate sub comma nd1_click()dim n %,factor%,first as Boolea nn=inputbox（輸入一個正整數(shù)”）factor=2first二truedodo whil

10、e (28)if first the nprint n; ” ;factor;else- -“士”print*factor;end if(29) first=false loop factor二factor+1 loop un til factor >n end sub測試題（四）答案）選擇題123456789101112BCBCB二）填空題1: 33 2: 10 3: 4, 124:2, 3, 2, 3, 3, 4 5:2 20 3 21 4 22 5 23 6： *$*$ 7:13-16 8: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