VB循环结构练习题(共9页).doc
精选优质文档-倾情为你奉上VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1、以下循环的执行次数是_。K=0Do While k<=10k=k+1Loop 2、下列程序段的执行后输出的结果为_。I=4:A=5DoI=I+1:A=A+2Loop Until I>=7 Print "A="A 3、下列程序的执行结果是_。T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum 4、下列程序段的执行时，共循环_次。For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next cNext bnext a 5、下列程序段的运行结果是：Sub sele()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_。 6、执行下面的程序段后，s的值为_。S=5For I=2.6 To 4.9 Step 2s=s+1Next I 7、下列程序段的执行后输出的结果为_。K = 1For I = 1 To 3A = I I KNext IPrint A 8、下列程序的执行结果是_。M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m1 9、下列程序的执行结果是_。Private Function P(N As Integer)For I = I To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub 10、以下程序用来输出1到100所有奇数的和，请补充完该程序。Private Sub Command3_Click()Dim s As LongDim x As Integers = 0For x=1 to 100 step_s = s + xNext xPrint sEnd Sub 11、下列程序的执行结果是_。A = 75If a>60 ThenI = 1ElseIf a>70 ThenI = 2ElseIf a>80 ThenI = 3ElseIf a>90 ThenI = 4End IfPrint I 12、下列程序段的运行后t的值为_。Dim t,k as singlek=5 : t=1do While k>=-1t=t*k : K=K-1loop 13、下面程序段的输出结果是_。P=0:s=0Dop = p+2s = s+pLoop While p<11Print "s="&s 14、下面程序段的输出结果是_。For X=1.5 To 5 Step 5Print X;Next X 15、执行下面的程序段后，s的值为_。S=5For I=2.6 To 4.9 Step 0.6s=s+1Next I 16、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox("请输入一个整数")b=InputBox("请输入一个整数")Print a+bEnd Sub17、程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为_。执行下面的程序段后，b的值为_。A=300:b=20a=a+b:b=a-b:a=a-b 18、下列程序段执行后x的值是_。X=100 : y=50if x>y then x=x-y else x=x+y 19、有如下程序，该程序的运行结果是_。A=20 : b=10print a>b 20、有如下程序，该程序的运行后输出的结果是_。Private sub Command1_Click()I="AAAAAA"Mid(I,4,3)="BBB"Print IEnd Sub 21、下面程序段执行后的结果是_。X=10For I=6.3 to 4.9 Step -0.3x=x-1NextPrint x 22、在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编写如下代码：Private Sub CommAnd1_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 Command1-Click() x=0Do Until x=-2a=Val(InputBox(”请输入A的值”) b=Val(InputBox(”请输入B的值”) x=Val(InputBox(”请输入x的值”) a=a+b+x Loop Print aEndSub24、 以下程序段中DoLoop循环执行的次数为_。 n=5 Do If n Mod 2=0 Then n=n2 Else n=n*3+1 End IfLoop until n=1 A.4 B.3 C.5 D.225. 下列程序段执行后，x的值为_。 x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i A.50 B.55 C.100 D.10526. 下面的程序运行结果是_。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub27. 下面的程序运行后输出的结果是_ For i=1 to 2 S=i For j=0 to i-1 S=S+S*i Next j Print s Next i28. 以下程序输出的结果为_。 x=1 y=4 Do Until y>4 X=X*Y y=y+1 Loop Print X29. 下列程序运行后，输出结果为_。 b = 1 Do While b < 40 b = b * (b + 1) Loop Print b30当变量x=2，y=5时，以下程序的输出结果为_。 Do Until y>5 x=x*y y=y+1Loop Print x 二、程序填空（每题4分，共40分）1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a<b Then d=a:a=b:b=d EndIf If a<c Then d=a:a=c:c=d EndIf If_Then d=b:b=c:c=d EndIf Print a,b,c 2) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。Private Sub Command6_Click()Dim y As Integer y=InputBox("请输入年号")If(y Mod 4=0_y Mod 100<>0) or (y Mod 400=0) Then Print "是闰年"Else Print "是普通年份"End IfEnd Sub 3) 以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100 Do Until x > _ If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop End Sub 4) 下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。 For j=1 to 10 s=s+j If s>=10 then_。 Next j 5) 下列程序用来计算1+2+3+10的值，请补充完程序。 Dim t,k as single K=0 DO While k<10 K=k+1:_ loop print t 6. 找出被3、5、7除，余数为1的最小的5个正整数。 Private sub command1_click() Dim countN%, n% CountN = 0 n = 1 Do n = n + 1 If _ then Print n CountN = countN + 1 End If Loop while countN<5End sub7. 有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，显示这个阶梯至少要有多少阶。sub command1_click() dim n%, m% for n = 7 to 10000 step 7 if n mod 2 = 1 and _ then print n exit for end if next nend sub8. 期末某班在一周6天内考三门分别为x, y, z的考试课程，规定一天只能考一门，课程依次按先考x,后考y，最后考z，最后一门课程最早周五考。用计算机排考试，列出满足条件的方案和方案数.sub command1_click() dim x%, y%, z% n = 0 for x = 1 to 4 for y = x+1 to 5 for z = 5 to 6 if y < z then print x & space(9) & y & space(9) & z _ end if next z next y next x print “满足条件的方案数为;” & nend sub9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。sub command1_click() dim mark!, aver!, i%, max1!, min1! aver=0 For i = 1 to 7 mark = inputbox(“请输入第” & i & ”位评为的打分”) If i = 1 then max1 = mark : min1=mark Else If mark < min1 then min1=mark Elseif mark > max1 then max1=mark End if End if _ Next i aver = (aver-max1-min1)/5 Print averEnd sub10. 下列程序功能是判断100以内的孪生素数。所谓孪生素数是指两个数相差2的素数对。例如3和5，5和7，11和13等都是孪生素数。 Private sub command1_click() Dim p1 as boolean, p2 as Boolean, i%,j% p1 = true For i = 5 to 97 step 2 For j = 2 to sqr(i) If i mod j = 0 then _ Next j If j > sqr(i) then p2 =true else p2 = false If p1 and p2 then Print i 2, i End if p1 = p2 Next i End sub专心-专注-专业
