王老师重点推荐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 Select End Sub （2 ）在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1 ；请在窗体上添加两个 框架控件，名称分别为F1 、F2 ，标题分别为性别、身份；在F1 中添加两个单选按钮控件Op1、Op2，标题分 别为男、女；在F2 中添加两个单选按钮控件Op3、Op4，标题分别为学生、教师；再添加一个命令按钮， 名称为C1，标题为确定。如图所示。请编写适当的事件过程，使得在运行时，在 F1、F2 中各选一个单选按钮，然后单击确定按钮，就可以按照下表把结果显示在 文本框中。 性别 身份 在文本框中显示的内容 男 学生 我是男学生 男 教师 我是男教师 女 学生 我是女学生 女 教师 我是女教师 最后把修改后的文件以原来的文件名存盘。 注意：考