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=1 To 2For c=1 To 31=1+1 Next cNext 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=I A I A KNext IPrint A8、___________________________ 下列程序的执行结果是_______________________ o M1 = 1:m2 = 1Do While m2<>6ml = 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 to 100 step ____s = s + xNext xPrint sEnd Sub11>下列程序的执行结果是_________ oA = 75If a>60 ThenI = 1Elself a>70 Thenl = 2Elself a>80 Thenl = 3Elself a>90 ThenI = 4End IfPrint I12、下列程序段的运行后的值为______ 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<11Print "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、程序运行后，单击命令按钮，在输入对话框中分别输入输出结果为_____ 。
执行下面的程序段后，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 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-Click（）x=0Do Until x=-2a=Val（lnputBox（"请输入A 的值"））b=Val（lnputBox（"请输入B 的值"））x=Val（lnputBox（"请输入x 的值"）） a=a+b+x LoopPrint aEndSub24、以下程序段中Do- Loop循环执行的次数为_____________n=5DoIf n Mod 2=0 Thenn=n \2Elsen=n*3+1End IfLoop until n=1A.4B.3C.5D.225. 下列程序段执行后，x的值为___________x=0For i=1 To 10F CK戸To 10x=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 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整除但不能被100整除，或者能被400整除。
Private Sub Command6_Click()Dim y As Integery=lnputBox(" 请输入年号")lf(y Mod 4=0 ________________________________ y Mod 100<>0) or (y Mod 400=0) ThenPrint" 是闰年”Else Print" 是普通年份"End IfEnd Sub3) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。
Private Sub Commmand1_Click()Dim x As Integerx = 100Do Until x > ____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 = 0Don = n + 1If ________ t he 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 and _______ thenprint nexit forend ifn ext nend sub8. 期末某班在一周6天内考三门分别为x, y, z的考试课程，规定一天只能考一门，课程依次按先考x,后考y,最后考z,最后一门课程最早周五考。