6.在窗体上有一个命令按钮Command1，编写事件代码如下：

　　   Private Sub Command1_Click()

　　   Dim x As Integer, y As Integer

　　   x = 12: y = 32

　　   Call Proc(x, y)

　　   Debug.Print x; y

　　   End Sub

　　   Public Sub Proc(n As Integer, ByVal m As Integer)

　　   n = n Mod 10

　　   m = m Mod 10

　　   End Sub

　　   打开窗体运行后，单击命令按钮，立即窗口上输出的结果是(      )。答案：A

　　A）2 32

　　B）12 3

　　C）2 2

　　D）12 32

　　7.以下过程的功能是向数组中增加字符，则程序中下画线处应为(      )

　　   Private Sub AddToArray(arr(),arraycount%,ByVal charstring)

　　   Dim i%, found As Boolean

　　   found=False

　　   For i=1 To arraycount

　　   If array(i)=charstring Then

　　   found=True

　　   Exit For

　　   End If

　　   Next i

　　   If Not found Then

　　   arraycount= arraycount+1

　　   ———

　　   arr(arraycount)=charstring

　　   End If

　　   End Sub答案：B

　　A）ReDim arr(arraycount)

　　B）ReDim Preserve arr(arraycount)

　　C）Dim arr(arraycount)

　　D）Dim Preserve arr(arraycount)

　　8.以下窗体加载事件程序如下：

　　   Private Sub Form_Load()

　　   Do

　　   b = b + 1

　　   If b = 5 Then Exit Do

　　   Loop

　　   Msgbox b

　　   End Sub

　　   此程序运行结果为(      )。答案：A

　　A）5

　　B）6

　　C）7

　　D）8

　　9.在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为(      )。答案：D

　　A）Boolean

　　B）Integer

　　C）String

　　D）Variant

　　10.给定日期DD，计算该日期当月最大天数的正确表达式是(      )。答案：D

　　A）Day(DD)

　　B）Day(DateSerial(Year(DD)，Month(DD)，day(DD)))

　　C）Day(DateSerial(Year(DD)，Month(DD)，0))

　　D）Day(DateSerial(Year(DD)，Month(DD)+1,0))