学校需要从A班(共50人)选拔一批学生集训准备比赛。小明为了减轻老师的工作量，编写了一个程序帮助老师解决这个问题，将所有学生的成绩排序后按照预设人数划取分数线。由于相同分数可能有多个学生，找出最接近预设人数的分数作为分数线。如果按照前分和按后分录取增加或减少的人数相同时则按高于录取人数进行录取，最后输出录取的学生名单。例如现要求选拔15个学生，排序后第14-20名的学生成绩相同，由于13比20更接近预录取人数，因此实际只录取13人。小明编写的VB程序如下，在文本框Text1中输入拟录取人数，单击“确定”按钮后，在标签Labe15和Labe16中输出录取人数和分数线，在List1中输出录取学生名单。

实现上述功能的代码如下。请回答下列问题：