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

For i = 1 To 10 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 = \

CommonDialog1.ShowPrinter B、 CommonDialog1.DialogTitle = \

CommonDialog1.ShowSave C、 CommonDialog1.DialogTitle = \

CommonDialog1.ShowFont D、 CommonDialog1.DialogTitle = \

CommonDialog1.ShowColor

71、要在磁盘上新建一个文件名为\的顺序文件,下列( D )是正确的。

A、 F=\

open F For Append As #2

B、 F=\

open \

C、 open c:\\t1.txt For Output As #2 D、 open \72、下列关于文件的叙述正确的是( D )。

A、 Open命令的作用是打开一个已存在的文件 B、 使用Input#语句可以从随机文件中读取数据 C、 一个记录中所包含的各元素数据类型必须相同 D、 二进制存取可以获取任一文件的原始字节

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4