计算机二级VB选择题及答案补充选择

1、 下列叙述中，错误的是（B ）。

A、 VB程序代码不区分字母大小写

B、 VB程序代码中使用“//”表示注释一行

C、 VB程序代码中不能使用数字作为标识符的首字符 D、 VB程序代码以“回车换行”作为语句结束标志

2、 下列关于VB代码编辑时常用组合键的叙述错误的是（C ）。

A、 Ctrl＋C表示复制选定代码 B、 Ctrl＋X表示剪切选定代码 C、 Ctrl＋P表示粘贴代码

D、 Ctrl＋Y表示删除整行代码

3、 用户自定义数据类型的成员不能是（ A）。

A、 数组 B、 日期型 C、 货币型 D、 定长字符串

4、 如要表示一个在100～300000之间变化的整数，应使用（ C）型变量。

A、 Integer B、 String C、 Long D、 Byte

5、 下列赋值语句中，正确的是（C ）。

A、 i + j = 10 B、 2i = j C、 j = i + j D、 i = j = 0

6、 能正确表达2的3次幂的表达式是（B ）。

A、 2 * 3 B、 2 ^ 3 C、 2 ** 3 D、 2 & 3

7、 表达式123 + 23 Mod 100 \\ 7的值是（D ）。

A、 6 B、 126 C、 20 D、 132

8、 表达式12000 + \的值是（A ）。

A、 \B、 12223 C、 24300 D、 \

9、 下列表达式中，非法的是（ C ）。

A、 ab+c C、 a≠b>c

D、 a=b+c

10、表达式23 + 23 Mod 50 \\ 7的值是（C）。

A、 23 B、 46 C、 25 D、 123

11、下列表达式的值为15的是（C ）。

A、 Int(14.6)

B、 Fix(14.6)

C、 Round(15.3)（该函数是按照指定的小数位数进行四舍五入运算的结果） D、 Trunc(15.3)

12、返回值为非字符串的函数是（ C ）。 A、 Ucase

B、 Str C、 Asc D、 Chr

13、Print方法紧密输出时，用（D ）分隔多个表达式。

A、 空格 B、 逗号 C、 冒号 D、 分号

14、以下程序段中有（C ）处错误。 ReDim a As Integer n + 3 = n

a = 0 ; b = 1 Print n + 3 = n

A、 1 B、 2 C、 3 D、 4

15、下列语句中能清除运行时在窗体中显示的文本的是（ A ）。

A、 Form1.Cls B、 Form1.Clean C、 Form1.Release D、 Form1.Clear

16、在立即窗口中执行语句：a=InputBox(\请输入姓名：\姓名\张三\出现输入对话框后

直接选择\确定\按纽后，a的值为（B）。 A、 姓名 B、 张三

C、 请输入姓名： D、 以上都不对

17、在属性窗口设置窗体的Moveable属性为False，使得窗体（B ）。

A、 不可见 B、 不可移动

C、 不可放大 D、 不可激活

18、要为窗体设置一幅背景图片，应设置（ D ）属性。

A、 BackImage B、 Image C、 Icon D、 Picture

19、能模式显示Form1窗口的语句是（C ）。

A、 Form1.Show B、 Form1.Load

C、 Form1.Show vbModal D、 Form1.Load vbModal

20、下列控件属性赋值语句错误的是（D ）。

A、 Label1 = \欢迎\B、 Text1.Text = \欢迎\C、 Text1 = \欢迎\D、 Text = \欢迎\

21、文本框没有（ D）属性。

A、 Name B、 Left C、 Font D、 Caption

22、能使文本框Text1中文本不可编辑的语句是（D ）。

A、 Text1.Editable = False B、 Text1.Enabled = True C、 Text1.TabStop = False D、 Text1.Locked = True

23、窗体上有文本框Text1和命令按钮Command1，对Command1编写如下事件过程：

Private Sub Command1_Click() Text1.Text = \ Text1.SelStart = 1 Text1.SelLength = 3 MsgBox Text1.SelText End Sub

运行时，单击命令按钮，出现的信息框显示（B ）。 A、 12345

B、 234 C、 123 D、 \

24、在窗体上有一个名称为Text1的文本框，要得到在其中输入字符的ASCII码，应使用它

的（ A ）事件。 A、 KeyPress B、 KeyUp C、 KeyDown

D、 Change

25、要用文本框控件Text1实现一个密码输入框，可以通过（ A ）设置，使得无论用户输

入什么字符文本框只显示“*”。 A、 Text1.PasswordChar = \B、 Text1.Font = \ C、 Text1.Text = \

D、 Text1.Appearance = \

26、下列语句中，除（ ）以外，都能使文本框Text1不可编辑（ C ）。

A、 Text1.Locked = True B、 Text1.Visible = False C、 Text1.ReadOnly = True D、 Text1.Enabled = False

27、Pset方法绘制的点的大小受其容器对象的（ A ）属性的影响。

A、 DrawWidth B、 Picture

C、 AutoRedraw D、 Stretch

28、下列（ B ）方法可以将复选框设置为图形复选框。

A、 Check1.Style = 0 B、 Check1.Style = 1 C、 Check1.Picture = 0 D、 Check1.Picture = 1

29、窗体上有一个单选按钮Option1。如要求当窗体初始显示时Option1就处于选中状态，

可以通过（ C ）实现。

A、 在窗体的Load事件过程中加入语句：Option1.Value = False B、 在窗体的Show事件过程中加入语句：Option1.Value = False C、 在窗体的Load事件过程中加入语句：Option1.Value = True D、 在窗体的Show事件过程中加入语句：Option1.Value = True 30、下列叙述中，错误的是（D ）。

A、 单击命令按钮可触发MouseDown事件 B、 单击命令按钮可触发MouseUp事件 C、 命令按钮支持单击事件 D、 命令按钮支持双击事件

31、执行（B ）语句，可使窗口的按钮Command1上显示“确定”。

A、 Command1.Show = \确定\B、 Command1.Caption = \确定\C、 Command1.Name = \确定\D、 Command1.Visible = \确定\

32、下列语句（A ）可以使命令按钮Command1处于禁止状态。

A、 Command1.Enabled = False B、 Command1.Disabled = False C、 Command1.Enabled = True D、 Command1.Disabled = True

33、应通过（A ）属性装入命令按钮处于激活状态时显示的图片。

A、 Picture

B、 EnabledPicture C、 DownPicture D、 DisabledPicture

34、下列语句（D ）可以设置命令按钮Command1的标题字体为黑体。

A、 Command1.Caption.Name = \黑体\B、 Command1.Font = \黑体\

C、 Command1.Font.FontName = \黑体\D、 Command1.FontName = \黑体\35、要设计一个图形方式的命令按钮，且按钮被按下与不按下时显示不同的图像，可通过对

（ D ）属性进行设置。 A、 Picture、DisabledPicture B、 Picture、DownPicture

C、 Style、Picture和DisabledPicture D、 Style、Picture和DownPicture

36、设置列表框的（A ）属性可以使每个列表项前面出现一个复选框。

A、 Style B、 Sorted

C、 MultiSelect D、 ListCheck

37、设有两个列表框控件List1和List2，下列代码段的功能是（ C ）。

For i = 0 To List1.ListCount - 1 List2.List(i) = List1.List(i)

Next i

A、 将List1的所有列表项追加到List2中 B、 将List1的所有列表项插入到List2的前部

C、 用List1的所有列表项覆盖List2中对应位置的列表项 D、 用List1取代List2

38、设组合框Combo1中有5个选项，下列能删除最后一项的语句是（D）。

A、 Combo1.RemoveItem Text

B、 Combo1.RemoveItem Combo1.Listcount C、 Combo1.RemoveItem 5 D、 Combo1.RemoveItem 4

39、若列表框List1中有5个选项，下列（A）语句可以把选项\Basic\添加到列表框

的最后一项。 A、 List1.AddItem \ B、 List1.AddItem \C、 List1.AddItem \ D、 List1.AddItem 4 , \

40、下列关于框架及其内部放置的命令按钮的叙述，错误的是（D ）。

A、 命令按钮跟随框架一起移动

B、 如果框架被禁止，则命令按钮也被禁止 C、 如果框架不可见，则命令按钮也不可见

D、 单击框架时，框架和命令按钮的Click事件同时被激发

41、当用户单击滚动条的空白处时，滑块移动的增量值由（ B ）属性决定。 A、 SmallChange B、 LargeChange C、 Min D、 Max

42、当控件失去焦点时，触发的事件是（C ）。

A、 GotFocus

B、 SetFocus C、 LostFocus D、 MoveFocus

43、当文本框的TabStop属性设为False时，下列叙述正确的是（D ）。

A、 该文本框无法获得焦点

B、 无法在该文本框中输入文本 C、 焦点将始终停留在该文本框上

D、 该文本框无法通过使用Tab键获得焦点

44、使用（D ）语句可使窗体的鼠标指针呈现“沙漏”型。

A、 Me.MousePointer = vbArrow B、 Me.MousePointer = vbCustom C、 Me.MousePointer = vbCross D、 Me.MousePointer = vbHourglass 45、在程序运行时，按Tab键跳过了一个可以获得焦点的控件(如文本框),这可能是因为（D）。

A、 该控件的Enabled属性为True B、 该控件的Enabled属性为False C、 该控件的TabStop属性为True D、 该控件的TabStop属性为False

46、执行下列程序段后，窗体输出的结果是（A ）。 Dim X As Integer, Y As Integer

Y = Val(InputBox(\请输入a的值\ '直接按回车键 Select Case Y Case Is < 10 x = x + 1 Case 5, 7, 9, 11 x = x + 2 Case 5 To 15 x = x + 3 Case Else x = x + 4 End Select Print x

A、 1 B、 2 C、 5 D、 6

47、窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() Dim a%, b% a = 6: b = -1

If a < 0 Or b < 0 Then a = b

ElseIf a > 0 Then a = a + b

ElseIf a < 0 And b < 0 Then b = a Else

b = a * b End If Print a, b End Sub

运行时，单击按钮，窗体输出的结果为（D ）。

A、 6 6 B、 5 -1 C、 6 -6 D、 -1 -1

48、下列程序段的执行结果是（C）。 Dim x As Double Dim y As Double x = Int(42 \\ 4) + 3 Select Case x Case Is < 3 y = x + 1 Case Is < 12

y = 2 * x + 5 Case Else

y = 3 * x + 11 End Select Print y

A、 25 B、 75 C、 50 D、 14

49、下列程序段的执行结果是（C）。 x = 5: y = 7: z = 4 If x < y Then

t = x: x = y: y = t End If

If y < z Then

t = y: y = z: z = t If x < y Then

t = x: x = y: y = t End If End If

Print x, y, z

A、 5 7 4 B、 4 5 7 C、 7 5 4 D、 5 4 7

50、运行下列程序，单击窗体后输出结果是（B ）。

Private Sub Form_Click() Dim i%, j%, k% i = 1: j = 1: k = 10 Do While i <= k j = j + 2 i = i + 2 Loop Print j

End Sub A、 9 B、 11 C、 13 D、 21

51、窗体上有一个命令按钮Command1，编写如下事件过程：

Private Sub Command1_Click() Dim i%, j% For i = 1 To 3 For j = 0 To i Print Chr$(48 + i); Next j Print Next i End Sub

运行时，单击按钮，输出结果是（C ）。

A、 123 B、 1 22 333 C、 11 222 3333 D、 0 11 222 3333

52、窗体上有文本框Text1和命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, x% For i = 1 To 100 i = i + 2 x = x + 2

If i > 10 Then Exit For Next i

Text1.Text = Str$(x) End Sub

运行后，单击按钮，Text1显示（B ）。 A、 6

B、 8 C、 10 D、 100

53、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = 1

For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a

End Sub

运行时，单击命令按钮，窗体上将显示（ C ）。

A、 3 B、 4 C、 5 D、 6

54、设有以下程序段： For i = 1 To 4

For j = 6 To 1 Step -1 Print i * j Next j, i

则语句Print i * j的执行次数是（ C ）

A、 12 B、 13 C、 24 D、 25

55、下列程序段的执行结果是（B）。

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、 *****

*** *

56、在通用声明中给出Option Base 1语句，则数组a包含（ C）个元素。 Dim a(3, -2 To 1, 5)

A、 120 B、 75 C、 60 D、 13

57、运行下列程序，单击窗体后输出的结果是（B ）。 Private Sub Form_Click() Dim a Dim s As Integer, i As Integer a = Array(1, 2, 3, 4, 5, 6) s = 1 For i = 5 To 1 Step -2 s = s * a(i) Next i Print s End Sub

A、 15 B、 48 C、 120 D、 720

58、对窗体上的命令按钮编写如下事件过程： Private Sub Command1_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer

本文来源：https://www.bwwdw.com/article/72st.html