赋值法适用范围（赋值评分法）

大家好,小东方来为大家解答以上的问题。赋值法适用范围，赋值评分法这个很多人还不知道,现在让我们一起来看看吧！

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。

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

免责声明：本文来源网友投稿及网络整合仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。投诉邮箱：1765130767@qq.com。

本文地址：https://www.lnsss.com/shenghuo/yinshi/409168.html