编程,用随机函数产生100个[0,99]范围内的

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

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

#include#include#includeintmain(){inta[15],i,j;srand(time(NULL));for(i=0;i<15;i++)a[i]=rand()%100;fo

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=

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

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu

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

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

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

很少有设备拥有随机电路,除非安全性要求很高,大部分随机发生函数采用线性同余产生0到p-1之间的均匀分布,通常用随机种子s=(a*s+b)modp进行迭代,函数输出为s^cmodp,其中a,b,c互质,

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

把这几个符号先存到数组里用随机函数PrivateSubForm_Load()DimS(1To4)AsStringDimaAsIntegerRandomizeS(1)="+":S(2)="-":S(3)

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

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

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

nd()产生一个大于等于0且小于1的随机数要产生[m,n]中随机的整数公式：int((n-m+1)*rnd)+mint(rnd()*1000)表达式产生大于0,小于1000的整数int(rnd()*9

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