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

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

admin2020-08-10  55
问题 在窗体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
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)