|
1. 基本操作（2小题，每小题15分，共计30分）
请根据以下各小题的要求设计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 首页 1 2 3 尾页
相关资料
| 
