【测试】分支循环测试作业(VB第五章测试题)

1、我的试卷 测试得分： 88.0 分 1. 单选题： （4.0分） 有如下程序：Private Sub Command1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运行时从键盘上输入-5，输出结果是_。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答：A   参考答案：

2、 A    2. 单选题： （4.0分） 下列程序段的执行结果是_。X = 2 Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. True B. False C. -1 D. 1 解答：B   参考答案： B    3. 单选题： （2.0分） 关于语句If x=1 Then y=1，下列说法正确的是_。 A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D

3、. x=1为赋值语句，y=1为关系表达式 解答：C   参考答案： C    4. 单选题： （2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_。 A. Case 20>Is B. Case x<=8 ，10 to 25 C. Case Is>9 And Is<25 D. Case Is>x 解答：D   参考答案： D    5. 单选题： （4.0分） 在窗体上画一个名称为Command1的命令按钮和两

4、个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是_ A. 10 B. 20 C. 30 D. 40 解答：A   参考答案： A 

5、0;  6. 单选题： （4.0分） 运行下面程序，如果输入85，则输出结果是_。Dim a As Integer, i As Integera = InputBox("input a:")If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i=" i A. i=1 B. i = 2 C. i = 3 D. i = 4 解答：C   参考答案： C  

6、  7. 单选题： （4.0分） 下面程序段的运行结果为 。Dim s As Integer, i As Integeri = 1: s = 1Doi = i + sLoop Until s > 10Print i, s A. 11 1 B. 10 1 C. 溢出 D. 11 10 解答：C   参考答案： C    8. 单选题： （4.0分） 执行以下语句后，a的值为_。Dim a As Integera = 1Do a = a + 2Loop Until a = 100A. 99 B. 100 C. 溢出 D.

7、101 解答：C   参考答案： C    9. 单选题： （4.0分） 执行以下语句后，a的值为_。Dim a As Integera = 1Do a = a + 2Loop While a = 100 A. 1 B. 3 C. 溢出 D. 101 解答：B   参考答案： B    10. 单选题： （4.0分） 在下面的程序段中，循环体将执行_次。For v=20 To 10 Step -2print vNext vA. 5 B. 6 C. 10 D. 0 解答：B&#

8、160;  参考答案： B    11. 单选题： （4.0分） 下面程序运行后，单击command1后屏幕显示是_。Private Sub command1_click()For i = 1 To 4If i > 3 Then Exit ForNext iFor j = 1 To 6i = i + jNext jPrint i, jEnd SubA. 26 B. 257 C. 25 D. 266 解答：B   参考答案： B    12. 填空题： （6.0分）  下

9、面程序的功能是：输入X的值，按以下公式求Y的值。Y=y=100-X -100X<10 y=100+X 10X100y=400 100<X200Private Sub command1_click()x = Val(text1.Text)Select Case xCase （1） Print "x<-100 or x>200"Case （2） y = 100 - xCase （3） y = 100 + xCase Elsey = 400End Selecttext2.Text = yEnd Sub空1解答： Is<-100 空1参考答案：Is&l

10、t;-100,Is>200、Is>200,Is<-100 空2解答： Is<10 空2参考答案：Is<10 空3解答： Is<=100 空3参考答案：Is<=100、10 to 100 13. 填空题： （4.0分）  任意输入两个数a和b，要求a中存放较大的数,完善以下程序。Private Sub Form_Click()Dim a As Integer, b As Integera = InputBox("输入第一个数")b = InputBox("输入第二个数")If a <b Then（1

11、）a =b（2）End IfPrint a; bEnd Sub空1解答： temp = a 空1参考答案：temp = a 空2解答： b = temp 空2参考答案：b = temp 14. 填空题： （4.0分）  阅读下列程序，如果运行时从键盘上输入5，则输出的结果为_。Private Sub Command1_Click( )Dim n As Integern = InputBox("输入n的值")Do While n > 0n = n - 1Print n;LoopPrint nEnd Sub空1解答： 4 3 2 1 0 0 空1参考答案： 4

12、3 2 1 0 0 15. 填空题： （4.0分）  以下程序是求1到1000之间所有能被3整除的数的和，按要求完善程序。Private Sub Command1_Click()Dim n As Integer, s As Longn = 1Do While n <= 1000If n Mod 3 = 0 Then (1) （2） LoopPrint sEnd Sub空1解答： s=s+n 空1参考答案：s=s+n、s=n+s 空2解答： n=n+1 空2参考答案：n=n+1、n=1+n 16. 填空题： （6.0分）  以下程序用于验证一个自然数N的立方等于N个连续

13、的奇数之和，其中最大的奇数P=N*（N+1）-1。例如：43=19+17+15+13，最大奇数等于19。要求用户任意输入一个自然数，比如4，如满足定理，则在窗体上按如下格式输出：4的立方64=19+17+15+13，否则提示“定理不成立！”。Private Sub Form_Click( )Dim n As Integer, num As Long, p As IntegerDim s As Long, i As Integer, j As Integern = InputBox("请输入任一自然数")num = （1） p = n * (n + 1) - 1For i =

14、 1 To ns = s + p（2） Next ip = n * (n + 1) - 1If s = num ThenPrint n; "的立方" num; "="For j = 1 To （3） Print p; "+"p = p - 2Next jPrint pElseMsgBox "定理不成立！"End IfEnd Sub空1解答： n3 空1参考答案：n*n*n、n3 空2解答： p=p-2 空2参考答案：p=p-2 空3解答： n-1 空3参考答案：n-1 17. 填空题： （6.0分）  以

15、下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。Private Sub Form_Click()Dim s As Integer, i As IntegerDim k As Integer, max As Integer, min As IntegerRandomizek = Int(Rnd * 100) + 1max = k: min = k（1） For i = 1 To 19k = Int(Rnd * 100) + 1s = s + kIf （2） Then max = kIf k < min Then min = kNext is =

16、（3） Print "average=" s / 18End Sub空1解答： s=k 空1参考答案：s=k 空2解答： k>max 空2参考答案：k>max、max<> 空3解答： s-max-min 空3参考答案：s-max-min、s-min-max 18. 填空题： （6.0分）  完善下列程序，要求实现按每行5个输出1到100之间所有的素数。Private Sub Form_Click()Dim n As Integer, i As IntegerDim k As Integer, flag As BooleanFor n = 2

17、 To 100(1) For i = 2 To Sqr(n)If n Mod i = 0 Thenflag = False(2) End IfNext iIf flag ThenPrint n;(3) If k Mod 5 = 0 Then PrintEnd IfNext nEnd Sub空1解答： flag=true 空1参考答案：flag=true 空2解答： exit for 空2参考答案：exit for 空3解答： k=k+1 空3参考答案：k=k+1、k=1+k 19. 填空题： （6.0分）  下面的程序是找出两个正整数a和b，使a<b、a+b=99、a和b的最大

18、公约数是3的倍数，并统计满足条件数对的个数。Private Sub Command1_Click()Dim a As Integer, b As IntegerDim m As Integer, n As IntegerDim r As Integer, k As IntegerFor a = 1 To 49（1） m = a: n = bDo（2） m = nn = rLoop Until r = 0If m Mod 3 = 0 Then（3） Print a; bEnd IfNext aPrint "符合条件的数对个数为" & k & "个&q

19、uot;End Sub空1解答： b=99-a 空1参考答案：b=99-a 空2解答： r=m mod n 空2参考答案：r=m mod n 空3解答： k=k+1 空3参考答案：k=k+1、k=1+k 20. 填空题： （6.0分）  从键盘上输入任一正整数n，判断该数是否是完全数。如果一个数的所有因子和正好等于该数，则称该数为完全数。Private Sub Command1_Click()Dim n As Integer, i As IntegerDim s As Integern = InputBox("请输入要判断的数")i = 1（1） Doi = i

20、+ 1If n Mod i = 0 Then s = s + iLoop （2） If （3） Then Print n; "是完全数"End Sub空1解答： s=1 空1参考答案：s=1 空2解答： while i=n-1 空2参考答案：while i=n-1 空3解答： s=n 空3参考答案：s=n、n=s 21. 填空题： （6.0分）  下面程序是接受用户从键盘上输入的一个正整数，找出大于或等于该数的第一个素数。Option ExplicitPrivate Sub Command1_Click()Dim n As Integer, k As IntegerDim i As Integern = InputBox("请输入一个正整数")（1） DoFor i = 2 To Sqr(k)If k Mod i = 0 Then Exit For