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 EndS

亲爱的各位吧友：欢迎来到日照昆虫

这个活动很给力，小伙伴们不要错过哦！