vb评委打分代码

如果你想简单一点就初始化二维数组再进行运算：#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

既然后边都会用abs了,为何前边不用.iy(0)相当于i-y(0)0iy(0)+-1相当于i-y(0)+-1如果i和y(0)都是integer,那么可以这样写abs(i-y(0))>1以此类推j,k

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

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

Private Sub Command1_Click() Dim i As Integer, j As Int

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

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

平均数是加起来,除以7=9.5.（过程自己例啦）中位数是从大到小排列,中间是9.6所以是9.6（你排列一下）就答吧.第二题自己算啦~最后一题根据第二题~.

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

一、平均数：(9.8+9.7×2＋9.6×4＋9.5＋9.4×2+9.I)=9.5455中位数：（11+1)/2＝6,第六个数是中位数9.6众数：最多的4个,众数是9.6二、因为最高分和最低分相差较大

除不尽保留两位小数即可.平均数=所有数之和÷11=105÷11≈9.54中位数=9.6众数=9.6再问：　　‍‍看看有木有更好的答案再答：如果你不想取近似数，就直接写分数形式平

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

原平均数：张=9.5,李=9.6中位数：张：9.6,李：9.6去掉每组数据中的最高分和最低分”之后平均数：张=9.56,李=9.62中位数：张：9.6,李：9.6∴平均数发生变化,中位数不变因为极大值

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

一、你没有考虑a＝0的情况二、n=和m＝这两句,你要把2*a用()括起来做分母或者你把*号,换成除号/就不用括起来了!还有楼上说的,分子也要括起来!哈哈

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