某校于08：00-11：30举办游园活动，设学生组、教师组和后勤组，每组有9个不同的项目，每个项目设有排队截止时间和积分奖励。以“教师组”为例，其项目名称、排队截止时间和积分如下表所示：

假设每个项目加上排队均会在半小时完成，为获得最多积分，小王设计了如下方案：
i.按半小时为-个时段，将活动时间08：00-11：30 划分成7个时段，则“教师组”的9个项目报名截止时间对应的截止时段如下表所示：

ii.将积分大的项目尽 量安排在其截止时段完成，如果该时段被占用，则将其安排在离截止时间最近的时段；如果该截止时间前所有时段都安排了项目，则该项目无法参加。
根据上述要求，编写VB程序，功能如下：在文本框Textl中输入组别号，单击命令按钮Commandl,在列表框Listl中显示该组别的编号、项目名称、截止时段和积分，在列表框List2中按顺序输出选择的项目名称和参加时段。程序运行界面如图所示。

（1）若仅将图中第二组“猜谜语“项目的积分改为10，“猜谜语”项目的参加顺序将排在第

1

1

（填数字）时段。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。