2. 计算机
  3. 注意：下面出现的“考生文件夹”均为C:\wexam\25160002。 (1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事

注意：下面出现的“考生文件夹”均为C:\wexam\25160002。 (1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事

admin2009-03-17  31
问题 注意：下面出现的“考生文件夹”均为C:\wexam\25160002。
   (1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图27-3所示的是程序刚启动时的情况。程序中不得使用任何变量。
   注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
   (2)在考生文件夹下有一个工程文件sjt4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图27-4所示。
   要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
选项
答案在窗体上建立好控件后，先设置控件属性，再编写事件过程。 标签的标题由Caption设置，BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件，事件间隔通过计时器的Interval属性设置，其单位时毫秒，题目要求每隔1秒。解题步骤： 第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。 [*] 　　第二步：编写程序代码。 　　参考代码： 　　　　Private Sub Form_Load() 　　　　　 L1.BorderStyle = 1 - fixed 　　　　　 Timer1.Enabled = True 　　　　　 Timer1.Interval = 1000 　　　　End Sub 　　　　Private Sub Timer1_Timer() 　　　　　 L1.Caption = L1.Caption + 1 　　　　End Sub 　　第三步：调试并运行程序。 　　第四步：按题目要求存盘。 　　(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 　　列表框的MultiSelect属性用来设置一次可以选择的表项数。该属性有3种取值： 　　O—None每次只能选择一项，如果选择另一项则会取消对前一项的选择； 　　1—Simple可以同时选择多个项，后续的选择不会取消前面的选择。可以用鼠标或空格键选择； 　　2—Extended可以选择指定范围内的表项。 　　因此，为了实现题目要求的功能，应将MultiSelect属性设置为1。列表框的ListCount属性表示表项的数量，列表框中表项的排列从。开始，最后一项的序号为ListCount-1。为了检测列表框中被选择的项，应使用Selected属性，该属性实际上是一个数组，每个元素与列表框中的一项对应，其取值为True或False。当元素的值为True时，表明选择了该项；为False表示未选择。使用List属性列出被选中项的内容。解题步骤： 　　第一步：建立界面并设置控件的属性。程序用到的控件及其属性见表27-4。 [*] 第二步；编写程序代码。 程序提供的代码： Private Sub C1_Click() ’For i = ? To ? ’If l1.? = True Then Print l1.List(i) End If Next End Sub 参考代码： Private Sub C1_Click() For i = 0 To l1.ListCount - 1 If l1.Selected(i) = True Then Print l1.List(i) End If Next End sub 第三步：调试并运行程序。 第四步；按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/dk1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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