[问答题] 在考生文件夹下完成如下简单应用。 1．有一个工程文件ylc5.vbp，窗体上有一个单选按钮数组，含3个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”；再添加一个标题

[问答题] 在考生文件夹下完成如下简单应用。
1．有一个工程文件ylc5.vbp，窗体上有一个单选按钮数组，含3个没有标题的单选按钮。为单选按钮添加标题“语文”、“数学”、“英语”；再添加一个标题为“显示”的命令按钮，运行后将根据单选按钮的选中情况，在窗体上显示“我喜欢语文”、“我喜欢数学”、“我喜欢英语”。要求单选按钮的初始值为英语。
运行后如图21所示。



注意：存盘时必须存放在考生文件夹下，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

参考答案：

1．操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc5.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择OptionButton控件，分别在窗口中创建3个，都命名为Option1。 Visual Basic提示是否建立单选控件数组，选择确定。在属性窗口中其名称(Name)分别为 Option(0)、Option(1)、Option(2)，标题(Caption)分别为“语文”、“数学”和“英语”。 (3)根据题目要求，在属性窗口设置标题为英语的控件Option(2)的Value属性为True，表示其初始值是英语。 (4)选择命令按钮，设置名称(Name)为Command1，标题(Caption)为“显示”。 1．行为编码 选择Command1对象和Click事件，命令按钮的事件过程代码如下： Private Sub Command1_Click() ’清除窗体上所有的图形和文本 Form1.Cls For i=0 To Option1.Count-1 If Optionl.Item(i).Value Then ’使用控件的Caption属性显示名称，进行字符串连接后显示在窗体上 Form1.Print("我喜欢" & Option1. Item(i).Caption) End If Next i End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc5.vbp，窗体文件名为ylc5.frm。

问题解析:

(1)本题考查单选按钮控件组的处理。通过循环判断每次选择的单选按钮，在窗体上显示相应的标题字符的组合。 (2)注意OptionButton控件数组的建立、For循环语句、Form对象的Print方法。 (3)在For循环中检测当前单选按钮数组的值，连接字符串，通过Print方法打印在窗体上。