(1)在名称为Forml的窗体中画一个名称为Textl的文本框，再添加一个名称为Timer1的计时器。请设置适当的控件属性并编写适当的事件过程，使得程序在运行时，每隔3秒钟文本框中的数字加1，如图62—3所示。程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sj3．vbp，窗体文件名为sj3．frm。 (2)在考生文件夹下有一个工程文件sj4．vbp和窗体文件sj4．frm，要求程序运行后，单击可以选择列表中的多项。而如果单击“输出”按钮，则在Labell上输出所有选中的列表项，如图62—4所示。
【正确答案】正确答案：(1)根据题意，新建“标准EXE”工程，将一个文本框控件和一个计时控件添加到窗体中，文本框的名称为Textl、Text属性为“0”，Timer的名称为Timerl、Interval属性为3 000(毫秒)。双击Timerl，进入代码窗口，编写如下代码： Private Sub Timerl_Timer() Textl．Text=Val(Textl．Text)+1 '每执行一次数值加1 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将一个List控件、一个标签和一个命令按钮添加到窗体中，列表框的名称为Listl，在其List属性中添加以下6项：“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，每输入一个后按“Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，标签的名称为Labell、Caption属性为空，命令按钮的名称为Commandl、Caption属性为“输出”。双击Commandl进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim i As Integer str="" For i=0 To
Listl．ListCount-1
'利用for循环来逐个判断List项是否被选中 If Listl．
Selected(i)
=True Then str=str+Listl．
List(i)
+vbCrLf'如果被选中，则放入到str字符串中 End If Next i Labell．
Caption
=str'在Labell中输出字符串 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将一个List控件、一个标签和一个命令按钮添加到窗体中，列表框的名称为Listl，在其List属性中添加以下6项：“Iteml”、“Item2”、“Item3”、“Item4”、“Item5”和“Item6”，每输入一个后按“Ctrl+Enter”组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，标签的名称为Labell、Caption属性为空，命令按钮的名称为Commandl、Caption属性为“输出”。双击Commandl进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim str As String Dim i As Integer str="" For i=0 To
Listl．ListCount-1
'利用for循环来逐个判断List项是否被选中 If Listl．
Selected(i)
=True Then str=str+Listl．
List(i)
+vbCrLf'如果被选中，则放入到str字符串中 End If Next i Labell．
Caption
=str'在Labell中输出字符串 End Sub 单击
【答案解析】