[問答題] 請根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。

在名稱為Form1的窗體上畫一個(gè)名稱為Shape1的形狀控件，畫兩個(gè)名稱分別為Command1、Command2，標(biāo)題分別為“圓形”、“紅色邊框”的命令按鈕。將窗體的標(biāo)題設(shè)置為“圖形控件”，如圖2所示。請編寫適當(dāng)?shù)氖录^程使得在運(yùn)行時(shí)，單擊“圓形”按鈕將形狀控件設(shè)為圓形。單擊“紅色邊框”按鈕，將形狀控件的邊框顏色設(shè)為紅色(&HFF&)，如圖3所示。

[*]

[*]

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

[操作步驟] 第1步：新建一個(gè)標(biāo)準(zhǔn)EXE工程，保持窗體所有屬性不變。 第2步：添加一個(gè)形狀控件。在窗體上畫一個(gè)適當(dāng)大小的形狀控件。 第3步：添加兩個(gè)命令按鈕。一個(gè)的Caption屬性設(shè)置為“圓形”，另一個(gè)的Caption屬性設(shè)置為“邊框紅色”。 第4步：編寫代碼。為兩個(gè)命令按鈕編寫Click事件過程如下： Private Sub Command1_Click() Shape1.Shape=3 End Sub Private Sub Command2_Click() Shape1.Bord

形狀控件的形狀由其Shape屬性決定，Shape屬性值為3-Circle時(shí)形狀控件呈圓形。形狀控件的邊框顏色由BorderColor屬性決定。