问答题
在
下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按照图1所示添加框架和单选按钮。要求：添加两个框架，名称分别为Frame1、Frame2，在Frame1中添加一个名为Option1的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”，在Frame2中添加两个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮初始状态为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图2所示。如果“音乐”或“体育”未被选中，相应的单选按钮不可用。
要求：按照题目要求添加控件，去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
图1
要求：按照题目要求添加控件，去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
图1
【正确答案】
【答案解析】[操作步骤]
步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表1和表2。
步骤2：分析并编写程序代码。
程序提供代码
Private Sub Check1_Click()
If Cheek1. Value=1 Then
Frame1. Enabled=True
Else
Frame1. Enabled=False
End If
End Sub
Private Sub Cheek2 Click()
If Check2. Value=1 Then
Frame2. Enabled=True
Else
Frame2. Enabled=False
End If
End Sub
Private Sub Command1_Click()
If Check1. Value=1 Then
If ?=True Then
S="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2. Value=1 Then
"If ?=True Then
s=s &"篮球"
Else
s=s &"羽毛球"
End If
End If
Label2. Caption=?
End Sub
Private Sub Form_Load()
Check1. Value=1
Check2. Value=1
End Sub
程序结束
第1个?处填入：Optionl(0). Value
第2个?处填入：Option2. Value
第3个?处填入：s
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 通过设置单选按钮的Value属性，使“古典音乐”和“篮球”单选钮为选中状态。单击“选择”按钮，通过If语句判断单选按钮是否被选中，把选中的单选按钮的标题通过标签的Caption属性显示在标签Label2中，并通过复选框的Value属性和框架的Enabled，实现如果“音乐”或“体育”未被选中，相应的单选按钮不可选。
步骤1：打开本题工程文件，设置控件的属性。程序中用到的控件及属性见表1和表2。
|
表1
|
|||||||
| 控件 | 框架1 | 框架1 | 单选按钮1 | ||||
| 属性 | Name | Caption | Name | Caption | Name | Caption | Value |
| 设置值 | Frame1 | Frame2 | Option1 | 古典音乐 | True | ||
|
表2
|
|||||||
| 控件 | 单选按钮2 | 单选按钮3 | 单选按钮4 | ||||
| 属性 | Name | Caption | Name | Caption | Value | Name | Caption |
|
设置
值 |
Option1 |
流行
音乐 |
Option2 | 篮球 | True | Option3 | 羽毛球 |
程序提供代码
Private Sub Check1_Click()
If Cheek1. Value=1 Then
Frame1. Enabled=True
Else
Frame1. Enabled=False
End If
End Sub
Private Sub Cheek2 Click()
If Check2. Value=1 Then
Frame2. Enabled=True
Else
Frame2. Enabled=False
End If
End Sub
Private Sub Command1_Click()
If Check1. Value=1 Then
If ?=True Then
S="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2. Value=1 Then
"If ?=True Then
s=s &"篮球"
Else
s=s &"羽毛球"
End If
End If
Label2. Caption=?
End Sub
Private Sub Form_Load()
Check1. Value=1
Check2. Value=1
End Sub
程序结束
第1个?处填入：Optionl(0). Value
第2个?处填入：Option2. Value
第3个?处填入：s
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 通过设置单选按钮的Value属性，使“古典音乐”和“篮球”单选钮为选中状态。单击“选择”按钮，通过If语句判断单选按钮是否被选中，把选中的单选按钮的标题通过标签的Caption属性显示在标签Label2中，并通过复选框的Value属性和框架的Enabled，实现如果“音乐”或“体育”未被选中，相应的单选按钮不可选。