用VB实现从键盘上任意输入5个学生姓名，编程找出并输出按字典顺序排在最前面的学生姓名。

'100度来回答
'例子需以下控件：
'Command1、Label1：不用进行任何属性设置
'Combo1：在属性窗口将 Combo1 的 Sorted 属性设置为 True
Private Sub Form_Load()
Command1.Caption = "添加": Combo1.Text = "王2"
Label1.Caption = "请输入学生姓名，然后单击添加"
End Sub
Private Sub Command1_Click()
'添加项目
If FindList(Combo1.Text) > -1 Then
MsgBox "该学生已存在：" & Combo1.Text, vbInformation, "添加姓名"
Exit Sub
End If
Combo1.AddItem Combo1.Text '添加
Label1.Caption = "共 " & Combo1.ListCount & " 个学生，最前面是：" & Combo1.List(0)
End Sub

Private Function FindList(nStr As String) As Long
'查找是否存在
Dim I As Long

For I = 0 To Combo1.ListCount
If LCase(nStr) = LCase(Combo1.List(I)) Then FindList = I: Exit Function
Next
FindList = -1 '条目不存在
End Function