某校以投票方式评选优秀作品，每张选票仅填一个作品编号，得票数过半的获最具人气奖。小李和小王收集了全部选票，其中小李已将收集的选票按作品编号非降序排序，小王收集的选票未排序。现要求将全部选票按作品编号非降序排序，找出获最具人气奖的作品编号。

编写VB程序，实现上述功能。运行程序，在列表框List1中显示全部选票，小李收集的选票在前，小王收集的选票在后。单击“分析”按钮Command1，在列表框List2中按作品编号非降序显示全部选票，在文本框Text1中显示最具人气奖的作品编号。程序运行界面如图所示。