有5个裁判参与打分，单击“单击输入成绩”按钮，可以依次输入每个裁判成绩并显示在上方的标签中。单击“最后得分”按钮，则计算出5位裁判的平均分并显示在右边的标签中。

你可以按照以下步骤来实现这个功能：

1. 在窗体上添加 5 个文本框，用于输入每个裁判的成绩；添加 2 个标签，用于显示输入的成绩和最终得分；添加 2 个按钮，分别用于输入成绩和计算最终得分。

2. 在窗体的代码模块中，先声明一个数组变量 `scores`，用于存储每个裁判的成绩，以及一个变量 `average`，用于存储最终得分的平均值：

Dim scores(4) As Double ' 用于存储每个裁判的成绩
Dim average As Double ' 用于存储最终得分的平均值

3. 在“输入成绩”按钮的点击事件中，依次读取每个文本框中的值，并将其存储到数组 `scores` 中。同时，将所有成绩显示在上方的标签中：

Private Sub btnInput_Click()
    ' 依次读取每个文本框中的值，并将其存储到数组中
    scores(0) = CDbl(txtScore1.Text)
    scores(1) = CDbl(txtScore2.Text)
    scores(2) = CDbl(txtScore3.Text)
    scores(3) = CDbl(txtScore4.Text)
    scores(4) = CDbl(txtScore5.Text)
    
    ' 将所有成绩显示在上方的标签中
    lblScores.Caption = "裁判1：" & scores(0) & vbCrLf _
                        & "裁判2：" & scores(1) & vbCrLf _
                        & "裁判3：" & scores(2) & vbCrLf _
                        & "裁判4：" & scores(3) & vbCrLf _
                        & "裁判5：" & scores(4)
End Sub

4. 在“最终得分”按钮的点击事件中，遍历数组 `scores`，累加所有成绩的值，并计算平均分。将平均分显示在右边的标签中：

Private Sub btnFinalScore_Click()
    ' 求平均分
    Dim sum As Double
    For i = 0 To 4
        sum = sum + scores(i)
    Next
    average = sum / 5
    
    ' 将平均分显示在右边的标签中
    lblAverage.Caption = "最终得分：" & Format(average, "0.00")
End Sub

这样，当你依次输入每个裁判的成绩并单击“最终得分”按钮时，程序会计算出这 5 个裁判的平均分并显示在右边的标签中。