vb程序输入10个评委给的分数,去掉最高分和最低分

privatesubcommand1_click()dimmaxfori=1to3n=val(inputbox("输入第"&i&"个数"))ifn>maxthenmax=nendifnextprint

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

其实从思想上来说,就是一个排序的思路问题.排序的方法有很多.说2个最简单的（设让结果从小到大排列）方法一假设10个数把第一个依次与他后面的比较,如果比后面的大,就把位子换下,这样当第一个看完后面9个数

大体伪代码框架如下y=int(x);if(y/2*2==y)even()elseodd()另,这算法好傻,最快判断奇偶的话,只需要看整数的最后1位是0还是1就行了（因为计算机用的是二进制数）

intmain(){\x09constunsignedintMs=4;//Msmustbegreaterthan2\x09constunsignedintNs=3;\x09doublescores[N

以下代码为输入任意多个数字进行统计如果输入0则退出循环显示出统计结果PrivateSubCommand1_Click()DimiAsIntegerDimqAsIntegerDimoAsIntegerq

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

1.你用自己的方法将这N个数字分别用数组a(1)-a(n)表示2.求最大fori=1ton-1ifa(i)>a(i+1)thenmax=a(i)elsemax=a(i+1)endifnexti3.求最

/>privatesubcommand1_click()dima(1to10)asdoubledimminasdoublefori=1to10a(i)=val(inputbox("请输入数组元素值："

关于你说的变量的声明（定义）问题,你需要掌握变量的作用域的概念：我给你一个例子,看看能否了解.

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

functionGetData()dimMaxasdouble'最大的数dimminasdouble‘最小的数dimiLasdouble’最大的位置dimalasdouble‘最小的位置dimtota

只有两个评委……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

#include"stdio.h"main(){intinteger,i,max,min,sum;max=0;min=100;sum=0;for(i=1;i100||integermax)max=in

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

PrivateSubCommand1_Click()IfIsNumeric(Text1.Text)Then'是否数字IfSgn(Val(Text1.Text))>0Then'是否正数IfCLng(Va

vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I