求一简单程序？

Question

Private Sub Command1_Click()
    Dim intPoint(1 To 7) As Integer
    Dim intMax As Integer
    Dim intMin As Integer
    Dim intTotal As Integer
    Dim i As Integer
    
    intPoint(1) = 86
    intPoint(2) = 89
    intPoint(3) = 92
    intPoint(4) = 78
    intPoint(5) = 100
    intPoint(6) = 76
    intPoint(7) = 84
    
    intMax = intPoint(1)
    For i = 2 To 7
        If intPoint(i) > intMax Then
            intMax = intPoint(i)
        End If
    Next i
    
    intMin = intPoint(1)
    For i = 2 To 7
        If intPoint(i) < intMin Then
            intMin = intPoint(i)
        End If
    Next i    intTotal = 0
    For i = 1 To 7
        intTotal = intTotal + intPoint(i)
    Next i
    
    Debug.Print "最高分:" & intMax
    Debug.Print "最低分:" & intMin
    Debug.Print "平均分:" & (intTotal - intMax - intMin) / 5
End Sub

Answer 1

Dim iScore(6) As Integer
Dim iMax, iMin, iTotal As Integer
Dim i As Integer
iMax = iScore(0)
iMin = iScore(0)
iTotal = 0
For i = 0 To 6
    If iMax < iScore(i) Then iMax = iScore(i)
    If iMin > iScore(i) Then iMin = iScore(i)
    iTotal = iTotal + iScore(i)
Next i
MsgBox "The average is:" & (iTotal - iMax - iMin) / 4

Answer 2

Option Base 1
Dim a%(7), i%, j%, t, sPrivate Sub Command1_Click()
    For i = 1 To 6              '排序
      For j = 1 To 7 - i
        If a(j) <= a(j + 1) Then
            t = a(j)
            a(j) = a(j + 1)
            a(j + 1) = t
        End If
      Next j
    Next i
  For i = 2 To 6               ‘输出排序结果（去掉最大值，最小值）
      Text1 = Text1 & a(i) & "   
      s = s + a(i)
  Next i
  Print "平均分=;"; s / 5        '打印平均分
  
End SubPrivate Sub Form_Load()         '定义分数
  a(1) = 82
  a(2) = 84
  a(3) = 24
  a(4) = 27
  a(5) = 34
  a(6) = 56
  a(7) = 92
End Sub

Answer 3

For i = 2 To 6               ‘输出排序结果（去掉最大值，最小值）
没问题了，是后面的注释号打错了，谢谢！