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