某学校为增强学生体质，督促学生进行必要的体育锻炼，每学年都会举行一次新生体能测试，在高一年级每班随机抽取2位学生参加体测并要求全部达标。高一年级学生基本信息存储于相应的数据库文件中，班级总数为n，每班45名学生。抽选时以学生学号信息为依据（学号为8位数，前4位数字表示年级，5、6两位数表示班级，7、8两位数表示学号），并将抽选结果按照班级和学号升序排列输出。

根据上述要求编写VB程序，功能如下：读取高一年级n个班级学生学号信息，显示在列表框List1中。程序运行时，单击“抽取”按钮Command1，在列表框List2中显示每班被抽取中的两名学生学号。程序运行界面如图所示。