王老师重点推荐50套操作题(含答案).pdfVIP

01-第 01 套 基本操作题 （1）在名称为 Forml 的窗体上添加一个名称为 H1 水平滚动条，请在属性窗口中设置它的属性值，满足下列 要求：它的最小刻度值为 1，最大刻度值为 100，在程序运行时鼠标单击滚动条上滚动框以外的区域 (不包括两边 按钮 ) ，滚动框移动 10个刻度。再在滚动条下面画两个名称分别为 L1 、L2 的标签，并分别显示 1、 100，运行时的 窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp ，窗体文件名为 sjt1.frm 。 （2 ）在名称为 Form1 的窗体上添加两个名称分别为 Text1 和 Text2 的文本框，初始内容均为空；再建立一个下 拉菜单，菜单标题为 操作 ，名称为 M1 ，此菜单下含有两个菜单项，名称分别为 Copy和 Clear ，标题分别为 复制 、 清除 ，请编写适当的事件过程，使得在程序运行时，单击 复制 选项菜单，则把 Text1 中的内容复制到 Text2 中，单击 清除 选项菜单，则清除 Text2 中的内容 (即在 Text2 中填入空字符串 ) 。运行时的窗体如图所示。要求在 程序中不得使用任何变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp ，窗体文件名为 sjt2.frm 。 Private Sub Clear_Click() Private Sub Copy_Click() Text2.Text = Text2.Text = Text1.Text End Sub End Sub 01-第 01 套 简单应用题 （1）在考生文件夹下有一个工程文件 sjt3.vbp ，窗体上已经有一个标签 Label1 ，请添加一个单选 按钮数组， 名称为 Op1 ，含三个单选按钮， 它们的 Index属性分别为 0 、1、2 ，标题依次为 飞机 、 火车 、 汽车 ，再添加一个名称为 Text1 的文本框。窗体文件中已经给出了 Op1 的Click 事件过 程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在程序运行时单 击 飞机 或 火车 单选按钮时， 在Text1 中显示 我坐飞机去 或 我坐火车去 ，单击 汽车 单选按 钮时，在 Text1 中显示 我开汽车去 ，如图所示。 注意：不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = 我坐 b = 我开 Select Case ? ***** Index ***** Case 0 Text1.Text = a + Me.Op1(0).Caption + 去 Case 1 Text1.Text = ? + Me.Op1(1).Caption + 去 ***** a ***** Case 2 Text1.Text = b + Me.Op1(2).Caption + 去 End