操作题
2. 在名称为Form1的窗体上添加一个名称为Shape1的形状控件，在属性窗口中将其形状设置为圆形。添加一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将其值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充，如图所示。
【正确答案】【操作步骤】
步骤1：建立界面，将窗体Form1的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub List1_Click()
Shape1.FillStyle=List1.Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：建立界面，将窗体Form1的Caption属性设置为“图形控制”，然后添加相应的控件并设置控件的属性。程序中用到的控件及属性见表。
| 控件 | 形状控件 | 列表框 | |||||||||||||||||||||||||||
| 属性 | Name | Shape | Name | List | |||||||||||||||||||||||||
| 设置值 | Shape1 | 3 | List1 | 1、2、3、4、5 | |||||||||||||||||||||||||
参考答案
Private Sub List1_Click()
Shape1.FillStyle=List1.Text
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：形状控件的Name、Shape以及FillStyle属性，列表框的Name、List和Text属性。
通过形状控件的Name和Shape属性设置形状控件的名称和形状，通过列表框的Name和List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List1的Text属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle属性用于返回/设置一个形状控件的填充样式。
通过形状控件的Name和Shape属性设置形状控件的名称和形状，通过列表框的Name和List属性设置列表框的名称和列表项，单击列表框中的某一项，通过List1的Text属性确定选中的值，并将其值作为形状控件的填充参数，FillStyle属性用于返回/设置一个形状控件的填充样式。