A.96个

B.210个

C.112个

D.140个

正确答案：210个

7、下面的数组声明语句中正确的是（）。

A.Dim gg[1 To 5，1 To 5] As String

B.Dim gg[1：5，1：5] As String

C.Dim gg（1 To 5） As String

D.Dim gg[1，5] As String

正确答案：Dim gg（1 To 5） As String

8、用Dim b（-2 To 4） As String； 语句所定义的数组元素个数是（）个。

A.4

B.2

C.6

D.7

正确答案：7

9、定义10个单精度实型一维数组正确的语句是（）。

A.Option Base 1：Dim a（9）

B.Dim #（9）

C.Dim a（9） As Single

D.Dim a（10） As Integer

正确答案：Dim a（9） As Single

10、以下属于Visual Basic合法的数组元素是（）。

A.v[8]

B.x8

C.x[8]

D.s（0）

正确答案：s（0）

11、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序代码：Option Base 1Dim arr（） As IntegerPrivate Sub Command1（）Click（）； Dim i As Integer， j As Integer； Dim s As Integer； ReDim arr（4， 2）； s = 0； For i = 1 To 3； For j = 1 To 2； arr（i， j） = i + j； Next j； Next i； ReDim Preserve arr（4， 4）； For j = 3 To 4； arr（3， j） = j + 10； Next j； For i = 1 To 4； s = s + arr（i， i）； Next i； Print sEnd Sub程序运行过程中，当单击Command1时，输出结果为（）。

A.0

B.18

C.程序出错

D.19

正确答案：19

12、运行如下程序； Private Sub Command1（）Click（）； Dim a（5， 5） As Integer； For i = 1 To 5； For j = 1 To 4； a（i， j） = i * 2 + j； If a（i， j） / 7 = a（i， j） ；7 Then； n = n + 1； End If； Next j； Next； Print n； End Sub则n的值是（）。

A.4

B.3

C.5

D.2

正确答案：3

13、若在窗体上画了一个名称为List1的列表框，并编写了如下事件过程：Private Sub Form（）Load （）； List1.AddItem "；数学"；； List1.AddItem "；物理"；； List1.AddItem "；化学"；； List1.AddItem "；外语"；； List1.AddItem "；语文"；End SubPrivate Sub Form（）Click（）； List1.RemoveItem 1； List1.RemoveItem 2End； Sub运行程序后，单击窗体，则列表框中显示的项目是（）

A.物理外语语文

B.数学化学语文

C.数学外语语文

D.化学外语语文

正确答案：数学化学语文

14、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（）。

A.List1.List

B.List1.ListIndex

C.List1.Index

D.List1.Text

正确答案：List1.Text

15、假定列表框List1中没有被选中的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是（）。

A.删除最后加入列表中的一项

B.出错

C.删除最后一项