(1)在名称为Forml的窗体中画一个名称为Ll的标签,其标题为“0”,BorderStyle属性为l;再添加一个名称为Timerl的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加l。如图1-223所示的是程序刚

admin2010-09-02  37

问题 (1)在名称为Forml的窗体中画一个名称为Ll的标签,其标题为“0”,BorderStyle属性为l;再添加一个名称为Timerl的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加l。如图1-223所示的是程序刚启动时的情况。程序中不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjl3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp,要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。而如果单击“显示”按钮,则在窗体上输出所有选中的列表项(如图1-224所示)。
要求:修改列表框的适当属性,使得运行时可以多选,并去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。

选项

答案第l小题 【操作步骤】 步骤l:新建一个“标准EXE”工程,如表2-13l在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口编写计时器的事件过程。 参考代码: PriVate Sub Timerl_Timer() L1=L1+1 End Sub 步骤3:按要求将文件保存至考生文件夹中。 【主要考点】计时器。 第2小题 【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt4.vbp,将列表框的MultiSdect属性值设置为1-simple。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”将问号“?”改为正确的内容。 参考代码: For i=0 To 11.ListCount-1 If 11.selected(i)=Trtie Then 步骤3:按要求将文件保存至考生文件夹中。

解析 第l小题
    可借助计时器来完成有规律性时间间隔执行的任务。本题计时器工作时,为使标签中的数每隔1秒加1,需将计时器的Interval属性值设置为1000毫秒,在命令按钮的单击事件过程中通过语句Timcrl.Enabled=True启动计时器,在计时器的Timer事件过程中通过语句L1=Ll+1实现加1。
第2小题
    本题原程序设计思路:在“显示”按钮的单击事件过程中,使用For循环语句逐一判断列表框中的各项是否被选中,If语句的条件表达式为:L1.Selected,(i)=True,用Print方法将选中的列表项显示在窗体上。为与列表框的项目索引号保持一致,循环变量的初始值应为0,终值应为L1.ListCount-1。为使列表框在运行时可以多选,应将其MultiSelect属性值设置为1-simple。
转载请注明原文地址:https://jikaoti.com/ti/cmg0FFFM
0

最新回复(0)