1．       有如下程序：

Private Function func(ByVal a As Integer, ByVal b As Integer)

  func = a + b

End Function

Private Sub Command1_Click( )

  Dim x As Integer, y As Integer

  Dim z As Integer, r As Integer

  x = 2 : y = 5 : z = 8

  r = func(func(x,y),z)

  Print r

End Sub

当在Command1按钮上单击，该程序的输出结果是（　）

（A）12                  （B）13               　（C）14                         （D）15

2．       设有如下通用过程：

Public Sub Fun(a( ), ByVal x As Integer)

  For i = 1 To 5

x = x + a(i)

            Next

         End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

         Private Sub Command1_Click( )

            Dim art(5) AsVariant

            For i = 1 To 5

              art(i) = i

            Next i

            n = 10

            Call Fun(art( ), n)

            Text1.Text = n

         End Sub

程序运行后，单击命令按钮，在文本框中显示的内容为（　）

（A）10                  （B）15                      （C）25                      （D）24

3．       要为工程添加一个过程，可执行“（　）”菜单中的“添加过程”

（A）文件               （B）视图                   （C）工程                   （D）工具

4．       以一关于键盘事件中，叙述错误的是（　）

（A）       在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母（即具有相同的KeyCode）

（B）       在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字（即具有不同的KeyCode）

（C）       KeyPress事件中不能识别键盘上某个键的按下与释放

（D）       KeyPress事件中可以识别键盘上某个键的按下与释放

5．       以下关于菜单的叙述中错误的是（　）

（A）      在同一个窗体的菜单项中，不允许出现标题相同的菜单项

（B）      在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的键盘访问键

（C）     程序运行过程中，可以重新设置菜单的“Visual”属性

（D）     弹出式菜单也在菜单编辑器中定义

6．       有一个菜单项名为Menu123，若想在程序运行的过程中选中该菜单项，即在该菜单项前面显示“√”，可执行下面的（　）语句

（A）Menu123.Enabled = True                 （B）Menu123.Enabled = False