vb程序设计 10个评委打分,去掉一个最高分,去掉一个最低分,然后求出平均分

如果你想简单一点就初始化二维数组再进行运算：#definepw8/*评委数目*/#definegs5/*歌手数目*/main(){inti,j,max,min,sum,ave[gs];inta[gs]

#include//我就直接打了,你自己调试看看啊main(){inti,a[10],max,min,average=0；for（i=0;i++;i

#includevoidmain(){\x09/*\x09你的程序除了这个问题外还有其他的问题\x09*/\x09intsum=0,i,b;\x09doubleavg;//定义浮点型,才能保存下来小数

这是我做的,你参考一下.

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

去掉9.8和9.1其他8个数相加后除以8,平均为9.45

PrivateSubCommand1_Click()Dimsum,aAsIntegerFori=1To7a=InputBox("")sum=sum+aNextPrintsum/7EndSu

#include"stdio.h"#definePW7#defineGS5structscore{intnum;floata[PW],add;}sc[GS];voidsort(){inti,j;str

'是这意思?PrivateSubForm_Activate()DimiAsIntegerFori=1To8Ifi=1ThenPrint"※"ElsePrint"※"&Space(2*(i-2))&"※

PrivateSubCommand2_Click()Dima(11)AsInteger,sAsStringDimiAsInteger,m1AsInteger,m2AsInteger,avAsDoubl

按照你的要求做的小程序,希望是你想要的,有问题可以追问,如果满意请采纳

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

先进行数列排序,再取中间8个值求平均分main(){inti,j,temp,n;inta[10];for(i=0;i

/*其中输入的n代表评委数量你可以自己设置n；一定要采纳啊,不容易啊*/#include#include#includeusingnamespacestd;intmain(){inti,n,a,m1,

Dimarr(1To10)AsDoubleConstN=10PrivateSubCommand1_Click()RecordDimtempAsDoubleFori=1ToN-1Forj=1ToN-1I

PrivateSubCommand1_Click()s=0zf=0Fori=1To10s=InputBox("第"&i&"位评委给分:")zf=zf+sNextiPrint"总得分："&zfEndSu

楼主您好!代码如下：在窗体上画一个按钮,一个标签,然后复制粘贴代码就OK了Public Sub DaFen()    Dim Pi

似乎你的comments不正确阿：印象里应该是int类型的数据范围是：[-32768,+32767],ifsizeof(int)==2再问：这是原题  如果将max=100,min

Subform_click()Dimi(10)Forn=1To10i(n)=Int(Rnd*30+20)Nextmaxnum=20Forn=1To10Ifi(n)>maxnumThenmaxnum=i

#include<stdio.h>#include<math.h>int main(){\x09float k,s=0,a[10],max,min,fair