计算机二级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 + "123" & 100的值是（A ）。

A、"12123100"

B、12223

C、24300

D、"12223"

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

A、a

B、a>b+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 = "12345"

Text1.SelStart = 1

Text1.SelLength = 3

MsgBox Text1.SelText

End Sub

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

A、12345

B、234

C、123

D、"345"

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

的（A ）事件。

A、KeyPress

B、KeyUp

C、KeyDown

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、https://www.360docs.net/doc/1118792350.html, = "确定"

D、Command1.Visible = "确定"

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

A、Command1.Enabled = False

B、Command1.Disabled = False

C、Command1.Enabled = True

D、Command1.Disabled = True

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

B、EnabledPicture

C、DownPicture

D、DisabledPicture

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

A、https://www.360docs.net/doc/1118792350.html, = "黑体"

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）语句可以把选项"Visual Basic"添加到列表框

的最后一项。

A、List1.AddItem "Visual Basic" , List1.ListCount

B、List1.AddItem "Visual Basic" , List1.ListCount-1

C、List1.AddItem "Visual Basic" , 4

D、List1.AddItem 4 , "Visual Basic"

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的值", , 9)) '直接按回车键

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）。

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

For j = 1 To 10

arr(i, j) = i + 2 * j

Next j

Next i

Print arr(0, 1) + arr(2, 3)

End Sub

运行时，单击命令按钮后输出的结果是（A ）。

A、8

B、10

C、20

D、下标越界

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

Private Sub Command1_Click()

Dim s%, i%, j%

Dim a(3, 3) As Integer

For i = 1 To 3

For j = 1 To i

a(i, j) = j

s = s + a(i, j)

Next j, i

Print s

End Sub

运行时，单击按钮，则窗体上显示的内容是（C ）。

A、6

B、9

C、10

D、18

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

Private Sub Form_Click()

Dim a

Dim i As Integer, j As Integer

a = Array(1, 2, 3, 4, 5, 6)

For i = 1 To a(5)

j = j + 1

Next i

Print j

End Sub

A、0

B、5

C、6

D、程序出错

61、设arr是一个上界为K的一维动态数组。能使arr元素个数增加1，但保留数组中原有

数据的语句是（D ）。

A、ReDim arr(K + 1)

B、ReDim Static arr(K + 1)

C、Public arr(1 To K + 1)

D、ReDim Preserve arr(K + 1)

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

Private Sub Command1_Click()

Dim i%, j%, x%, n%

x = 0

n = InputBox("")

For i = 1 To n

For j = 1 To i

x = x + j

Next j

Next i

Print x

End Sub

运行时，单击命令按钮，如果在输入对话框中输入3，则窗体上显示的内容是（B）。

A、6

B、10

C、14

D、18

63、窗体上有命令按钮Command1和Command2，阅读下列程序：

Private Sub Command1_Click()

a = a + 1 : Print a；

End Sub

Private Sub Command2_Click()

a = a + 1 : Print a

End Sub

运行时，先后单击Command1和Command2按钮，输出的结果为（A ）。

A、1 1

B、2 2

C、1 2

D、2 1

64、窗体上有文本框（Text1、Text2和Text3）和命令按钮（Command1），编写如下事件过

程：

Private Sub Command1_Click()

Dim x%, y%, z%

x = 1: y = 2: z = 3

Call proc(x, y, z)

Text1.Text = x

Text2.Text = y

Text3.Text = z

End Sub

Private Sub proc(ByVal a%, b%, c%)

a = a +

b + c

b = a + b + c

c = a + b + c

End Sub

运行后，单击按钮，Text1、Text2和Text3将分别显示（C ）。

A、1、2和3

B、1、6和6

C、1、11和20

D、6、11和20

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

Private Sub Sele(x%, y%, z%)

x = x + 1: y = y + 1: z = z + 1

Print x; y; z

End Sub

Private Sub Form_Click()

Dim a%, b%, c%

a = 1:

b = 2:

c = 3

Call Sele(a, b + 1, (c))

Print a; b; c

End Sub

A、1 1 1

1 2 3

B、2 3 4

1 2 3

C、1 2 3

2 4 4

D、2 4 4

2 2 3

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

Private Sub Command1_Click()

Dim x%, y%, z%

x = 7: y = 8: z = 9

Text1.Text = ""

Call p1(x, y, z)

Text1.Text = Str(z)

End Sub

Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)

c = a + b

End Sub

运行时，单击命令按钮，Text1中的内容为（B ）。

A、0

B、15

C、9

D、Str(z)

67、运行下面的程序，输出的结果为（A ）。

Public Function f(ByVal n%, ByVal r%)

If n <> 0 Then

f = f(n \ r, r)

Print n Mod r;

End If

End Function

Private Sub Command1_Click()

Print f(20, 8)

End Sub

A、2 4

B、1 2 4

C、1 4 4

D、4 4

68、窗体上有一个命令按钮C1，两次单击C1后程序运行的结果为（C ）。

Dim Z As Integer

Sub S()

Dim Z

Z = Z + 2

Print z

End Sub

Private Sub C1_Click()

Z = Z + 2

Call S

Print Z

End Sub

A、第一次为2 2 第二次为4 4

B、第一次为4 4 第二次为8 8

C、第一次为2 2 第二次为2 4

D、第一次为2 4 第二次为4 6

69、下列关于多文档界面（MDI）的叙述错误的是（A ）。

A、MDI子窗体可在MDI父窗体的外部区域显示

B、MDI子窗体包含在一个大小可调的MDI父窗体内

C、MDI子窗体最小化时的图标在MDI父窗体内显示

D、MDI子窗体最大化时，其标题与MDI父窗体标题合并显示在父窗体的标题栏中

70、假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命

令按钮后，能使打开的对话框的标题为“Visual Basic”的代码是（B ）。

A、CommonDialog1.DialogTitle = "Visual Basic"

CommonDialog1.ShowPrinter

B、CommonDialog1.DialogTitle = "Visual Basic"

CommonDialog1.ShowSave

C、CommonDialog1.DialogTitle = "Visual Basic"

CommonDialog1.ShowFont

D、CommonDialog1.DialogTitle = "Visual Basic"

CommonDialog1.ShowColor

71、要在磁盘上新建一个文件名为"c:\t1.txt"的顺序文件，下列（D ）是正确的。

A、F="c:\t1.txt"

open F For Append As #2

B、F="c:\t1.txt"

open "F" For Output As #2

C、open c:\t1.txt For Output As #2

D、open "c:\t1.txt" For Output As #2

72、下列关于文件的叙述正确的是（D ）。

A、Open命令的作用是打开一个已存在的文件

B、使用Input#语句可以从随机文件中读取数据

C、一个记录中所包含的各元素数据类型必须相同

D、二进制存取可以获取任一文件的原始字节