问答题
注意：下面出现的“考生文件夹”均为C:/wexam/25160002。
(1) 在名称为Form1的窗体中画一个名称为L1的标签，其标题为“0”，BorderStyle属性为“再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图27-3所示的是程序刚启动时的情况。程序中不得使用任何变量。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图27-4所示。
要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。
(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
第二步：编写程序代码。
参考代码：
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
第二步；编写程序代码。
程序提供的代码：
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
第三步：调试并运行程序。
第四步；按题目要求存盘。
标签的标题由Caption设置，BorderStyle属性用来设置标签的边框。计时器控件用来周期性的触发Timer事件，事件间隔通过计时器的Interval属性设置，其单位时毫秒，题目要求每隔1秒。解题步骤：
第一步：建立界面并设置控件的属性。程序中用到的控件及其属性见表27-3。
控 件 | 属 性 | 设置值 |
| 标签 | Name Caption BorderStyle | L1 "O" 1 |
| 计时器 | Name Inerva1 | Timer1 1000 |
参考代码：
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。
控 件 | 属 性 | 设置值 |
| 列表框 | Name MultiSelected | L1 1 |
| 按钮 | Name Caption | C1 "显示" |
程序提供的代码：
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
第三步：调试并运行程序。
第四步；按题目要求存盘。
【答案解析】