建立列表框在列表框中添加10个学生的名字前5位学生的名字在设计阶段通过 List 属性输入后5位的名字在程序运行后由 AddItem 方法加入当选择学生名字再单击命令按钮后在标签中显示该学生的成绩。

以下是一个可能的实现：

1. 在窗体上添加一个列表框（List1）、一个标签（Label1）和一个命令按钮（Command1）。
2. 在窗体的 Load 事件中，使用 List 属性添加前5个学生的名字：

Private Sub Form_Load()
    List1.AddItem "Alice"
    List1.AddItem "Bob"
    List1.AddItem "Charlie"
    List1.AddItem "David"
    List1.AddItem "Eve"
End Sub

3. 在命令按钮的 Click 事件中，根据选择的学生名字显示对应的成绩。首先获取选中的项的索引，然后根据索引判断是前5个名字还是后5个名字，分别显示不同的成绩：

Private Sub Command1_Click()
    Dim index As Integer
    index = List1.ListIndex
    If index >= 0 And index < 5 Then
        Label1.Caption = GetScore(List1.List(index))
    ElseIf index >= 5 And index < 10 Then
        Label1.Caption = GetScore(List1.List(index)) ' 假设 GetScore 函数可以根据名字返回成绩
    Else
        Label1.Caption = "请选择一个学生名字"
    End If
End Sub

4. 在程序运行后，可以通过 AddItem 方法动态添加后5个学生的名字。例如，在窗体的 Activate 事件中加入以下代码：

Private Sub Form_Activate()
    List1.AddItem "Frank"
    List1.AddItem "Grace"
    List1.AddItem "Harry"
    List1.AddItem "Ivy"
    List1.AddItem "John"
End Sub

这样就完成了列表框的基本功能。当用户选择一个学生的名字并单击命令按钮时，程序会根据选中的项显示对应的成绩。注意，这里只是演示如何使用列表框和命令按钮，实际上需要根据具体的需求来设计界面和编写代码