OptionBase1
DimScore()AsInteger
DimNAsInteger,MaxAsInteger,MinAsInteger,AverageAsSinglePrivateSubForm_Load()
N=Val(InputBox("请输入总人数","",""))
Text1Text2Text3
ReDimScore(N)ForI=1To【10】
Score(I)=Val(InputBox("请输入第"&Str(I)&_"个学生的成绩","成绩统计",""))
NextITotal=0Max=Score(1)
Min=Score(1)
ForI=1ToN
IfScore(I)>MaxThenMax=Score(I)
If【11】<MinThenMin=Score(I)
Total=Total+Score(I)NextIAverage=【12】/N Text1.Text=Format(Average,"0.00")Text2.
Text=MaxText3.Text=Min
EndSub