下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。 Private Sub Command1_Click() Max=0 Min=10 For I=1 To 20 N=Val(InputBox("请输入分数")) If (12) Then Max=N If N<Min Then Min=N S=S+N Next I S= (13) P=S/18 Prin
主观题
下面是一个体操评分程序。20位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。 Private Sub Command1_Click() Max=0 Min=10 For I=1 To 20 N=Val(InputBox("请输入分数")) If (12) Then Max=N If N<Min Then Min=N S=S+N Next I S= (13) P=S/18 Prin