2. 计算机
  3. (1)在窗体上绘制一个标签L1；一个单选按钮数组，名称为Opl，含三个单选按钮。它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”和“汽车”；一个名称为Textl的文本框。编写程序，使得在运行时单击“飞机”或“火车”单选按钮时，在’rext

(1)在窗体上绘制一个标签L1；一个单选按钮数组，名称为Opl，含三个单选按钮。它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”和“汽车”；一个名称为Textl的文本框。编写程序，使得在运行时单击“飞机”或“火车”单选按钮时，在’rext

admin2010-07-13  8
问题 (1)在窗体上绘制一个标签L1；一个单选按钮数组，名称为Opl，含三个单选按钮。它们的Index属性分别为0、1和2，标题依次为“飞机”、“火车”和“汽车”；一个名称为Textl的文本框。编写程序，使得在运行时单击“飞机”或“火车”单选按钮时，在’rextl中显示“我坐飞机去”或“我坐火车去”，单击“汽车”单选按钮时，在Textl中显示“我开汽车去”。程序运行界面如图66—4所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为si3．vbp。
    (2)在考生文件夹中有工程文件Sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有两个名称分别为Commandl和Command2、标题分别为“求平方”和“求立方”的命令按钮，两个名称分别为Textl和Text2的文本框。要求程序运行后，在Textl中输入一个整数，单击“求平方”或“求立方”按钮后，可把该整数的“平方”或“立方”在Text2中显示，如图66—5所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)标签和单选按钮的标题均由各自的Caption属性设置。程序中需要检测的单选按钮的状态，这可以通过Value属来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。当建立单选按钮数组控件时，系统给每个元素赋一个一的索引号(Index)，通过属性窗VI的Index属性，可以知道该控件的下标。在文本框中显示内容通过Text属性设置，其式为：文本框名．Text：显示的内容，程序中用到了Select Case语句，格式如下： Select Case变量或表达式(对于本题来说就是控件数组元素的下标) Case表达式列表1 语句块1 Case表达式列表2 语句块2 Case Else 语句块n+1] End Select ①建立界面并设置控件属性。程序用到的控件及其属性见下表： [*] ②打开工程资源管理器，右击窗体，选择查看弋码项，在弹出的代码窗口输入代码如下： Private Sub Opl_Click(Index As Integer) Dim a As String，b As String，C As String a="我坐" b="我坐" c="我开" Select Case Index CaSe 0 Textl．Text=a+Me．Opl(0)．Caption+"去" Case 1 Textl．Text=b+Me．Opl(1)．Caption+"去" Case 2 Textl．Text=C+Me．Opl(2)．Caption+"去" End Select End Sub ③调试并运行程序。 ④按题目要求存盘。 (2)根据题意，将两个Text控件和两个Command控件添加到窗体上，Text的名称分别为Textl和Text2、Text属性都为空，Command的名称分别为Commandl和Command2，Caption属性分别为“求平方”和“求立方”。双击Commandl命令按钮，编写如下代码．： Private Sub Commandl_Click() Text2．Text=Val(Textl．Text)*Val(Textl．Text) ’求Textl中数的平方 End Sub Private Sub Command2_Click() Text2．Text=Val(Textl．Text)*Val(Textl．Text)*Val(Textl．Text) ’求Textl中数的立方 End Sub 单击按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/fGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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