C.b=Mid（a，8，5）

D.b=Left（a，8，5）

正确答案：b=Mid（a，8，5）

第五章单元测试

1、若有数组说明语句为：Dim a（10），则数组a包含元素的个数是（）.

A.11

B.8

C.10

D.12

正确答案：11

2、已知有数组声明：Dim a（-1 To 3，2 To 5）As integer，如下引用数组中的元素，正确的是

A.a（-1，2）

B.a（0，6）

C.a（4）

D.a[-1，2]

正确答案：a（-1，2）

3、在窗体上添加一个命令按钮，编写如下代码：Option ；Base 1Private Sub Command1（）Click；Dim ；a（10） As Integer，p（3）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 kEnd Sub程序运行后，单击命令按钮，输出结果是

A.35

B.33

C.28

D.37

正确答案：33

4、如下数组声明语句，正确的是

A.Dim a（3，4）As Integer

B.Dim a（3，4）%

C.Dim a[3，4]As Integer

D.Dim a（n，n） As Integer

正确答案：Dim a（3，4）As Integer

5、在窗体中添加一个命令按钮，然后编写如下代码：Private Sub Command1（）Click（）；ReDim this（4）；For i = 1 To 4 ；； this（i） = i * 3；Next；ReDim this（6）；For i = 1 To 6 ；；this（i） = this（i） + i；Next；Print this（3）；this（6）End Sub ；程序运行后，则窗体上显示的内容为（）

A.12 ；6

B.10 ；6

C.8 ；0

D.3 ；6

正确答案：3 ；6

第六章单元测试

1、下面的过程语句声明中正确的是（）

A.Sub f1（ByVal n%（））

B.Function f1%（ByRef f1%）

C.Sub f1（ByRef n%） As Integer

D.Function f1（Byval n%）

正确答案：Function f1（Byval n%）

2、在一个过程中定义的变量，若希望该过程外还能保存过程中局部变量的值，则应使用关键字（）在过程中定义过程级变量。

A.Static

B.Private

C.Dim

D.Public

正确答案：Static

3、下面过程运行后显示的结果是（）；Public Sub F1 （ByRef n%， ByVal m%）；n=n Mod 10；M=m\10End SubSub Command1（）Click（）；Dim x%， y%；X=12：y=34；Call F1（x，y）；MsgBox（x &； “ “ &； y）End Sub

A.2 ；3

B.2 ；34

C.12 ；3

D.12 ；34

正确答案：2 ；34

4、如下程序的运行结果是（）Sub Command1（）Click （）；MsgBox （p1（3.0， 7））End SubPublic Function p1! （ByVal x!， ByVal n%）；If n=0 Thenp1=1；Else；If n Mod 2=1 Then；p1=x*p1（x， n\2）；Else；P1=p1（x， n\2） \xEnd if End ifEnd Function

A.27

B.18

C.14

D.7

正确答案：27

5、如下程序运行后各变量的值依次为（）Public Sub Proc （ByRef a%（））Static i%Do；a（i）=a（i）+a（i+1）；I=i+1Loop While i<；2End Sub；Sub Command1（）Click （）；Dim m%， i%， x%（10）；For i=0 To 4：x（i）=i+1：Next i；For i=1 To 2：Call Proc（x）：Next i；For i=0 To 4：Print x（i）；：next iEnd sub