计算机二级VB试题集.docVIP

VB控制结构 一、 单选题 1. 下面的程序运行后，显示的结果是________。 Dim x% If x Then Print x+1 Else Print x A） 1 B） 0 C） 显示错误信息 D） 2 2. 语句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 为赋值语句 3. 下面分段函数 ， 下面不正确的程序段是______。 A） If x 》= 1 then f=sqr（x+1） f=x*x+3 B） If x 》= 1 then f=sqr（x+1） If x 《 1 then f=x*x +3 C） If x 》= 1 then f=sqr（x+1） _ Else f = x*x +3 D） If x 《 1 then f=x*x +3 _ Else f=sqr（x+1） 4. 计算函数的值。 ， 下面程序段中正确的是______。 A）If x 《 0 then y = 0 If x 《 1 then y = 1 If x 《 2 then y = 2 If x 》=2 then y = 3 B）If x 》= 2 then y = 3 If x 》= 1 then y = 2 If x 》 0 then y = 1 If x 《 0 then y = 0 C）If x 《 0 then y = 0 ElseIf x 》 0 then y = 1 ElseIf x 》 1 then y = 2 Else y = 3 End If D）If x 》= 2 then y = 3 ElseIf x 》= 1 then y = 2 ElseIf x 》= 0 then y = 1 Else y = 0 End If 5. 下面的程序段，显示的结果是 ______。 Dim x x= Int（RnD） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3 Print “及格” Case Else Print “不及格” End Select A） 不及格 B） 良好 C） 及格 D） 优秀 6. 下面程序段求两个数中较大数，________不正确。 A） Max = IIF（x 》 y， x， y） B） If x 》 y Then Max = x Else Max = y C） Max = x If y 》= x Max = y D） If y 》= x Max = y Max = x 7. 下列循环语句能正常结束的是________。 A） i = 5 Do i = i + 1 Loop Until i 《 0 B） i = 1 Do i = i + 2 Loop Until i = 10 C） i = 10 Do i = i - 1 Loop Until i 《 0 D） i = 6 Do i = i - 2 Loop Until i = 1 8. 下面的程序段的运行结果是 ________。 For i = 3 To 1 Step -1 Print Spc（5-i） For j = 1 To 2 * i-1 Print “$”; Next j Print Next i A） $ $$$ $$$$$ B）$$$$$ $$$ $ C）$$$$$ $$$ $ D）$$$$$ $$$ $ 9. 下列程序当在文本框输入“ABCD”时，窗体上显示的是________ 。 Private Sub Text1_Change（） Print Text1.Text； End Sub A） ABCD B） A B C D C） AABABCABCD D） A AB ABC ABCD 10. 下列哪个程序段不能正确显示1！、2！、3！、4！的值________ 。 A）for i = 1 to 4 n = 1 for j = 1 to i n = n*j next j print n next i B）for i = 1 to 4 for j = 1 to i n = 1 n = n*j next j print n next i C）n = 1 for j = 1 to 4 n = n*j print n next j D）n = 1 j = 1 do while j 《= 4 n = n*j print n j = j+1 loop 11. 下列程序段的执行结果为______。 A=0:B=1 A=A+B:B=B+A:Print A;B A=