[问答题] 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command

[问答题] 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command

[问答题] 请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

在名称为Form1的窗体上画一个名称为Shape1的形状控件，画两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为“图形控件”，如图2所示。请编写适当的事件过程使得在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色(&HFF&)，如图3所示。

[*]

[*]

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

正确答案：

[ *** 作步骤] 第1步：新建一个标准EXE工程，保持窗体所有属性不变。 第2步：添加一个形状控件。在窗体上画一个适当大小的形状控件。 第3步：添加两个命令按钮。一个的Caption属性设置为“圆形”，另一个的Caption属性设置为“边框红色”。 第4步：编写代码。为两个命令按钮编写Click事件过程如下： Private Sub Command1_Click() Shape1.Shape=3 End Sub Private Sub Command2_Click() Shape1.Bord

参考解析：

形状控件的形状由其Shape属性决定，Shape属性值为3-Circle时形状控件呈圆形。形状控件的边框颜色由BorderColor属性决定。