2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，窗体上有一个单选按钮数组，名称为Optionl，含4个单选按钮，它们的Index属性分别为O、1、2和3，标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”，再画一个名称为Textl

(1)在考生文件夹下有一个工程文件sj3．vbp，窗体上有一个单选按钮数组，名称为Optionl，含4个单选按钮，它们的Index属性分别为O、1、2和3，标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”，再画一个名称为Textl

admin2009-08-26  53
问题 (1)在考生文件夹下有一个工程文件sj3．vbp，窗体上有一个单选按钮数组，名称为Optionl，含4个单选按钮，它们的Index属性分别为O、1、2和3，标题依次为“Iteml”、“Itera2”、“Item3”和“Item4”，再画一个名称为Textl的文本框。
    窗体文件中已经给出了Optionl的Click事件过程，但不完整，要求去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使得在运行时单击“Iteml”或“Item2”单选按钮时，在Textl中显示“选择Iteml”或“选择Item2”，单击“Item3”或“Itern4”单选按钮时，在Textl中显示“Item3被选择”和“Itern4被选择”。程序运行界面如图35—3所示。
    注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4．vbp，Form1窗体中有一个文本框，名称为Textl，两个框架，名称分别为Framel和Frame2、标题分别为“科目”和“难易”；在Framel中有两个单选按钮Optionl和Option2，标题分别为“数学”和“语文”；在Frame2中有两个单选按钮Option3和Option4，标题分别为“困难”和“简单”；一个命令按钮，名称为Commandl，标题为“输出”。程序运行界面如图35—4所示。

    请编写适当的事件过程，使得在运行时，在Framel和Frame2中各选一个单选按钮，然后单击“输出”按钮，输出“我觉得数学困难”、“我觉得数学容易”、“我觉得语文困难”和“我觉得语文容易”之一。
选项
答案(1)程序中需要检测单选按钮的状态，这可以通过Value属性来实现。如果单选按钮被选中，则其Value值为1；否则Value值为0。当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗VI的Index属性，可以知道该控件的索引号是多少。标签和单选按钮的标题均由各自的Caption属性设置。 根据题意，将一组Option放到对话框中，包含4个单选按钮，Index分别为0、1、2和3，Caption分别为“Iteml”“Item2”“Item3”和“Item4”，一个文本框控件，名称为Textl，Text属性为空。补充后的具体代码如下： Private Sub Optionl_Click(Index As Integer) If Index=1 Or Index=0 Then Textl．Text="选择"+Optionl．Item(Index)．Caption EIse Textl．Text=Optionl．Item(Index)．Caption+"被选择" End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)程序中需要检测的单选按钮的状态，通过Value属性来实现，如果单选按钮被选中，则Value值为1，否则Value值为0。在文本框中显示内容通过Text属性实现。 根据题意，将2个框架控件、4个单选按钮控件、1个文本框控件和1个命令按钮添加到窗体中，框架的Caption属性分别为“科目”和“难易”，单选按钮的名称分别为Optionl、Option2、Option3和Option4，Caption分别为“数学”、“语文”、“困难”和“容易”，其中Optionl和Option3的Value为True，命令按钮的名称为Commandl、Caption属性为“输出”。补充后的具体代码如下： Private Sub Commandl_Click() Dim str As String str="我觉得" If Optionl．Value=True Then str=str+Optionl．Caption’选中数学 Else str=str+Option2．Caption’选中语文 End If If Option3．Value=True Then str=str+Option3．Caption’选中困难 Else str=str@Option4．Caption’选中简单 End If Textl．Text=str End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/3c1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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