vb6.0教程

来源：百度知道 编辑：UC知道 时间：2024/06/20 07:33:46
输入十个0—10分数，去掉最低分和最高分， 求平均分的 代码

Dim i As Integer
Dim L As Integer
Dim H As Integer
Dim Sum As Integer
Dim Ave As Single
Dim InS As String
Dim InN(9) As Integer
Do
InS = InputBox("请输入第" & CStr(i + 1) & "个分数")
If Val(InS) >= "0" And Val(InS) <= 10 Then '只是稍微筛选了一些
InN(i) = Val(InS)
Print InN(i)
i = i + 1
End If
Loop Until i = 10
L = InN(0)
H = InN(0)
For i = 0 To 9
If InN(i) < L Then L = InN(i)
If InN(i) > H Then H = InN(i)
Sum = Sum + InN(i)
Next
Ave = (Sum - L - H) / 8
Print Ave