赋值运算符的运算规则(赋值评分法)

蓝芝宝
导读 大家好,乐天来为大家解答以下的问题,关于赋值运算符的运算规则,赋值评分法这个很多人还不知道,现在让我们一起来看看吧!1、PrivateSubCom

大家好,乐天来为大家解答以下的问题,关于赋值运算符的运算规则,赋值评分法这个很多人还不知道,现在让我们一起来看看吧!

1、PrivateSubCommand1_Click()Dima(1To10)Dimave,sum,min,maxFori=1To10a(i)=Val(InputBox("请输入第"&i&"个评委的分数"))Printa(i);NextiPrintmin=a(1)max=a(10)Fori=1To10sum=sum+a(i)Ifa(i)maxThenmax=a(i)Nextiave=(sum-min-max)/8Print"选手的最终成绩:"&aveEndSubPrivateSubForm_Load()Me.AutoRedraw=TruePrint"输入十位评委的分数:"EndSub。

本文分享完毕,希望对大家有所帮助。

标签:

免责声明:本文由用户上传,如有侵权请联系删除!