(1)在名称为Forml的窗体上绘制一个标签和两个单选按钮。标签的名称为Labell，初始时内容为空。单选按钮的名称分别为Optionl、Option2，标题分别为“Iternl”和“Item2”。编写适当的事件过程，使得程序运行时Optionl按钮被选中，标签中显示“选中Iternl”，如图24—1所示。如果单击Option2按钮，标签中显示的内容为“选中Item2"。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．Vbp。 (2)在名称为FOrml的窗体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为Shapel。命令按钮为Commandl，标题为“变正方形”。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运行时的窗体界面如图24—2所示。
【正确答案】正确答案： (1)根据题意，新建“标准EXE”工程，将一个标签和两个单选按钮控件添加到窗体中，标签的名称为Labell、Caption属性为空，单选按钮的名称分别为Optionl和Option2、Caption属性分别为“Iteml”和“Item2”。双击窗体进入代码窗口，编写如下代码： Private Sub Form_Load() '初始化 Labell．Caption="选中"+Optionl．Caption End Sub Private Sub Optionl_Click() '选中Iteml Labell．Caption="选中"+Optionl．Caption End Sub Private Sub Option2_Click() '选中Item2 Labell．Caption=”选中”+Option2．Caption End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个命令按钮和一个Shape控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“变正方形”，Shape的名称为Shapel、Shape属性为3。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Shapel．Shape=1 '单击变正方形，Shapel变为正方形 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，将一个命令按钮和一个Shape控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“变正方形”，Shape的名称为Shapel、Shape属性为3。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Shapel．Shape=1 '单击变正方形，Shapel变为正方形 End Sub 单击【答案解析】