问答题
在名称为Form1的窗体上添加一个名称为Sha1的形状控件，然后建立一个菜单，名称为shape0，标题为“形状”，该菜单有两个子菜单，其名称分别为shape1和shape2，其标题分别为“正方形”和“圆形”，如图所示。然后编写适当的程序。程序运行后，如果选择“正方形”菜单项，则形状控件显示为正方形；如果选择“圆形”菜单项，则窗体上的形状控件显示为圆形。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】
【答案解析】[操作步骤]
步骤1：建立界面，并添加一个名称为Sha1的形状控件建立菜单的属性见下表。
步骤2：编写程序代码。
Private Sub shape1_Click()
Sha1.Shape=1
End Sub
Private Sub shape2_Click()
Sha1.Shape=3
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 根据题意，选择“正方形”菜单项，则将形状控件Shape属性设置为1，显示为正方形；如果选择“圆形”菜单项，则将形状控件Shape属性设置为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：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 根据题意，选择“正方形”菜单项，则将形状控件Shape属性设置为1，显示为正方形；如果选择“圆形”菜单项，则将形状控件Shape属性设置为3，窗体上的形状控件显示为圆形。