操作题
1. 在名称为Form1的窗体上添加一个名称为Sha1的形状控件，然后建立一个菜单，名称为shape0，标题为“形状”，该菜单有两个子菜单，其名称分别为shape1和shape2，其标题分别为“正方形”和“圆形”，如下图所示。然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。
【正确答案】[操作步骤]
步骤1：建立界面，并添加一个名称为Sha1的形状控件，建立菜单的属性见下表。
步骤2：编写程序代码。
参考答案
Private Sub shape1_Click()
Sha1.Shape = 1
End Sub
Private Sub shape2_Click()
Sha1.Shape = 3
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：建立界面，并添加一个名称为Sha1的形状控件，建立菜单的属性见下表。
| 标题控件 | 形状 | 正方形 | 圆形 |
| 名称 | Shape0 | shape1 | shape2 |
| 内缩符号 | 0 | 1 | 1 |
参考答案
Private Sub shape1_Click()
Sha1.Shape = 1
End Sub
Private Sub shape2_Click()
Sha1.Shape = 3
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：菜单编辑器的使用(标题、名称、内缩符号)以及形状控件的Name和Shape属性。
根据题意，选择“正方形”菜单项，则将形状控件Shape属性设置为1，显示为正方形；如果选择“圆形”菜单项，则将形状控件Shape属性设置为3，窗体上的形状控件显示为圆形。
根据题意，选择“正方形”菜单项，则将形状控件Shape属性设置为1，显示为正方形；如果选择“圆形”菜单项，则将形状控件Shape属性设置为3，窗体上的形状控件显示为圆形。