2013年计算机二级VB上机模拟试题及答案（2）

　　1. 基本操作(2小题，每小题15分，共计30分)

　　注意：下面出现的“考生文件夹”均为%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:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开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:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

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