2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次

admin2009-02-25  69
问题 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
   (1) 在考生文件夹下有一个工程文件sjt3.vbp，窗体上已经有一个标签L1，请画一个单选按钮数组，名称为Op1，含三个单选按钮，它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”、“汽车”，再画一个名称为Text1的文本框。
   窗体文件中已经给出了Op1的Click事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时单击“飞机”或“火车”单选按钮时，在Text1中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Text1中显示“我开汽车去”。程序运行界面如图19-3所示。

   注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
   (2) 在考生文件夹下有一个工程文件sjt4.vbp，Form1窗体中有一个文本框，名称为Text1；请在窗体上画两个框架，名称分别为F1和F2，标题分别为“性别”和“身份”；在F1中画两个单选按钮Op1和 Op2，标题分别为“男”和“女”；在F2中画两个单选按钮Op3和Op4，标题分别为“学生”和“教师”；再画一个命令按钮，名称为C1，标题为“确定”。程序运行界面如图19-4所示。
   请编写适当的事件过程，使得在运行时，在P1和F2中各选一个单选按钮，然后单击“确定”按钮，就可以按照表19-1把结果显示在文本框中。

   注意：考生不得修改窗体文件中已经存在的程序和Text1的属性，在结束程序运行之前，必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序，否则无成绩。
选项
答案标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过Value属性来实现。如果单选按钮被选中，则Value值为1；否则Value值为0。当建立控件数组时，系统给每个元素赋一个惟一的索引号 (Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少．在文本框里显示内容通过Text属性设置，其形式为： 文本框名.Text=显示的内容 程序中用到了Select Case语句，格式如下： Select Case 变量或表达式(对于本题来说就是控件数组元素的下标) Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 …… [Case Else 语句块n+1] End Select 解题步骤：第一步：建立界面并设置控件属性。程序用到的控件及其属性见表19-4。 [*] 　　第二步：编写程序代码。 　　程序提供的代码： 　　　　Private Sub Op1_Click(Index As Integer) 　　　　　　Dim a As String, b As String, c As String 　　　　　　a="我坐" 　　　　　　b="我开" 　　　　’ Select Case ? 　　　　　　　　Case 0 　　　　　　　　　　Text1.Text=a+Me.Op1(0) .Caption+"去" 　　　　　　　　Case 1 　　　　’ Text1.Text=?+Me.Op1(1) .Caption+"去" 　　　　　　　　Case 2 　　　　　　　　　　Text1.Text=b+Me.Op1(2) .Caption+"去" 　　　　　　End Select 　　　　End Sub 　　参考代码： 　　　　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=a+Me.Op1(1) .Caption+"去" 　　　　　　　Case 2 　　　　　　　　　Text1.Text=b+Me.Op1(2) .Caption+"去" 　　　　　　　End Select 　　　　　End Sub 　　第三步：调试并运行程序。 　　第四步：按题目要求存盘。 　　(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 　　命令按钮标题由Caption属性设置，单击命令触发Click事件；单选按钮的标题由Caption属性设置，程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现，其形式为： 　　文本框名.Text=显示的内容。解题步骤： 　　第一步：建立界面并设置控件属性。程序用到的控件及其属性见表19-5。 [*] 第二步：编写程序代码。 参考代码： Private Sub C1_Click() Text1.Text="我是" If Op1.Value Then Text1.Text=Text1.Text & Op1.Caption Else Text1.Text=Text1.Text & Op2.Caption End If If Op3.Value Then Text1.Text=Text1.Text & Op3.Caption Else Text1.Text=Text1.Text & Op4.Caption End If End Sub Private Sub Form_Unload(Cancel As Integer) Open "out4.txt" For Output As #1 Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text Close #1 End Sub 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/7h1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)