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 step 3re:Next xnext yIf I=10 the n goto re2:下列循環(huán)語句能正常結(jié)束循環(huán)的是（(A) I =5(B) I=1dodoI=I+1I=I+2Loop un til l0loop un til I=10(C) l=10(D) I=6dodoI=I-1I=I-2Loop un til I0loop un til I=

2、13:下面程序段的運行結(jié)果為（）for I=3 to 1 step -print spc(5-l);for j=1 to 2*1-1printnext jprintn ext I(A)(B)(C) * * * * *(D) * * * * *4下列程序在文本框輸入“ ABCD ”四個字符時，窗體上顯示的是private sub text1_cha nge()print text1.text;end sub(A) ABCD(B)(D) A(C ) AABABCABCDABABCABCD5哪個程序段不能分別正確顯示1!,2!,3!,4!的()(B)for I=1 to 4 for j=1 to I

3、 n=1 n=n*j next j print n next i(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 4 n=n*j print n next j(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)變量的初值應當是:for k=()to 45 step 2:下面程序段顯示()個“ * ”。For I=1 to 5For j=2 to IPri nt “ * ”；Next jNext

4、I3:下列第40句共執(zhí)行了()次，第41句共執(zhí)行()30 for j=1 to 12 step 340 for k=6 to 2 step 41 prin t j,k42next k43n ext j4:以下程序運行后，si,sj,l,j,k的結(jié)果分別是（），（）,（），（），（）,（）private sub comma nd1_click（）for I=1 to 2for j=1 to Isk=0for k=j to 3sk=sk+1n ext ksj=sj+1n ext jsi=si+1n ext Iprint si,sj,sk,l,j,kend sub5:下面程序運行后輸出的結(jié)果是（11

5、）private sub comma nd1_click（）for l=0 to 3print tab（5*l+1）;” 2” +l; ” 2” &l;n ext lend sub(12)6:下面程序運行后輸出的結(jié)果是(private sub comma nd1_click() a$=”* ” ；b$= ” $”for 1=2 to 4if I mod 2=0 thenx$=stri ng(le n(a$)+I,b$)elsex$=str in g(le n(a$)+l,a$)end ifprint x$;n ext Iend sub7:執(zhí)行下面程序，打印結(jié)果是(13)opti on expl

6、icitprivate sub form_click()dim I as integerj as integerj=10for l=1 to j step 2l=l+1Next IPrint l,jEnd sub8:輸入任意長度的字符串，要求將字符順序倒置，例如：將輸入“ ABCDEFG ”變換成“ GFEDCBA ”private 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)=(16)(17) )=cn ext Iprint aend sub9

7、:找出被3, 5, 7除，余數(shù)為1的最小的5個正整數(shù)。Private sub comma nd1_click()Dim cou ntN% ,n%Cou ntN=ON=1DoIf (18) the nPri nt nCou ntN二cou ntN+1End ifLoop (19)End sub10:某次大獎賽，有7個評委打分，如下程序?qū)σ幻麉⒓颖荣愓撸斎?7個評委的打分分數(shù)，去掉一個最高分，一個最低分數(shù)，求出平均分 為該參賽選手的得分。Private sub comma nd1_click()Dim mark!,aver!,l%,max!,mi n!Aver=0For I=1 to 7Mark

8、二inputbox(輸入第“ &I& ”位評委的打分”)If l=1 the njfr I Maxi二mark(20)elseif markmax1 the nend ifend if(23)n ext Iaver=( (24)print averend sub11:由鍵盤上輸入一個正整數(shù)，找出大于或等于該數(shù)的第一個質(zhì)數(shù)。Private sub comma nd1_click()Dim m%,x%,tag as Boolea nTag二falseX=inputbox(輸入正整數(shù)”)Do while not tagM=2Tag=( (25)Do while tag and (m nend sub測試題（四）答案）選擇題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