vb输入十个评委给出的分数,去掉最高分和最低分后

没作图工具~我说下思路吧~首先假设第一个为最大值那么让他和后面9个数组依次比较,如果后面的数字有比第一个大的那么就把大的数字赋值给他.依次类推到最后一个那么就找到最大值了`

求和应当是：#include#includemain(){inti,up=0,down=0,data[10];for(i=0,i0)up+=data[i];elsedown+=data[i];}pri

PrivateSubCommand1_Click()Dima#,b#,c#,p#Me.AutoRedraw=Truea=3:b=4:c=5Doa=Val(InputBox("请输入三角形第一条边","

Subabc()'输入三角形三个边长,计算其面积Dima,b,c,sDos=InputBox("请输入三角形的三个边长,用半角逗号分隔."&Chr(13)&"输入-1时结束程序.")IfVal(s)=

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

他不大可能知道的.从第一个条件上知道,最高分是100分从第二个条件上知道,最低分是60分.但如果他得到680分,即使是每十分一个数值,也有许多的组合可能,他不可能知道.只有一种情况下,他才能知道,也就

PrivateSubCommand1_Click()fori=1to20a=val(inputbox("输入第"&i&"个数:"))ifa>=0thenj=j+1:s=s+anextprint"正数个

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

#includevoidmain(){floatscore[10];inti=0;floatmax=0.0,min=100.0,sum=0.0;printf("输入10个评分:");for(

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

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

PrivateSubForm_Load()DimaAsInteger,bAsInteger,cAsInteger,MaxAsInteger,MinAsIntegera=InputBox("请输入a值"

只有两个评委……9.76和9.68有三个评委……9.80、9.72和9.64四个评委……9.84、9.78、9.66和9.60……X个评委……9.68+X*0.04.剩下的你懂的、、总之数组关于9.7

设一个变量,将avg(x,temp)的值传给它;

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

x=nextDouble();这句应该是kb.nextDouble()才对吧再问：第13行找不到符号。。。再答：你for循环里貌似写的是num=字母o而不是数字0吧。再问：fuck。。。thankyo

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

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

LeonardoDaVinci(1452-1519)Heisuniversallyrecognizedartsmasterandgreatscientist.15April1452Accordingt