Case Is > 20 Y = 1 End Select Print Y End Sub
2、有以下循环：
Private Sub Command1_Click() Dim X As Single: X = 1 X=1 Do
X = X + 1 MsgBox \ Loop Until ＿＿＿＿＿＿ End Sub
程序运行要求执行5次循环体，填写程序中的空白处，使程序完整。 3、以下循环的执行次数是＿＿＿。 Private Sub Command1_Click() Dim X As Single: X = 1 Do While X <= 8 X = X + 2 Loop End Sub
4、阅读以下程序：
Private Sub Command1_Click()
Dim K As Integer, A As Integer, B As Integer A = 20: B = 2: K = 2 Do While K < A B = B * 2: K = K + 7 Loop Print B End Sub
程序运行后，单击命令按钮，输出的结果是：＿＿＿
38
5、有如下程序，单击命令按钮后，输出结果是：＿＿＿。 Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer For I = 1 To 3 For J = 1 To 5
If J Mod 2 <> 0 Then K = K + 1 End If K = K + 1 Next J Next I Print K End Sub
6、以下程序是判断一个整数是否是素数（只能被1和自己整除），填写程序中空白使其完整。 Private Sub Command1_Click()
Dim IntN As Integer, I As Integer, K As Integer, Swit As Boolean IntN = InputBox(\请输入一个整数（＞＝3）\ K = Int(Sqr(n)) I = 2
While I <= K And Swit = False If ＿＿＿ Then Swit = True Else
＿＿＿＿＿＿ End If Wend
If Swit = False Then Print n; \是一个素数\ Else
Print n; \不是一个素数\ End If End Sub
39
参考答案：
【选择题】1-5 A D A A D 6-10 C C C D A
11-15 D A A A B 16-20 D B C C C
【填空题】1、31 2、X<6 3、4 4、16 5、24 6、N Mod I=0、I=I+1
40
第6单元 数组
本单元重点：
1、数组的概念
⑴数组的定义
在计算机内存中，数组占据了一块连续的存储区域，数组名就是这块空间的名称。数组应该选定义后使用，定义数组的目的是通知计算机为其留出所需的存储空间。定义格式：
说明符 数组名([一维下标下界 to ]一维下标上界[[，二维下标下界 to] 二维下标上界]?） ⑵静态数组与动态数组
静态数组是在编译过程时开辟的内存数组；而动态数组是在运行时开辟的，并且未运行时不占用内存。
用Static声明的固定数组：其所声明的数组在出、入声明语句所在的过程而不被初始化，固称为静态数组。
动态数组是在程序运行过程中完成的，首先用Dim语句声明不指定维数和长度，在应用时再指定维数和长度。
⑶For Each?Next语句
类似For?Next语句，都可用来执行指定重复次数的一组操作，而For Each?Next语句是专门用于数组和对象的。格式如下：
For Each 成员 In 数组 循环体 [ Exit For ] ?? Next [ 成员 ] ⑷数组的下界
无论是一维、二维还是多维数组，默认的下界都是0，使用关键字To来设置数组的上、下界，而不论Option Base语句是如何指定的。
2、控件数组
是一组具有类型相同的同名控件，共享同一事件过程的控件集合。控件数组可在设计阶段用相同的Name属性值来建立，也可以通过复制来建立，在程序运行过程可以利用创建对象的创建数组控件。
41
第6单元 实践练习
一、选择题
1、以下属于合法Visual Basic数组元素的是：＿＿＿。 A．X7 B．X[5] C．X D．X(0) 2、下面的数组声明语句中，正确的是：＿＿＿。 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 3、设有如下声明语句： Option Base 0
Dim B(-1 To 5, 2 To 4, 6) As Integer 则数组B中全部元素的个数为：＿＿＿。 A．72 B． 126 C．147 D．256
4、如果在定义数组时没有指定数组的类型，则定义的是默认数组，其类型默认为：＿＿＿。 A．Integer B．Variant C．Auto D．String
5、命令按钮中有如下代码，运行单击命令按钮，输出结果是：＿＿＿。 Option Base 1
Private Sub Command1_Click()
Dim A(10), P(3) As Integer, K As Integer, I As Integer K = 5 For I = 1 To 10 A(I) = I Next I For I = 1 To 3 P(I) = A(I * I) Next I For I = 1 To 3 K = K + P(I) * 2 Next I Print K End Sub
A．28 B．33 C．35 D．37
6、一个命令按钮中编写了如下代码，运行后单击命令按钮，输出结果是：＿＿＿。
42