在窗体Forml上画一个名称为Labell、标题为“请选择”的标签控件;再画一个名称为Listl的列表框控件,通过设置有关属性向其中依次加入“矩形”、“正方形”、“椭圆形”、“圆形”、“四角圆化的矩形”、“四角圆化的正方形”共6个列表项;最后在窗体上画1个

admin2020-04-08  30

问题  在窗体Forml上画一个名称为Labell、标题为“请选择”的标签控件;再画一个名称为Listl的列表框控件,通过设置有关属性向其中依次加入“矩形”、“正方形”、“椭圆形”、“圆形”、“四角圆化的矩形”、“四角圆化的正方形”共6个列表项;最后在窗体上画1个名称为Shapel的形状控件。
  要求:编写列表框Listl的Click事件过程,使得程序运行时,在列表框中单击不同的列表项时,能将形状控件中的形状设置成列表框中选中的形状,程序运行示意图如图所示。

  存盘时,将文件保存至考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbpo
  注意:要求程序中不得使用变量,每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。

选项

答案 【操作步骤】 步骤1:新建一个窗体,在窗体上添加一个标签控件,根据表5.7设置控件的Caption属性,结果如图5.7所示。 [*] 步骤2:在窗体上添加一个列表框控件,根据表5.8设置控件的List属性,结果如图5.8所示。 [*] 步骤3:在窗体上添加一个形状控件。 步骤4:双击列表框控件,打开代码窗口,在Listl的Click事件中根据题目要求编写代码(阴影部分是需要填入的内容)。 Private Sub List_Click() [*] 步骤5:调试并运行程序,关闭程序后按题目要求存盘。

解析 新建一个窗体,在窗体上添加一个标签控件,设置标签的Caption属性;再在窗体上添加一个列表框控件和形状控件,设置列表框控件的List属性,然后按题目要求在列表框控件的Click事件中编写代码。
转载请注明原文地址:https://jikaoti.com/ti/REx0FFFM
0

最新回复(0)