Private Sub Command1_Click()Dim i As IntegerDim min As DoubleDim max As DoubleDim s As DoubleDim sum As Doublemin = 100For i = 1 To 8 s = Val(InputBox("请输入成绩")) If max < s Then max = s End If If min > s Then min = s End If sum = sum + sNextPrint "去掉一个最高分" & max & ",去掉一个最低分" & minPrint "总分为" & sum - max - min & ",平均分为" & (sum - max - min) / 6End Sub先排序回去电脑腔给你代码你好!先排序仅代表个人观点,不喜勿喷,谢谢。