vb程序设计 10个评委打分,去掉一个最高分,去掉一个最低分,然后求出平均分
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/28 09:26:23
如果你想简单一点就初始化二维数组再进行运算:#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