[问答题] 注意：下面出现的“考生文件夹”均为C:wexam25160002。 (1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为

[问答题] 注意：下面出现的“考生文件夹”均为C:wexam25160002。 (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。表 27-3控 件属 性设置值标签NameCaptionBorderStyleL1"O"1计时器NameInerva1Timer11000　　第二步：编写程序代码。　　参考代码：　　　　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。表 27-4控 件属 性设置值列表框NameMultiSelectedL11按钮NameCaptionC1"显示" 第二步；编写程序代码。 程序提供的代码： 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 第三步：调试并运行程序。 第四步；按题目要求存盘。