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

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

(1)在名称为Form1的窗体上用名称为Shape1的控件画一个圆，其直径为1500 (即宽、高均为1500 )，并设置适当属性，使窗口标题为“圆”，窗体 标题栏上不显示最大化和最小化按钮(如图所示)。

注意：

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

解题思路：

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

在该窗体上用Shape图形控件画一个园，通过其属性窗口将名称设为Shape1，高(Height属性)设为1500，

宽(Width属性)设为1500，Shape属性设为3。激活Form1窗体，通过其属性窗口将标题(Caption属性)设为“圆”，

最大化按钮(MaxButton属性)设为False，最小化按钮(MinButton属性)设为False。

参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw

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

(2)在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示)，名 称为file， 含两个菜单项，其名称分别为open、save，标题分别为“打开”、“存盘”。编写适当的事件过程。程序运行后，如果用鼠标右键

单击窗体，则弹出此菜单(如图所示)。

注意：

程序中不能使用变量。保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm

解题思路：

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

在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处为空，名称处输入file，将“可见”单选按钮设为不选状态。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“存盘”，名称处分别输入open、save。

鼠标右键单击窗体(即运行MouseDown事件过程)，在该MouseDown事件过程中加入语句：

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

If Button = 2 Then

PopupMenu file

End If

End Sub

参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw

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