2. Erase语句可以释放内存中常规数组所占的空间。（ ）

3. 静态局部变量是在过程中用Static语句声明的。 （ ）

4. 变体型变量的数据类型是由赋给它值的数据类型决定。设A的类型为变体型，执行 A=\后则A的类型为逻辑型。（ ） 5. Dim X As Boolean, Y

X = True Y = 0 Print X > Y

程序的输出结果为False（ ）

6. 任意整数X十位上的数字可以表示为(X MOD 100 - X MOD 10)\\10。（ ）

7. Visual Basic具有三种基本的流程控制结构：顺序结构、分支结构和循环结构。（ ） 8. 在Visual Basic中，调用子过程时，如果实参是数组，则形式参数也为数组，而且形式参数的数组不能加括号。（ ）

11

三．填空：（本大题共12分， 每空2分） 1、假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______。

2、根据变量的定义位置和所使用的变量定义语

句的不同，VB中的变量可以分为3类，_____、模块变量和全局变量。 3、以下循环的执行次数是_____。 K=0

Do While k<=10 k=k+1 Loop 4

、

函

数

Len(\3))的值是_______。

5、下列程序的执行结果为______。 A=\B=\

A=Val(A)+Val(B)

12

B=Val(\

If A<>B Then Print A-B Else Print B-A 6、数学表达式Cos(a+b)+5e+lg3相对的VB表达式是________________

五、读程序，写结果（每题5分，共20分） 1、Private Sub Command1_Click()

a = 0: s = 0 For i = 1 To 2 For j = 1 To 4 If j Mod 2 <> 0 Then a = a + 1 End If a = a + 1 s = s + 1 Next j Next i

Print \

End Sub 2、Option Base 1

13

2 2

Dim a()As Integer Private Sub Form_Click() Dim i As Integer，j As Integer ReDim a(2，2) For i=1 To 2 For j=l To 2 a(I,j)=i*2+j

Print “a(”；i；“，”；j；“)=”；a(i,j)； Next j Print Next i End Sub

3、Private Sub form_click()

Dim a(3, 3) As Integer, I As Integer

Dim j As Integer, k As Integer, n As Integer

n = 9

For k = 5 To 1 Step -1 If k >= 3 Then

14

For I = 1 To 6 - k a(k - 3 + I, I) = n n = n - 1 Next I Else

For I = 1 To k

a(k - I + 1, 3 - I + 1) = n n = n - 1 Next I End If Next k

For k = 1 To 3 For I = 1 To 3 Print a(k, I); Next I Print Next k

End Sub

4. Private Sub Form_Click()

15