[問(wèn)答題] 在名稱為Form1的窗體上添加一個(gè)名稱為Sha1的形狀控件，然后建立一個(gè)菜單，名稱為shape0，標(biāo)題為“形狀”，該菜單有兩個(gè)子菜單，其名稱分別為shape1和shape2，其標(biāo)題分別為“正方形”和“圓形”，如圖所示。然后編寫(xiě)與適當(dāng)?shù)某绦?。程序運(yùn)行后，如果選擇“正方形”菜單項(xiàng)，則形狀控件顯示為正方形；如果選擇“圓形”菜單項(xiàng)，則窗體上的形狀控件顯示為圓形。

注意：程序中不能使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。保存時(shí)必須存放在考生文件夾下，工程文件名保存為sjt2. vbp，窗體文件名保存為sjt2. frm。

[解題思路] 根據(jù)題意，選擇“正方形”菜單項(xiàng)，則將形狀控件Shape屬性設(shè)置為1，顯示為正方形；如果選擇“圓形”菜單項(xiàng)，則將形狀控件Shape屬性設(shè)置為3，窗體上的形狀控件顯示為圓形。[操作步驟] 步驟1：建立界面，并添加一個(gè)名稱為Sha1的形狀控件，建立菜單的屬性見(jiàn)表1。 表1 標(biāo)題控件 形狀 正方形 圓形 名稱 shape0 shape1 shape2 內(nèi)縮符號(hào) 0 1 1 步驟2：編寫(xiě)程序代碼。 Private Sub shape1_Click() Sha1. Shape