【Visual Basic】2013年计算…

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

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

 

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

 

　　（1）在名称为Form1 的窗体上建立一个二级下拉菜单（菜单项见下表），运行时的窗体如图所示。

 

　　*注意：

 

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

 

　　解题思路：

 

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

 

　　在该窗体上通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“文件”，名称处输入File，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“打开”、“关闭”，名称处分别输入Open和Close，将“关闭”按钮的“有效”单选按钮设为不选状态。

 

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

 

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

 

　　（2）在名称为Form1 的窗体上画两个文本框，名称分别为Text1、Text2，均无初始内容。要求：

 

　　1）通过属性窗口设置适当的属性，使Text1、Text2 中显示的文本的字体为“隶书”；

 

　　2）编写适当的事件过程，使得在 Text1 中输入每一个字符时，立即在Text2中显示Text1中的内容，如图所示。

 

　　*注意：

 

　　要求程序中不得使用变量，事件过程中只能写一条语句。

 

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

 

　　解题思路：

 

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

 

　　在该窗体上画二个文本框控件，通过其属性窗口将名称分别设为Text1和Text2，文本内容（Text属性）均设为空，点击文本框的Font属性，其弹出的字体对话框中将字体均设为“隶书”。改变Text1的内容（即运行Change事件过程），在该Change事件过程中加入语句：

 

　　Private Sub Text1_Change()

 

　　Text2 = Text1

 

　　End Sub

 

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

 

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