最新VB循环结构练习题资料

1、精品文档VB循环结构练习题一、分析程序的运行结果（每题 2分，共60分）1>以下循环的执行次数是 OK=0Do While k<=10k=k+1Loop2、下列程序段的执行后输出的结果为 ol=4:A=5Do1=1+1 :A=A+2Loop Until l>=7Print "A="A3、下列程序的执行结果是 oT = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t: m = m + 2Loop While m <= 9Print Sum4、下列程序段的执行时，共循环 次。For a=0 To 1For b

2、=1 To 2For c=1 To 31=1+1Next c精品文档Next bnext a5、下列程序段的运行结果是：Sub sele()Dim n as Integer1=21 :n=3Do While l>nl=l-nLoopPrint IEnd Sub打印结果o6、执行下面的程序段后，s的值为oS=5For l=2.6 To 4.9 Step 2s=s+1Next I7、下列程序段的执行后输出的结果为 K= 1For I = 1 To 3A=IAIAKNext IPrint A8、下列程序的执行结果是 oM1 = 1:m2 = 1Do While m2<>6ml =

3、m1*m2 : m2 = m2+1LoopPrint ml9、下列程序的执行结果是 oPrivate Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command 1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub10、以下程序用来输出1到100所有奇数的和，请补充完该程序。Private Sub Command3_Click()Dim s As LongDim x As Integers = 0Forx=1

4、to 100 steps = s + xNext xPrint sEnd Sub11>下列程序的执行结果是 oA = 75If a>60 ThenI = 1Elself a>70 Thenl = 2Elself a>80 Thenl = 3Elself a>90 ThenI = 4End IfPrint I的值为12、下列程序段的运行后Dim t,k as singlek=5 : t=1do While k>=-1t=t*k : K=K-1loop13、下面程序段的输出结果.P=0:s=0DoP = P+2s = s+pLoop While p<11P

5、rint "s="&s14、下面程序段的输出结果.For X=1.5 To 5 Step 5Print X;NextX15、执行下面的程序段后，s的值为oS=5For l=2.6 To 4.9 Step 0.6s=s+1Next I16、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command 1_Click() a=lnputBox("请输入一个整数") b=lnputBox("请输入一个整数") Print a+bEnd Sub321 和 456,17、程序运行后，单击命令按钮，在输入对话框中分

6、别输入输出结果为。执行下面的程序段后，b的值为oA=300:b=20 a=a+b:b=a-b:a=a-b1 &下列程序段执行后 x的值是oX=100 : y=50if x>y then x=x-y else x=x+y19、有如下程序，该程序的运行结果是 oA=20 : b=10print a>b20、有如下程序，该程序的运行后输出的结果是 Private sub Command1_Click()I="AAAAAA"Mid(l,4,3)="BBB"Print IEnd Sub21、下面程序段执行后的结果是 oX=10For l=6.3

7、 to 4.9 Step -0.3x=x-1NextPrint x22在窗体上画一个命令按钮(其Name属性为CommAndl)然后编写如下 代码：Private Sub CommAndl_Click()Dim M(10) As IntegerFor k=1 To 10M(k)=12-kNext kx=6Print M(2+M(x)End Sub程序运行后，单击命令按钮，输出结果是 °23.在窗体上画一个命令按钮，然后编写如下事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5, 4, 3, 2, 1, -1 ,输出结果为精品文档Private Sub Command 1-C

8、lick（）x=0Do Until x=-2a=Val（lnputBox（"请输入 A 的值"）b=Val（lnputBox（"请输入 B 的值"）x=Val（lnputBox（"请输入 x 的值"） a=a+b+xLoopPrint aEndSub24、以下程序段中Do- Loop循环执行的次数为 n=5DoIf n Mod 2=0 Thenn=n 2Elsen=n*3+1精品文档End IfLoop until n=1A.4B.3C.5D.225. 下列程序段执行后，x的值为x=0For i=1 To 10Fck 戸 To 10x

9、=x+1Next jNext iA.50B.55C.100D.10526. 下面的程序运行结果是 oPrivate Sub Form_Click()i=0Doi=i+1if i>10 then Exit DoLoop Until i<10Print iEnd Sub27. 下面的程序运行后输出的结果是For i=1 to 2S=iFor j=0 to i-1S=S+S*iNext jPrint sNext i28. 以下程序输出的结果为x=1y=4Do Until y>4X=X*Yy=y+1LoopPrint X29. 下列程序运行后，输出结果为 °b = 1Do

10、While b < 40b = b*(b+ 1)LoopPrint b30. 当变量x=2, y=5时，以下程序的输出结果为 Do Until y>5x=x*yy=y+1LoopPrint x二、程序填空（每题 4分，共40分）1）下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。If a<b Thend=a:a=b:b=dEndlfIf a<c Thend=a:a=c:c=dEndlfIf The nd=b:b=c:c=dEndlfPrint a,b,c2) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：闰年的条件是年号可以被4整除但不能被1

11、00整除，或者能被 400整除。Private Sub Command6_Click()Dim y As Integery=lnputBox(" 请输入年号")lf(y Mod 4=0y Mod 100<>0) or (y Mod400=0) ThenPrint" 是闰年”Else Print" 是普通年份"End IfEnd Sub3) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。Private Sub Commmand1_Click()Dim x As Integerx = 100Do Until x

12、 >If x Mod 3 <> 0 ThenPrint xEnd Ifx = x + 1LoopEnd Sub4) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。Forj=1 to 10s=s+jIf s>=10 then。Next j5) 下列程序用来计算1+2+3+10的值，请补充完程序。Dim t,k as singleK=0DO While k<10K=k+1:loopprint t6. 找出被3、5、7除，余数为1的最小的5个正整数。Private sub commancH_click()Dim countN%, n%CountN =

13、 0Don = n + 1Ifthe nPrint nCountN = countN + 1End IfLoop while countN<5End sub7. 有一个长阶梯，如果每步跨 2阶最后剩1阶，如果每步跨3阶最后剩2 阶，如果每步跨 4阶最后剩3阶，如果每步跨 5阶最后剩4阶，如果每步 跨6阶最后剩5阶，只有当如果每步跨 7阶时恰好走完，显示这个阶梯至 少要有多少阶。sub commancH_click()dim n%, m%for n = 7 to 10000 step 7if n mod 2 = 1 andthenprint nexit forend ifn ext nen

14、d sub8. 期末某班在一周6天内考三门分别为 x, y, z的考试课程，规定一天只 能考一门，课程依次按先考 x,后考y,最后考z,最后一门课程最早周五 考。用计算机排考试，列出满足条件的方案和方案数sub commancH_click()dim x%,y%, z%n = 0for x = 1 to 4for y = x+1 to 5for z = 5 to 6if y < z thenprint x & space(9) & y & space(9) & zend ifnext znext ynext xprint"满足条件的方案数为；”

15、&nend sub9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的 得分。sub commancH_click()dim mark!, aver!, i%, maxi!, mini!aver=OFor i = 1 to 7mark = inp utbox("请输入第"&i&”位评为的打分”)If i = 1 thenmaxi = mark : min1=markElseIf mark < mini thenmin1=markElseif mark > maxi thenmax1=markEnd ifEnd ifNext iaver = (aver-max1-mini )/5Print averEnd sub10. 下列程序功能是判断100以内的挛生素数。所谓挛生素数是指两个数相差2的素数对。例如3和5, 5和7, 11和13等都是挛生素数。Private s