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

　　第06套

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

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

　　**********************************************************************

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

　　(1)在名称为Form1的窗体上画两个命令按钮，其名称分别为C1和C2，标题分别为“命令按钮1”和“命令按钮2”， 通过属性窗口设计适当的属性，使得程序运行后，“命令按钮2”隐藏。编写适当的事件过程，使得单击“命令按钮1”，则“命令按钮2”出现，“命令按钮1”隐藏;而如果单击“命令按钮2”，则“命令按钮1”出现，“命令按钮2”隐藏。程序的运行情况如图所示。

　　注意：

　　程序中不得使用变量。

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

　　解题思路：

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

　　在该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为C1和C2，标题(Caption属性)分别设为“命令按钮1”和“命令按钮2”，将C2的Visible属性为False。\单击命令按钮1(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub C1_Clickk()

　　C2.Visible = True

　　C1.Visible = False

　　End Sub

　　单击命令按钮2(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub C2_Clickk()

　　C1.Visible = True

　　C2.Visible = False

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

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

　　**********************************************************************

　　(2)在名称为Form1的窗体上画一个列表框，其名称为L1;一个水平滚动条，其名称为HS1，SmallChange属性为2， LargeChange属性为10，Min属性为0，Max属性为100，编写适当的事件过程。 程序运行后，如果把滚动框移到某个位置，然后单击窗体， 则在列表框中添加一个项目，其内容是“xx”，其中xx是滚动框所在的位置，如图所示。

　　注意：

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

　　解题思路：

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

　　在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1。画一个水平滚动条控件，通过其属性窗口将名称设为HS1，Min属性设为0，Max属性设为100，SmallChange属性设为2，LargeChange属性设为10。

　　单击窗体(即运行Click事件过程)，在该Click事件过程中加入语句：

　　Private Sub Form_Click()

　　L1.AddItem Str$(Form1.HS1)

　　End Sub