VB循环结构练习题(共9页).doc

《VB循环结构练习题(共9页).doc》由会员分享，可在线阅读，更多相关《VB循环结构练习题(共9页).doc（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选优质文档-倾情为你奉上VB循环结构练习题一、分析程序的运行结果（每题2分，共60分）1、以下循环的执行次数是_。K=0Do While k=7 Print A=;A 3、下列程序的执行结果是_。T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m 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

2、 = I I KNext IPrint A 8、下列程序的执行结果是_。M1 = 1:m2 = 1Do While m26m1 = 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所有奇数的和，请补充完该程序。Pr

3、ivate 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 a60 ThenI = 1ElseIf a70 ThenI = 2ElseIf a80 ThenI = 3ElseIf a90 ThenI = 4End IfPrint I 12、下列程序段的运行后t的值为_。Dim t,k as singlek=5 : t=1do While k=-1t=t*k : K=K-1loop 13、下

4、面程序段的输出结果是_。P=0:s=0Dop = p+2s = s+pLoop While py then x=x-y else x=x+y 19、有如下程序，该程序的运行结果是_。A=20 : b=10print ab 20、有如下程序，该程序的运行后输出的结果是_。Private sub Command1_Click()I=AAAAAAMid(I,4,3)=BBBPrint IEnd Sub 21、下面程序段执行后的结果是_。X=10For I=6.3 to 4.9 Step -0.3x=x-1NextPrint x 22、在窗体上画一个命令按钮(其Name属性为CommAnd1)，然后编

5、写如下代码：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(I

6、nputBox(”请输入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

7、 i10 then Exit Do Loop Until i4 X=X*Y y=y+1 Loop Print X29. 下列程序运行后，输出结果为_。 b = 1 Do While b 5 x=x*y y=y+1Loop Print x 二、程序填空（每题4分，共40分）1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If ab Then d=a:a=b:b=d EndIf If ac Then d=a:a=c:c=d EndIf If_Then d=b:b=c:c=d EndIf Print a,b,c 2) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：

8、闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。Private Sub Command6_Click()Dim y As Integer y=InputBox(请输入年号)If(y Mod 4=0_y Mod 1000) 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

9、 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 k10 K=k+1:_ loop print t 6. 找出被3、5、7除，余数为1的最小的5个正整数。Private sub command1_click() Dim countN%, n% CountN = 0 n = 1

10、Do n = n + 1 If _ then Print n CountN = countN + 1 End If Loop while countN5End 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

11、 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 su

12、b9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。sub command1_click() dim mark!, aver!, i%, max1!, min1! aver=0 For i = 1 to 7 mark = inputbox(“请输入第” & i & ”位评为的打分”) If i = 1 thenmax1 = mark : min1=mark Else If mark max1 then max1=mark End if End if _ Next i aver = (aver-max1-mi

13、n1)/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 jIf 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专心-专注-专业