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

admin2020-08-10  33

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

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

选项

答案新建一个窗体,在窗体上添加一个标签控件,设置标签的Caption属性;再在窗体上添加一个列表框控件和形状控件,设置列表框控件的List属性,然后按题目要求在列表框控件的Click事件中编写代码。 步骤1:新建一个窗体,在窗体上添加一个标签控件,根据表3设置控件的Caption属性。 [*] 步骤2:在窗体上添加一个列表控件,根据表4设置控件的List属性。 [*] 步骤3:在窗体上添加一个形状控件。 步骤4:双击列表框控件,打开代码窗口,在List1的Click事件中根据题目要求编写代码。 Private Sub List1_CIick( ) If List1.ListIndex=0 Then Shape1.Shape=0 Elself List1.ListIndex=1 Then Shape1.Shape=1 Elself List1.ListIndex=2 Then Shape1.Shape=2 Elself List1.ListIndex=3 Then Shape1.Shape=3 Elself List1.ListIndex=4 Then Shape1.Shape=4 Elself List1.ListIndex=5 Then Shape1.Shape=5 End Sub 步骤5:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://kaotiyun.com/show/qqHp777K
0

最新回复(0)