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

我的试卷 测试得分：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参考答案： A 2. 单选题： （4.0分） 下列程序段的执行结果是_。X = 2 Y = 1If X * Y 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. x=1为赋值语句，y=1为关系表达式 解答：C参考答案： C 4. 单选题： （2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_。 A. Case 20Is B. Case x9 And Isx 解答：D参考答案： D 5. 单选题： （4.0分） 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is 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 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. 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参考答案： 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分） 下面程序的功能是：输入X的值，按以下公式求Y的值。Y=y=100-X -100X10 y=100+X 10X100y=400 100X200Private Sub command1_click()x = Val(text1.Text)Select Case xCase （1） Print x200Case （2） y = 100 - xCase （3） y = 100 + xCase Elsey = 400End Selecttext2.Text = yEnd Sub空1解答： Is-100 空1参考答案：Is200、Is200,Is-100 空2解答： Is10 空2参考答案：Is10 空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 0n = n - 1Print n;LoopPrint nEnd Sub空1解答： 4 3 2 1 0 0 空1参考答案： 4 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个连续的奇数之和，其中最大的奇数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 = 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分） 以下程序的功能是随机产生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 max 空2参考答案：kmax、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 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，使asqr(k) 空2参考答案：isqr(k) 空3解答： k=k+1 空3参考答案：k=k+1、k=1+k 22. 填空题：