问答题
完成下列问题：
问答题
在考生文件夹下有一个工程文件sjt3.vbp，含有名称分别为Form1、Form2的两个窗体。其中Form1上有2个控件(图像框和计时器)和1个菜单项“操作”，含有3个菜单命令(如图4所示)。Form2上有一个名称为Command1、标题为“返回”的命令按钮(如图5所示)。要求当单击“窗体2”菜单命令时，隐藏Form1，显示Form2。单击“动画”菜单命令时，使小汽车开始移动，一旦移到窗口的右边界时自动跳到窗体的左边界重新移动。单击“退出”菜单命令时，结束程序运行。在程序中的横线处填写正确的内容。
[*]
[*]
注意：考生不得修改窗体文件中已经存在的程序，最后程序按原文件名存盘。
[题目提供的源程序]
Form1的源程序：
Private Sub mnuOper_Click(Index As Integer)
Select Case (1)
Case 1
Form2.Show
Form1.Hide
Case 2
Timer1.Enabled= (2)
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer()
Picture1.Left=Picture1.Left+100
If Picture1.Left+Picture1.Width＞= (3) Then
Picture1.Left= (4)
End If
End Sub
Form2的源程序：
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
[*]
[*]
注意：考生不得修改窗体文件中已经存在的程序，最后程序按原文件名存盘。
[题目提供的源程序]
Form1的源程序：
Private Sub mnuOper_Click(Index As Integer)
Select Case (1)
Case 1
Form2.Show
Form1.Hide
Case 2
Timer1.Enabled= (2)
Case 3
End
End Select
End Sub
Private Sub Timer1_Timer()
Picture1.Left=Picture1.Left+100
If Picture1.Left+Picture1.Width＞= (3) Then
Picture1.Left= (4)
End If
End Sub
Form2的源程序：
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
【正确答案】[操作步骤]
第1步：打开工程文件sjt3.vbp。
第2步：修改程序。
第3步：调试、运行并保存程序。
[l]Index [2]True [3]Form1.Width [4]-Picture1.Width
第1步：打开工程文件sjt3.vbp。
第2步：修改程序。
第3步：调试、运行并保存程序。
[l]Index [2]True [3]Form1.Width [4]-Picture1.Width
【答案解析】[解析] 本题中使用了菜单控件数组，与其他控件数组一样，菜单控件数组事件过程中也采用Index参数来标识菜单，Index=1，则显示第二个窗体，Index=2，则开始移动小汽车；Index=3，则退出程序。小汽车的移动是在计时器控件Timer1的Timer事件中完成的，只要Timer1的Enabled属性值为True，Interval属性值大于0，则会按照Interval属性指定的时间间隔不停地执行Timer事件过程，以达到移动小汽车的目的。小汽车放在图像框中，要小汽车从左向右移动，只需要在图像框原有Left属性值以固定值定时增加即可。
问答题
在考生文件夹下有一个工程文件sjt4.vbp。其窗体上已有部分控件，请按照图6所示添加框架和单选按钮。请画2个框架，名称分别为Frame1、Frame2，在Frame1中添加一个名为Option1的单选按钮数组，含两个单选按钮，标题分别为“古典音乐”、“流行音乐”；在名称为Frame2中添加2个单选按钮，名称分别为Option2、Option3，标题分别为“篮球”、“羽毛球”。刚运行程序时，“古典音乐”和“篮球”单选按钮为选中状态。单击“选择”按钮，将把选中的单选钮的标题显示在标签Label2中，如图7所示。如果“音乐”或“体育”复选框未被选中，则相应的单选按钮不可选。
[*]
[*]
要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。
注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Check2_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 (1) =True Then
s="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2.Value=1 Then
If (2) =True Then
s=s & "篮球"
Else
s=s & "羽毛球"
End If
End If
Label2.Caption= (3)
End Sub
Private Sub Form_Load()
Check1.Value=1
Check2.Value=1
End Sub
[*]
[*]
要求：按照题目要求添加控件，在程序中的横线处填写正确的内容。
注意：不能修改程序的其他部分和控件属性，最后把修改后的文件按原文件名存盘。
[题目提供的源程序]
Private Sub Check2_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 (1) =True Then
s="古典音乐"
Else
s="流行音乐"
End If
End If
If Check2.Value=1 Then
If (2) =True Then
s=s & "篮球"
Else
s=s & "羽毛球"
End If
End If
Label2.Caption= (3)
End Sub
Private Sub Form_Load()
Check1.Value=1
Check2.Value=1
End Sub
【正确答案】[操作步骤]
第l步：打开工程文件sjt4.vbp。
第2步：添加第一个框架，在窗体上画一个框架控件，保留名称Frame1不变，删除其Caption属性中原有内容。
第3步：添加单选按钮数组，在框架Frame1中画一个单选按钮，保持名称Option1不变，修改其Caption属性为“古典音乐”，修改其Index属性为0；再在框架Frame1内画一个单选按钮，将其名称改为Option1，Caption属性改为“流行音乐”，Index属性改为1。
第4步：添加第二个框架，在窗体上再画一个框架控件Frame2，保持其名称Frame2不变，删除其Caption属性中的内容。
第5步：添加单选按钮，在框架Frame2中添加一个单选按钮，保持其名称Option2不变，修改其Caption属性为“篮球”；再在Frmae2中添加一个单选按钮，保持其名称Option3不变，修改其Caption属性为“羽毛球”。
第6步：修改程序。
第7步：调试、运行并保存程序。
[1]Option1(0).Value或Option1(0) [2]Option2.Value或Option2 [3]s
第l步：打开工程文件sjt4.vbp。
第2步：添加第一个框架，在窗体上画一个框架控件，保留名称Frame1不变，删除其Caption属性中原有内容。
第3步：添加单选按钮数组，在框架Frame1中画一个单选按钮，保持名称Option1不变，修改其Caption属性为“古典音乐”，修改其Index属性为0；再在框架Frame1内画一个单选按钮，将其名称改为Option1，Caption属性改为“流行音乐”，Index属性改为1。
第4步：添加第二个框架，在窗体上再画一个框架控件Frame2，保持其名称Frame2不变，删除其Caption属性中的内容。
第5步：添加单选按钮，在框架Frame2中添加一个单选按钮，保持其名称Option2不变，修改其Caption属性为“篮球”；再在Frmae2中添加一个单选按钮，保持其名称Option3不变，修改其Caption属性为“羽毛球”。
第6步：修改程序。
第7步：调试、运行并保存程序。
[1]Option1(0).Value或Option1(0) [2]Option2.Value或Option2 [3]s
【答案解析】[解析] 本题首先需要添加控件，添加控件时需要注意两个方面：一是必须先画框架控件，再在框架之内画单选按钮；二是框架Frame1内的两个单选按钮属于一个单选按钮控件数组，可以通过修改这两个单选按钮的名称和Index属性值来实现。编写代码时，各框架内的单选按钮为一组，分别进行是否选定的判断。