. . . .. .

循环结构程序设计

1、在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列__________语句会影响循环执行的次数。 A、n1 = n1 + 1 B、n2 = n2 + n3 C、n3 = 2 * n3 D、i=i+n3

2、循环结构For I = 1 to 15 step 2 的执行次数是__________。

A、6 B、7 C、8 D、9 3、下列循环结构中，窗体上打印出来的循环变量i的值为___________。 sum = 0

For i = 1 To 100 sum= sum + i Next i

Print i；sum

A、1 B、2 C、100 D、101 4、下列循环结构中，循环体x = x + k的执行次数为___________。 x = 0

For k = 1 To 10 Step 2 x = x + k Next k print k；x

A、0 B、1 C、5 D、10 5、以下循环语句中在任何情况下都至少执行一次循环体的是___________。 A、Do While <条件> B、While <条件> 循环体 循环体 Loop Wend

C、Do D、Do Until <条件> 循环体 循环体 Loop Until <条件> Loop

6、在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click(） Dim n% ,b ,t

t = 1 : b = 1 : n = 2 Do

b = b * n t = t + b n = n +1 Loop Until n>9 Print t

c. .. .. .

. . . .. .

End Sub

此程序计算并输出一个表达式的值，该表达式是___________。 A、9！ B、10！

C、1！+2！+…+9！ D、1！+2！+…+10！

c. .. .. .

. . . .. .

数组

1、某过程的说明语句中，正确的数组说明语句是__________。 Const n As Integer = 3 Dim L As Integer

① Dim x(L) As Integer ② Dim a(k) As Integer Const k As Integer = 3 ③ Dim b(n) As Integer

④ Dim y(2000 to 2008) as Integer A、①②④ B、①③④ C、③④ D、②③

2、下列有关数组的说法中，错误的是__________。 A、数组必须先定义后使用

B、数组形参可以是定长字符串类型

C、Erase语句的作用是对已定义数组的值重新初始化 D、定义数组时，数组维界值可以不是整数

3、在窗体的通用声明处有语句“Dim a() As Single”，以下在某事件过程中重定义此数组的一组正确语句是__________。 A、ReDim a(3, 3)

ReDim a(4, 4) As Integer B、ReDim a(3, 3)

ReDim preserve a(4, 4) C、ReDim a(3)

ReDim a(3, 3) as Integer D、ReDim a(3, 3)

ReDim preserve a(3, 4)

4、以下___________是Visual Basic合法的数组元素表示法。

A、x_9 B、x[9] C、x{9} D、x(9) 5、下面的数组声明语句中___________是正确的。

A、Dim a[3,4] As Integer B、Dim a(3, 4) As Integer C、Dim a(3;4) As Integer D、Dim a(3:4) As Integer 6、设有数组声明语句： Option Base 1

Dim b(-1 To 1, 2 ) As Integer

则数组b中共有___________个元素。

A、2 B、4 C、6 D、9

7、使用语句Dim a(1 To 15) As String声明数组a之后，以下说法正确的是___________。 A、A数组中的所有元素值为0

c. .. .. .

. . . .. .

B、A数组中的所有元素值不确定 C、A数组中的所有元素值为空串 D、A数组中的所有元素值为True

8、关于ReDim语句，以下说法错误的是___________。 A、ReDim语句可以改变数组的维数

B、ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用 C、ReDim语句可保留动态数组中原有的内容

D、在ReDim语句中，可使用变量说明动态数组的大小 9、设有数组声明语句： Option Base 1

Dim a(-1 To 2，8) As Long

则，函数LBound(a，2) 的值为___________。

A、0 B、－1 C、1 D、2 10、下列关于控件数组的说法错误的是___________。 A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每一个控件共享同样的事件过程

C、控件数组中的每个元素的下标由控件的Index属性指定 D、同一控件数组中的元素只能有相同的属性值

11、设有命令按钮Command1单击事件过程，代码如下： Private Sub Command1_Click(） Dim a(30）As Integer For i=1 To 30

a(i）=Int(Rnd*100） Next

For Each arrItem In a

If arrItem Mod 7=0 Then Print arrItem； If arrItem>90 Then Exit For Next End Sub

对于该事件过程，以下叙述中错误的是___________。 A、a数组中的数据是30个100以内的整数 B、语句For Each arrItem In a有语法错误

C、If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数

D、If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环 12、有以下程序： Option Base 1

Dim a(） As Integer

Private Sub Form_Click(）

Dim i As Integer, j As Integer ReDim a(3, 2） For i = 1 To 3

For j = 1 To 2

a(i, j） = i * 2 + j Next j

c. .. .. .

. . . .. .

Next i

ReDim Preserve a(3, 4） For j = 3 To 4

a(3, j） = j + 9 Next j

Print a(3, 2）; a(3, 4） End Sub

程序运行后，单击窗体，输出结果是___________。 A、 8 13 B、 0 13 C、 7 12 D、 0 0 13、下面的数组声明语句中__________是正确的。 A、Dim a[3,4] as Integer B、Dim a(3, 4) As Integer C、Dim a[3;4] as Integer D、Dim a(3:4) as Integer 14、设有数组声明语句： Option Base 1

Dim A(2) As Integer

则数组A的下界为__________。

A、0 B、1 C、2 D、不能确定 15、以下说法不正确的是__________。

A、使用ReDim语句可以改变动态数组的维数

B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型 C、使用ReDim语句可以改变动态数组每一维的大小

D、使用ReDim语句可以对动态数组中的所有元素进行初始化 16、用Array函数给某X赋值时，X必须是__________。 A、已经声明的静态数组 B、已经声明的动态数组 C、Variant类型的变量 D、整型变量

17、设有数组声明语句： Option Base 1

Dim A(-1 To 2) As Long

则函数UBound(A)的值为__________。

A、0 B、－1 C、1 D、2

18、设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法中错误的是__________。

A、命令按钮的Caption属性都是Command1

B、在代码中访问任意一个命令按钮只需使用名称Command1 C、命令按钮的大小都相同

D、命令按钮共享相同的事件过程

19、在窗体上画 1 个命令按钮，并编写如下事件过程： Private Sub Commandl Click() Dim a(3,3) For m=1 To 3

c. .. .. .