vb 程序，假设有十个评委为参赛选手打分，分数为1～100分。选手最后得分为去掉一个最高分和一个最低分其余八个分数的平均值。求十个分数之和，求最高分和最低分

好的，我可以帮你设计一个VB评分程序。以下是程序的实现步骤：

1. 在VB中创建一个新项目，命名为“评分程序”。

2. 在窗体上添加十个文本框控件，分别为“评委1”至“评委10”。

3. 在窗体上添加三个标签控件，分别为“总分”，“最高分”和“最低分”。

4. 在窗体上添加一个命令按钮控件，命名为“计算”。

5. 在“计算”按钮的点击事件中，编写程序计算十个评委的分数之和，并求出最高分和最低分。

6. 在“计算”按钮的点击事件中，再编写程序去掉最高分和最低分，计算平均分并在标签中显示。

以下是实现程序的代码示例：

Public Class Form1
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        '定义变量
        Dim scores(9) As Integer
        Dim sum As Integer = 0
        Dim maxScore As Integer = 0
        Dim minScore As Integer = 100

        '获取分数并计算总分、最高分、最低分
        scores(0) = Integer.Parse(txtScore1.Text)
        scores(1) = Integer.Parse(txtScore2.Text)
        scores(2) = Integer.Parse(txtScore3.Text)
        scores(3) = Integer.Parse(txtScore4.Text)
        scores(4) = Integer.Parse(txtScore5.Text)
        scores(5) = Integer.Parse(txtScore6.Text)
        scores(6) = Integer.Parse(txtScore7.Text)
        scores(7) = Integer.Parse(txtScore8.Text)
        scores(8) = Integer.Parse(txtScore9.Text)
        scores(9) = Integer.Parse(txtScore10.Text)

        For i As Integer = 0 To 9
            sum += scores(i)
            If scores(i) > maxScore Then
                maxScore = scores(i)
            End If
            If scores(i) < minScore Then
                minScore = scores(i)
            End If
        Next

        '去掉最高分和最低分，计算平均分
        sum = sum - maxScore - minScore
        Dim avgScore As Double = sum / 8

        '在标签中显示结果
        lblTotalScores.Text = "总分：" & sum
        lblMaxScore.Text = "最高分：" & maxScore
        lblMinScore.Text = "最低分：" & minScore
        lblAvgScore.Text = "平均分：" & avgScore.ToString("0.00")
    End Sub
End Class

使用该程序，你可以输入十个评委的分数，点击“计算”按钮后，程序会计算出十个分数之和、最高分、最低分和平均分，并在标签中显示。