【答案解析】[操作步骤]
步骤1:新建一个空白窗体,设置窗体的属性,属性设置如表1所示。
表1
|
|
控件
|
窗体控件
|
|
属性
|
Caption
|
|
设置值
|
转换
|
步骤2:向窗体中添加一个形状控件和两个命令按钮,设置好控件的属性值,属性设置如表2所示。
表2
|
|
控件
|
Shape1
|
Command1
|
Command2
|
|
属性
|
BorderWidth
|
Caption
|
Caption
|
|
设置值
|
3
|
椭圆
|
圆
|
步骤3:双击“椭圆”按钮,打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
参考答案(加粗部分是需考生填入的内容)
Private Sub Command1_Click()
Shape1.Shape=2
End Sub
步骤4:双击“圆”按钮,打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
Private Sub Command2 Click()
Shape1.Shape=3
End Sub
步骤5:调试并运行程序,关闭程序后按题目要求存盘。
答案考生文件夹
[解析] 新建一个空白窗体,添加一个形状控件和两个命令按钮,设置好窗体和控件的属性,对两个命令分别添加事件代码,使单击按钮时,窗体中的形状控件能够产生变化。