VB中期测试考试卷（答案）解读 - 图文

69. 70. 71. 72. 73. 74. 江 南 大 学 考 Select Case X结构中(X为Integer类型)，若判断条件为X=5，正确的Case语句应该是（）。 A. Case X=5 B. Case Is 5 C. Case =5 D. Case 5 在Select Case X结构语句中（X为Integer类型），能正确描述5≤X≤10的Case语句是（） A. Case Is >= 5, Is <= 10 B. Case 5 <= X <= 10 C. Case 5 <= X, X <= 10 D. Case 5 To 10 假定有以下程序： Private Sub Form_Click() 程序运行后，单击窗体，输出结果是（） a = 1: b = a A.1 1 Do Until a >= 5 2 3 x = a * b B.1 1 Print b; x 2 4 a = a + b C.1 1 b = b + a 3 8 Loop D.1 1 End Sub 3 6 窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() 程序运行后，单击命令按钮 x = 15 Command1，输出结果为（）。 Do While x > 0 A. 0 B. -3 x = x - 3 C. -2 D. -1 x = IIf(Int(x / 5) = x / 5, x + 2, x) Loop Print x End Sub 窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() 程序运行后，单击命令按钮 a = 10 Command1，输出结果为（）。 For k = 1 To 5 Step -1 A. 10 1 B. -5 -5 a = a - k C. 10 0 D. -5 6 Next k Print a; k End Sub 设有如下程序：Private Sub Form_Click() a$ = \ For i = 1 To 6 Print Tab(12 - i); Next i End Sub - ９ -

试 卷 专 用 纸 程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为（） A. Left(a$, i) B. Mid(a$, 8 - i, i) C. Right(a$, i) D. Mid(a$, 7, i) 75. 设有如下程序： Private Sub Form_Click() 程序运行后，单击窗体，输出结 Dim i As Integer, x As String, y As String 果为（） x = \A. AABBCDEFG For i = 4 To 1 Step -1 B. ABCCDEDEFG y = Mid(x, i, i) + y C.ABCDEFG Next i D.AABBCCDDEEFFGG Print y End Sub 76. 设有如下程序： Private Sub Form_Click() Dim s As Long, f As Long, n As Integer, i As Integer f = 1 : n = 4 程序运行后，单击窗体，输出结 For i = 1 To n 果是（） f = f * i A. 32 B. 33 s = s + f C. 34 D. 35 Next i Print s End Sub 77. 有人编写了如下程序： 上述程序的功能是： Private Sub Form_Click() 计算s=1 + 22 + 32 + … + n2 + …，直到s > 10000 Dim s As Integer, x As Integer 为止。程序运行后，发现得不到正确的结果，必 s = 0 : x = 0 须进行修改。下列修改中正确的是（）。 Do While s = 10000 A. 把x = 0改为x = 1 x = x + 1 B. 把Do While s = 10000改为Do While s <= s = s + x ^ 2 10000 Loop C. 把Do While s = 10000改为Do While s > Print s 10000 End Sub D. 交换x = x + 1和s = s + x ^ 2的位置 78. 窗体上有一个名称为Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, s As Double s = 0: i = 1: j = 0: k = -1 Do While i < 6 s = s + k * (j / i) i = i + 1 - １０ -

江 南 大 学 考 j = j + 1 以上程序所计算的表达式是： k = -k A. -1/2 + 2/3 - 3/4 + 4/5 Loop B. 1/2 - 2/3 + 3/4 - 4/5 Print s C. 1 - 1/2 + 2/3 - 3/4 + 4/5 End Sub D. -1 + 1/2 - 2/3 + 3/4 - 4/5 79. 有一个数列，它的前3个数为0，1，1，此后的每个数列都是其前面3个数之后，即0，1，1，2，4，7，13，24，……要求编写程序如下： Private Sub Form_Click() 运行上面的程序，发现输出的数列 Dim i As Integer, a As Integer, b As Integer 不完整，应进行修改。以下正确的 Dim c As Integer, d As Integer 修改是（） a = 0: b = 1: c = 1: d = a + b + c A.把While d <= 1000改为While i = 5 d > 1000 While d <= 1000 B. 在i = 5的上面增加一个语句： Print d; Print a; b; c; a = b: b = c: c = d : d = a + b + c C.把i = i + 1移到While d <= i = i + 1 1000的下面 Wend D. 把i = 5改为i = 4 End Sub 80. 现有以下程序： Private Sub Command1_Click() c1 = 0 : c2 = 0 For i = 1 To 100 If i Mod 3 = 0 Then c1 = c1 + 1 此程序运行后输出的是在1~100范围内（）。 ElseIf i Mod 7 = 0 Then A. 同时能被3和7整除的整数个数 c2 = c2 + 1 B. 能被3或7整除个数（同时被3和7整除的 End If 数只记一次） Next C. 能被3整除，而不能被7整除的整数个数 Print c1 + c2 D. 能被7整除，而不能被3整除的整数个数 End Sub 81. 设有如下程序: Private Sub Command1_Click() x = 10: y = 0 For i = 1 To 5 Do x = x – 2 : y = y + 2 Loop Until y > 5 Or x < -1 Next End Sub 运行程序，其中Do循环执行的次数是（） A. 15 B. 10 C. 7 D. 3 - １１ -

试 卷 专 用 纸 82. 阅读下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i 执行上面的程序段后，a的值为（） A. 3 B. 9 C. 14 D. 21 83. 如果一个正整数从高位到低位上的数字一次递减，则称其为降序数（如：9632是降序数，而8516则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。 Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n = InputBox(\输入一个正整数\ s = Trim(Str(n)) For i = 2 To Len(s) If Mid(s, i - 1, 1) < Mid(s, i, 1) Then Exit For Next i If i = Len(s) Then flag = True Else flag = False If flag Then Print n; \是降序数\不是降序数\End Sub 运行以上程序，发现有错，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（）。 A. If i = Len(s) + 1 Then flag = False Else flag = True B. If i = Len(s) + 1 Then flag = True Else flag = False C. If i = Len(s) - 1 Then flag = False Else flag = True D. If i = Len(s) - 1 Then flag = True Else flag = False 84. 窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Dim m As Integer, n As Integer m = InputBox(\输入第一个数\该程序的功能是（）。 n = InputBox(\输入第二个数\A. 求数值m和n的最小公倍数 Do While m <> n B. 求数值m和n的最大公约数 Do While m > n C. 求数值m和n中的较大数 m = m - n D. 求数值m和n中的较小数 Loop Do While n > m - １２ -