计算机二级VB试题

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. 下面的程序段，显示的结果是 ______。x= Int（RnD） + 5 Select Case x Case 5 Print “优秀” Case 4 Print “良好” Case 3

Dim x Print “及格” Case Else Print “不及格” End Select A）不及格 B）良好 C）及格 D）优秀

6. 下面程序段求两个数中较大数，________不正确。A）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 i = i - 2

= Max 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=A+B:B=B+A:Print A;B A）1 2 3 5 B）1 1 3 5 C）1 3 3 4 D）1 2 3 4

12. 变量未赋值时，数值型变量的值为______。 A）0 B）空串“” C）Null D）没任何值

13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）

For n=1 To 20

If n Mod 3《》0 then m=m+n\\3 Next n print n End sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是______。A）15

B）18 C）21 D）24

14. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click（）

X = 2 Y = 1

If X * Y 《 1 Then Y = Y - 1 Else Y = -1 Print Y - X 》 0 End Sub

程序运行后，单击命令按钮，输出结果为______。 A）True B）False C）-1 D）1

15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。x=IIf（（a》B） And （c》D）， 10， 20）

A）10 B）20 C）True

16. 执行以下程序段 a$= “abbacddcba” For i = 6 To 2 Step -2 X= Mid（a，i，i） Y= Left（a，i） Z= Right（a，i） Z= UCase（X & Y & Z） Next i Print z

输出结果为______。 A）ABA B）BBABBA C）ABBABA D）AABAAB

17. 在窗体上画一个名称为Command1的命令按钮，然后编写如

下事件过程：Private Sub Command1_Click（）

c=1234

c1=Trim（Str（C）） For i=1 To 4 Print ____ Next

程序运行后，单击命令按钮，要求在窗体上显示如下内容：1 12 123 1234

则在下划线处应填入的内容为______。 A）Right（c1，i） B）Left（c1，i） C）Mid（c1，i，1） D）Mid（c1，i，i）

18. InputBox函数返回值的类型为______。 A）数值 B）字符串 C）变体

D）数值或字符串（视输入的数据而定） 19．MsgBox函数返回值的类型为______。 A）整型数值 B）字符串 C）变体

D）数值或字符串（视输入的数据而定）

20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click（） a=InputBox（“Enter an Integer”）

b=InputBox（“Enter an Integer”） Text1.Text=b+a End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A）108 B）18 C）810 D）出错

21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） Dim a As Integer，s As Integer a=8 s=1 Do s=s+a a=a-1

Loop While a《=0 Print s;a

程序运行后，单击命令按钮，则窗体上显示的内容是______。A）7 9

B）34 0 C）9 7 D）死循环

22. 下面程序段的执行结果为______。 I=4 A=5 Do I=I+1

A=A+3

Loop Until I》=9 Print“I=”;I Print“A=”;A

A）I=9 B）I=10 C）I=10 D）I=9 A=20 A=20 A=23 A=23

23. 以下能够正确计算n！的程序是______。 A）Private Sub Command1_Click（） N = 5 ： X = 1 Do x = x * i

Loop While i 《 n Print x End Sub

B）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1 Do x = x * i i = i + 1

Loop While i 《 n Print x End Sub

C）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1 Do x = x * i i = i + 1

Loop While i 《= n Print x End Sub

D）Private Sub Command1_Click（）N = 5 ： x = 1 ： i = 1 Do

x = x * i i = i + 1

Loop While i 》 n Print x End Sub

24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click（）

Dim num As Integer num=1

Do Until num》6 Print num; num=num+2.4 Loop End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是______。 A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出 25. 设有如下程序段 x=2

For i=1 to 10 step 2 x=x+i Next

运行以上程序后，X的值是______。 A）36 B）27 C）38 D）57

26. 在窗体上画一个名称为Text1的文本框和一个名称为

Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click（） Dim i As Integer，n As Integer For i=0 To 50 i=i+3 n=n+1

If i》10 Then Exit For Next

Text1.Text=Str（n） End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______。 A）2 B）3 D）5

27. 下列程序段的执行结果为______。X=6 For K=1 To 10 Step -2 X=X+K Next K Print K;X A）-1 6 B）-1 16 C）1 6 D）11 31

28. 执行以下程序段

Dim x As Integer， i As Integer x = 0 For i = 20 To 1 Step -2 x = x + i \\ 5 Next i

后，x的值为______。 A）16

B）17 C）18

29. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：

Private Sub Command1_Click（） n=Val（Text1.Text） For i=2 To n For j=2 To Sqr（i） If i Mod j=0 Then Exit For Next j

If j》Sqr（i） Then Print i Next i End Sub

该事件过程的功能是______。 A）输出n以内的奇数 B）输出n以内的偶数 C）输出n以内的素数 D）输出n以内能被j整除的数

30. 新建立窗体中画一个命令按钮，其中事件代码如下： For x=4 To 1 Step -1 For y=1 To 5-x

Print Tab（y+5）;“*”; Next y Next x

窗体运行后，单击命令按钮，输出结果是______。 A）**** *** ** * B）*

** *** **** C）***** **** *** ** D）* *** *****

31. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click（）

For i=1 To 4 x=4