注意：下面出现的“考生文件夹”均为%USER%

　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

　　（1）在名称为Form1的窗体上画一个名称为CD1的通用对话框，通过属性窗口设置CD1的初始路径为C:/，默认的文件名为None，，标题为“保存等级考试”。请编写窗体的Load事件过程，使得程序运行时，该对话框打开为保存文件对话框（如图所示）。要求程序中不得使用变量，每个事件过程中只能写一条语句。

　　注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个通用对话框控件，通过其属性窗口将名称设为CD1，DialogTitle属性设为“保存等级考试”，FileName属性设为None，InitDir属性设为c:/。

　　在Private Sub Form_Load()事件过程中加入语句：

　　Private Sub Form_Load()

　　CD1.ShowSave

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt1.vbp文件并运行。

　　（2）在名称为 Form1的窗体上设计一个弹出式菜单。要求如下：

　　按以上要求设置菜单项，并编写适当的事件过程，使得在窗体上单击鼠标右键弹出该菜单，如图所示。要求程序中不得使用变量。

　　注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“右键菜单”，名称处输入mnu0。

　　在“右键菜单”菜单下有三个子菜单，在菜单编辑器的标题处分别输入“菜单命令”、“不可用菜单”和“带标记的菜单项”，名称处分别输入mnu1、mnu2和mnu3。

　　在Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　事件过程中加入语句：

　　Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　If Button = 2 Then

　　Call PopupMenu(mnu0)

　　End If

　　End Sub

　　参考文件：c:/wexam/26990001/hlpsys/参考答案/sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt2.vbp文件并运行。