全国计算机等级考试二级vb上机试题及答案(三)

《全国计算机等级考试二级vb上机试题及答案(三)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、全国计算机等级考试二级VB上机试题及答案(三)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文

2、件下，工程文件名为sjt1.vbp，窗体文件名为stj1.frm。（2）在名称为Form1的窗体上画一个文本框，名称为Text1，内容为"VB程序设计"；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为"扩大"和"缩小"，如图所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中的文本的字体扩大1.2倍；每单击Command2按钮一次，文本框中文本的字体缩小1.2倍。程序运行的界面如图所示。****************************************************************参考答

3、案与分析（1）【解析】本题主要考查的是文本框的Change事件的用法。当用户向文本框中输入新信息，或程序把Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件。程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符，就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text属性，就可以实现两个文本框中的内容的同步变化。【答案】步骤1：启动VB，新建工程文件。步骤2：设计窗体。根据题意，该用户界面包括三个对象，即窗体和两个文本框。单击工具箱中的文本

4、框图标，在窗体的适当位置画一个文本框。画完后，文本框内自动标有Text1。重复以上步骤，再添加一个文本框为Text2。步骤3：设置属性。根据题意，窗体的名称（Name）和标题(Caption)属性都为默认的Form1，因此无需再为其重新设置属性。单击Text1，将其激活，在属性窗口中将其Name属性改为T1。然后单击Text2，使其变为活动控件，在属性窗口中将其Name属性改为T2。根据题意，在初始情况下，两个文本框中都没有内容，这可以通过在属性窗口中将其Caption属性设置为空值或在代码窗口中的"Form1_Load"事件中通过代码来实现。本题采用编写代码来实现。设置完属性

5、之后就可以通过双击窗口进入代码编辑窗口编写代码如下：1PrivateSubForm_Load()2T1.Text=""3T2.Text=""4EndSub5PrivateSubT1_Change()6T2.Text=T1.Text7EndSub步骤4：保存。程序设计完成经调试无误后进行存盘。执行"文件"菜单中的"保存工程"命令，打开"文件另存为"对话框，窗体文件名为"Stj1.form"，单击保存按钮。然后在紧接着出现的"工程另存为"对话框中选择工程文件名为"Stj1.vbp"，单击保存按钮。（2）【解析】本题主要考查对象的Left属性的概念。Left属性使用来设置对象的左边的

6、坐标值，坐标值的默认单位为twip。当用程序代码设计时其格式为：对象.Left[＝x]。这里的对象可以是窗体和绝大多数控件。当"对象"为窗体时，Left指的是窗体得左边界于屏幕左边界的相对距离；而当"对象"为控件时，Left指控件的左边界与窗体的左边的相对距离。和Left属性相同的还有top属性，它是用来设置对象的顶边的坐标值，其对象的概念和Left属性中相同。本题要求单击按钮后文本框水平移动到窗体的最左端。对象为文本框，它的Left值是相对于窗体的左边界来说的，因此当它移动到窗体最左端时其Left值为0。【答案】步骤1：启动VB，新建一个工程文件。步骤2：画一个文本框，Nam

7、e属性设为Text1，Text属性设为空。再画两个命令按钮，Name属性设为Command1和Command2，Caption分设为"扩大"和"缩小"。步骤3：编写程序源代码：1PrivateSubCommand1_Click()2Text1.FontSize=Text1.FontSize*1.23EndSub4PrivateSubCommand2_Click()5Text1.FontSize=Text1.FontSize/1.26EndSub步骤4：保存。程序设计完成经调试无误后进行存盘。