vb随机产生十个20~200的整数,去掉最大数最小数后取平均值

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

Private Sub Command1_Click()Text1.Text = ""Dim A(1 To 1

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((1

先把Text1的MultiLine属性设为True,这样文本框才能进行换行PrivateSubCommand1_Click()Text1=""'清空Text1中的现有文本Dimscore(1To20)

改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)

PrivateSubCommand1_Click()DimIAsInteger,NAsInteger,MaxAsInteger,MinAsIntegerMin=100RandomizeForI=1To

Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe

我已经上机验证过了,正确.思路：产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

1.随机函数RND()产生一个0-1之间（不含0和1）的随机小数2.INT(RND()*B+A)产生一个A（包括A）到A+B（不包括A+B）之间的整数,如INT(RND()*40+60),产生60-9

dimary(14),jgaslong,dimSerAim(),sumaslongrandomizefori=1to13ary(i)=int(rnd*1000)nextFori=1To12Forj=i

再问：谢了，能否把程序给提供一下，我不会再答：好吧！

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a

若要生成a与b之间的随机实数,请使用：RAND()*(b-a)+a两位的随机正整数的话,a=10,b=99

是的!

PrivateSubCommand1_Click()DimZs(1To35)AsIntegerFori=1To35RandomizeZs(i)=Int(61*Rnd)+20PrintZs(i);Nex

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim 

Randomizea=int(rnd*6)+50