一、填空题 1． 返回相应的结果 2． 没有返回值 按名称 3． 按名称 4． 以该函数名 5．窗体模块 标准模块 类模块 6．Click 7．顶级菜单项目 8．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 9．添加过程 10．标准模块的通用声明段 二、判断正确与错误（正确标∨，错误标 x ）并写出正确答案。 1．（ x 子过程能接收参数。） 2．（x 函数过程能接收参数 。） 3．（∨） 4．（∨） 5．（ x Call MyPro（A、B） MyProc（ A、B） 6．（∨） 7．（ x 标准模块是程序中的一个独立容器，包含全局变量、Function（函数）过程和Sub过程。） 三、问答题 1．什么是工程？ 解答：工程是构成应用程序文件的集合。工程文件是与工程相关联的所有文件和对象以及所设置的环境信息的一个简单的列表，所有文件和对象也可以被其它的工程所共享。 2．什么是过程？ 解答：一个应用程序是由若干个模块组成的，而每个模块又是由若干个更小的代码片段组成，将组成这些模块的代码片段称为过程。通过过程，可以将整个程序按功能进行分块，每个过程用来完成一项特定的功能。 3．选中一个窗体，启动菜单编辑器的方法有哪三种？ 解答：（1）使用菜单“工具”/（菜单编辑器） （2）使用工具栏按钮工具栏快捷键；（3）键盘快捷键CTRL E 4．什么是动态菜单？ 解答：动态菜单，就是菜单中列出了最近使用过的文件名，这部分内容是随着应用程序的运行而不断改变着的，在运行时使菜单可以增长。 5．已知弹出菜单的名是aa，填补弹出菜单的代码。 解答：Private Sub Form_MouseDown（Button As Integer,Shift As Integer，X As Single，Y As Single） ’在窗体上按下鼠标。 If Btton = 2 Then ′如果是右键。 PopupMenu aa ′弹出菜单。 End If End Sub 6．现使用菜单编辑器设计弹出菜单。菜单第一项（使顶级菜单项目）的Caption为“弹出菜单”，Name：“aa”，Visible没有选中，填补弹出菜单的代码。 解答：Private Sub Form_MouseDown（Button As Integer,Shift As Integer，X As Single，Y As Single） ′在窗体上按下鼠标。 If Btton = 2 Then ′如果是右键。 PopupMenu aa ′弹出菜单。 End If End Sub 四、编程题 1．编写一个过程，以整型数作为形参，当该参数为奇数时输出False，而当该参数为偶数时输出True。 解答：通用过程如下： Function NumOE（ByVal n As Integer）As Boolean If n Mod 2 = 0 then NumOE= True Else NumOE = False End If End Function 这是一个Function 过程，该过程有一个整型形参，其返回值为 Boolean 类型。当参数值为奇数时，过程返回False，否则返回True。在下面的事件过程中调用该过程： Private Sub Form_Click() Dim RetNum As Boolean num = InputBox("请输入一个整数") num = Val(num) RetNum = NumOE(num) If RetNum = True Then a$ = "偶数" Else