首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体Forml上画一个名称为Labell、标题为“请选择”的标签控件;再画一个名称为Listl的列表框控件,通过设置有关属性向其中依次加入“矩形”、“正方形”、“椭圆形”、“圆形”、“四角圆化的矩形”、“四角圆化的正方形”共6个列表项;最后在窗体上画1个
在窗体Forml上画一个名称为Labell、标题为“请选择”的标签控件;再画一个名称为Listl的列表框控件,通过设置有关属性向其中依次加入“矩形”、“正方形”、“椭圆形”、“圆形”、“四角圆化的矩形”、“四角圆化的正方形”共6个列表项;最后在窗体上画1个
admin
2020-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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是( )。
下列属性中,决定单选按钮是否被选中的是()。
以下关于窗体的叙述中错误的是( )。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
下列可以激活属性窗口的操作是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:PrivateSubForm_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocusEndS
假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是()。
随机试题
震颤麻痹的面容是肝硬化可出现
A.骨髓细胞外铁升高,铁粒幼细胞数增高,转铁蛋白饱和度升高B.骨髓细胞外铁升高,铁粒幼细胞数增高,转铁蛋白饱和度降低C.骨髓细胞外铁升高,铁粒幼细胞数降低,转铁蛋白饱和度正常D.骨髓细胞外铁降低,铁粒幼细胞数降低,转铁蛋白饱和度降低E.骨髓细胞外铁
肾小管分泌NH4+的功能不足可导致()
下列各项生理功能活动中,属于自身调节的是
压片时颗粒质地过松易引起压片时粘合剂用量过多易引起
烧伤的严重程度主要根据是
下列可以成为行政诉讼第三人的有()。
某测验共有6个题目,50名被试在该测试各个题目上得分的方差是0.75、0.81、0.79、0.83、0.85、0.77。测试总分的方差是16.00。请回答下列问题:某被试的测验总分为65,估计其真分数95%的置信区间;
(1998年)计算积分
DistanceEducationIntroductionofdistanceeducation.focus:【T1】________andtechnology.aim:deliveringteaching
最新回复
(
0
)