有如下程序。运行后在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（)。 Dim c As Integer，d As

窗体上有一个命令按钮Command1，其Click事件过程如下。

  Private Sub Command1_Click()

  Dim i As Integer,j As Integer,k As Integer

  Dim x As Integer

  For i=1 To 4

   x=i

   For j=1 To 3

    x=i+j

    For k=1 To 2

     x=x+6

    Next k

   Next j

  Next i

  MsgBox x

  End Sub

  运行窗体后单击命令按钮，输出结果是(  )。

  A．7  B．12  C．15  D．19

在窗体上添加一个命令按钮Command1，一个文本框Text1，编写如下程序：

  Function result(ByVal x As Integer)As Boolean

   If x Mod 2=0 Then

    result=True

   ElSe

    result=False

   End If

  End Function

  Private Sub Command1_Click()

   x=Val(InputBox("请输入一个整数"))

   If______Then

     Textl=Str(x)&"是偶数."

   ElSe

     Text1=Str(x)&"是奇数."

   End If

  End Sub

  程序运行后单击命令按钮，在输入对话框中输入19，则在Text1中显示“19是奇数”。那么程序的空白处应填写(  )。

  A．result(x)="偶数"  B．result(x)="奇数"

  C．result(x)D．NOT result(x)

有如下程序。

  Dim a(5,5),m as Integer,n as Integer

  For m=2 To 4

  For n=4 To 5

   If m<>n Then

    a(m,n)=m*n

   ElSe

    a(m,n)=m+n

   End If 

  Next n

  Next m

  MsgBox a(2,3)+a(3,4)+a(4,5)

  运行后的输出结果是(  )。

  A．22  B．32  C．42  D．52

默认情况下，语句Dim a(10，10)的含义是(  )。

  A．定义了有100个元素的Integer型数组

  B．定义了有100个元素的Varient型数组

  C．定义了有121个元素的Integer型数组

  D．定义了有121个元素的Varient型数组

以下关于VBA过程和函数的叙述中，错误的是(  )。

  A．可以将过程的返回值赋给变量

  B．宏对象经转换后自动成为模块中的一个过程

  C．VBA中除了内置函数，还可以自定义函数

  D．过程内用Static定义的变量是过程级静态局部变量

如果在定义过程时使用了Static关键字，则表明(  )。

  A．过程名是静态的

  B．形式参数是静态的

  C．过程中的局部变量是静态的

  D．过程的返回值是静态的

有如下程序(其中chr(13)表示换行)。以下关于程序功能的叙述中，正确的是(  )。

  Dim x As Integer, a As Integer, b As Integer, i As Integer

  For i=1 T0 10

   x=InputBox("请输入一个整数：")

   If Int(x/2)=x/2 Then

    a=a+1

   Else

    b=b+1

   End If

  Next i

  MsgBox"a="&a&chr(13) &"b="&b

  A．对输入的10个数求累加和

  B．对输入的10个数分别统计奇数和偶数的累加和  

  C．对输入的10个数分别统计奇数和偶数的个数，其中奇数的个数保存在变量a中

  D．对输入的10个数分别统计奇数和偶数的个数，其中偶数的个数保存在变量a中

的平方根。程序空白处应填写(  )。

  Dim s As Integer, i As Integer

  Dim flag As Boolean, p As Integer

  flag=True

  Do While flag

    s=val(InputBox("请输入："))

    If s＜0 Then

      MsgBox"输入无效!请重新输入。"

   Else

      MsgBox Sqr(s)

      ______

   End If

  Loop

  A．flag=True  B．flag=False  C．True=flag  D．False=flag

使用Function语句定义的函数过程，其返回值的类型(  o

  A．只能是符号常量

  B．可在调用时由运算过程决定

  C．是除数组之外的简单数据类型

  D．由函数定义时As子句声明

有过程P和过程s，运行过程P时调用过程s。过程P的运行结果是(  )。

  Public Sub p()

  Dim i As Integer

  i=3

  Call s(i)

  If i＞4 Then i=i^ 2 

  MsgBox i

  End Sub

  Public Sub S(ByVal P As Integer)

   P=P*2

  End Sub

  A．3  B．4  C．5 D．6