Dim str As String = "", temp As Integer = 0, sum As Integer = 0, x As Integer
Dim a(7) As Integer
a(1) = 76
a(2) = 87
a(3) = 90
a(4) = 92
a(5) = 69
a(6) = 82
a(7) = 94
For i = 1 To 7
For j = 1 To 7 - i
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 2 To 6
sum = sum + a(i)
Next
TextBox6.Text = "平均分数是" & sum / 5
另外,程序中的a(1)到a(7),你要将7个text中的数据赋值到其中去