功能:下面是一个体操评分程序, 10 位评委,除去一个最高分和一个最低分,计算平均分 ( 设满分为 10 分 ) 。 '------------------------------------------------------- Option Explicit Private Sub Command1_Click() Dim s As Integer Dim Max%, Min As Integer Dim i%, n%, p As Integer '**********SPACE********** 【 ? 】 Min = 10 For i = 1 To 10 n = Val(InputBox(" 请输入分数: ")) '**********SPACE********** If n > Max Then 【 ? 】 If n < Min Then Min = n s = s + n Next i '**********SPACE********** s = s - Max 【 ? 】 p = s / 8 Print " 最高分 : "; Max Print " 最低分 : "; Min Print " 最后得分: "; p End Sub