2022年VB循环结构练习题 .pdf

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

1、VB循环结构练习题一、分析程序的运行结果（每题2 分，共 60 分）1、以下循环的执行次数是_。K=0 Do While k=7 Print A=;A 3、下列程序的执行结果是_。T = O : m = 1 : Sum = 0 Do t = t + m : Sum = Sum + t : m = m + 2 Loop While m n I=I-n Loop Print I End Sub 打印结果 _。6、执行下面的程序段后，s 的值为 _。S=5 For I=2.6 To 4.9 Step 2 s=s+1 Next I 7、下列程序段的执行后输出的结果为_。K = 1 For I = 1

2、To 3 A = I I K Next I Print A 8、下列程序的执行结果是_。M1 = 1:m2 = 1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 9 页 - - - - - - - - - Do While m26 m1 = m1*m2 : m2 = m2+1 Loop Print m1 9、下列程序的执行结果是_。Private Function P(N As Integer) For I = I To N SUM = SUM + 1 Next I P

3、 = SUM End Function Private 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 Long Dim x As Integer s = 0 For x=1 to 100 step_ s = s + x Next x Print s End Sub 11、下列程序的执行结果是_。A = 75 If a60 Then I = 1 ElseIf a70

4、 Then I = 2 ElseIf a80 Then I = 3 ElseIf a90 Then I = 4 End If Print I 12、下列程序段的运行后t 的值为 _。Dim t,k as single k=5 : t=1 do While k=-1 t=t*k : K=K-1 loop 13、下面程序段的输出结果是_。P=0:s=0 Do p = p+2 s = s+p Loop While py then x=x-y else x=x+y 19、有如下程序，该程序的运行结果是_。A=20 : b=10 print ab 20、有如下程序，该程序的运行后输出的结果是_。Priv

5、ate sub Command1_Click() I=AAAAAA Mid(I,4,3)=BBB Print I End Sub 21、下面程序段执行后的结果是_。X=10 For I=6.3 to 4.9 Step -0.3 x=x-1 Next Print x 22、在窗体上画一个命令按钮(其 Name属性为 CommAnd1) ，然后编写如下代码：Private Sub CommAnd1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x) End Sub 程序运行后，单击命令按钮，输

6、出结果是_。23. 在窗体上画一个命令按钮，然后编写如下事件过程。程序运行后，单击命令按钮，依次在输入对话框中输入5，4，3，2，1，-1 ，输出结果为_ 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 9 页 - - - - - - - - - Private Sub Command1-Click() x=0 Do Until x=-2 a=Val(InputBox(”请输入A的值”)b=Val(InputBox(”请输入B的值”)x=Val(InputBox(”请输入

7、x 的值”) a=a+b+x Loop Print a EndSub 24、 以下程序段中Do Loop 循环执行的次数为_。 n=5 Do If n Mod 2=0 Then n=n 2 Else n=n*3+1 End If Loop until n=1 A.4 B.3 C.5 D.2 25. 下列程序段执行后，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.105 26. 下面的程序运行结果是_。 Private Sub Form_Click() i=0 Do i=i+1 if

8、i10 then Exit Do 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 9 页 - - - - - - - - - Loop Until i4 X=X*Y y=y+1 Loop Print X 29. 下列程序运行后，输出结果为_。 b = 1 Do While b 5 x=x*y y=y+1 Loop Print x 二、程序填空（每题4 分，共 40 分）1) 下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If ab Then d=a:a=b

9、:b=d 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 9 页 - - - - - - - - - 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) 给定年份，下列程序用来判断该年是否闰年，请补充完该程序。提示：闰年的条件是年号可以被4 整除但不能被100 整除，或者能被400整除。Private Sub Command6_Click() Dim y As Intege

10、r y=InputBox(请输入年号 ) If(y Mod 4=0_y Mod 1000) or (y Mod 400=0) Then Print 是闰年 Else Print 是普通年份 End If End 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 既停止

11、累加，退出循环，请补充完程序。 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心

12、整理 - - - - - - - 第 6 页，共 9 页 - - - - - - - - - Do n = n + 1 If _ then Print n CountN = countN + 1 End If Loop while countN5 End sub 7. 有一个长阶梯，如果每步跨2 阶最后剩 1 阶，如果每步跨3 阶最后剩 2阶，如果每步跨4 阶最后剩 3 阶，如果每步跨5 阶最后剩4 阶，如果每步跨 6 阶最后剩5 阶，只有当如果每步跨7 阶时恰好走完，显示这个阶梯至少要有多少阶。sub command1_click() dim n%, m% for n = 7 to 1000

13、0 step 7 if n mod 2 = 1 and _ then print n exit for end if next n end sub 8. 期末某班在一周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 & sp

14、ace(9) & z _ end if 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 9 页 - - - - - - - - - next z next y next x print “满足条件的方案数为 ; ” & nend sub 9. 某次大奖赛，有七个评委打分，下列程序对一名参赛者，输入7 个评委的打分分数，去掉一个最高分、一个最低分后，求出平均分为该参赛者的得分。sub command1_click() dim mark!, aver!, i%, max1!,

15、 min1! aver=0 For i = 1 to 7 mark = inputbox( “请输入第” & i & ”位评为的打分”)If i = 1 then max1 = mark : min1=mark Else If mark max1 then max1=mark End if End if _ Next i aver = (aver-max1-min1)/5 Print aver End sub 10. 下列程序功能是判断100 以内的孪生素数。所谓孪生素数是指两个数相差 2 的素数对。例如3 和 5，5 和 7，11 和 13 等都是孪生素数。 Private sub comm

16、and1_click() Dim p1 as boolean, p2 as Boolean, i%,j% p1 = true For i = 5 to 97 step 2 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 9 页 - - - - - - - - - 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 9 页 - - - - - - - - -