某校最近开设了10节不同内容的选修课，课的编号为1～10。每位同学只能选报一门课。事先让学生做过问卷调查并根据自己的兴趣爱好填写了选课报名志愿表(无重复)，如某同学的报名志愿表为4，1，2，7，3，5，8，10，9，6，表示他最想选报的课的编号是4(第一志愿)，其次为1(第二志愿)，以此类推。学校根据每位学生的问卷调查得分及选课报名志愿表进行了分班，每班30人。
分班方法：优先满足问卷得分最高同学的第一志愿，如果该同学第一志愿所报名人数超过30人，则尝试满足其第二志愿，以此类推，直至该同学选课成功。
编写程序实现选课分配功能并统计各志愿录取率情况：单击读取按钮Command1后，在列表框List1中显示每位学生的相关信息。单击统计按钮Command2后，统计第X志愿录取人数及录取率的统计结果清单，显示在列表框List2中。程序界面如图a所示。实现上述功能的VB程序代码如下，请回答下列问题：