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

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

在while循环k=1到k=10中,给数组赋值.你分别输入10,20,50,80,40,30,90,100,60,70.也就是说arr(1)=10,arr(2)=20.arr(10)=70Fori=1

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

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

PrivateSubCommand1_Click()OnErrorGoToHellDimMAsInteger'月份DimNAsLong'张数DimRAsInteger'折扣M=InputBox("请输

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

PrivateSubCommand1_Click()a=Abs(InputBox("请输入第一个整数","输入数据"))b=Abs(InputBox("请输入第二个整数","输入数据"))c=Abs(

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

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

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

Int和Fix都会删除number的小数部份而返回剩下的整数.Int和Fix的不同之处在于,如果number为负数,则Int返回小于或等于number的第一个负整数,而Fix则会返回大于或等于numb

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

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

不太明白问题的意思,做程序吗?=(a1+a2+a3……a12-Max(a1,a2,,a12)-Min(a1,a2,,a12))/10

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

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

ifxmod2=0thenmsgbox"是偶数"elsemsgbox"是奇数"

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

PrivateSubCommand1_Click()Dimi,jAsIntegerFori=1To13Forj=1ToiPrint"";NextjForj=iTo13-i+1PrintChr(56-i

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