用随机函数产生20个1000以内的整数存入数组中用冒泡法将他们从大到小排列出来

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

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

zd=Int(Rnd()*51)+50zx=Int(Rnd()*51)+50Fori=1To19xd=Int(Rnd()*51)+50Ifxd>zdThenzd=xdIfxdNextiPrintzd,

dima,max,min,sum,averagesum=0max=20min=50fori=1to20a=(Rnd*50)+50sum=sum+aifamaxthenmax=aprintanextpr

s=0p=50q=100Fori=1To20a=Int(Rnd*51+50)Printa;ifa>=pthenp=aendififa

PrivateSubCommand1_Click()Dima%(1To20),max%,min%max=50min=100RandomizeClsFori=1To20a(i)=Int(Rnd*51+5

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

PrivateSubForm_Click()Dima(19)AsIntegerDimmaxAsInteger,minAsInteger,avAsIntegerFori=0To19a(i)=Int((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

#includevoidmain(){inta[100],i;for(i=0;i

Dimm(99)AsInteger,n(9)AsInteger,iAsInteger,kAsIntegerRandomizeFori=0To99m(i)=Int(Rnd*100)Printm(i);k

你可以用randint(m,n)是生成只有0,1的m*n维矩阵然后randint(m,n).*2-1就可以了例如运行如下程序randint(3,4).*2-1ans=11-11111-1-1-111

我觉得楼上的是错的!如果不能的话找我!qq776871598那个排序的从第二个和第三个开始吗?第一个怎么办而却循环次数也有歧义!不懂我是不是错的!所以楼主先试验下

#include#include#includeintmain(void){srand(time(0));inti=0;//用于下面的循环inta[20]={0};//用于存储产生的20个随机数.do

这个程序不难,不知你要统计什么呢?

/>很高兴为你解答答案是：#include <stdio.h> #include <stdlib.h>#include <time

窗体上放个CommandButton和两个Label：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerLabel1.Capti

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,