vb添加20个随机数 范围在1-501

理论上是不可能的,但可以用两个随机数来生产很大的一个随机数,比如：a=Int(10^Int((100*Rnd)+1)*Rnd+1)

PrivateSubCommand1_Click()Dima(9)AsIntegerFori=0To9way1:Randomizea(i)=Int(Rnd()*10)+1Ifi>1ThenForp=0

为了生成某个范围内的随机整数,可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)这里,upperbound是随机数范围的上限,而lowerbou

VB的Rnd函数,其作用就是产生(0,1)之间的随机数,还不是[0,1].即：0根据上式,结合VB的Int（）等函数,可以产生你所需要的任意范围内的随机数.例如1：根据0那么就有：0例如2：0再问：怎

PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.

如果是要随机产生双色球的话,参考如下代码：PrivateSubCommand1_Click()Dima(6)AsIntegerDimbAsIntegerFori=1To6a(i)=Int(Rnd()*

下载即可

取值范围为:[1,13),包括1不包括13

OptionExplicitPrivateSubCommand1_Click()DimAAsString,iAsInteger,DDAsSingleRandomizeDoDD=Int(Rnd*1000

PrivateFunctionAverageSub()AsDoubleDimintTotalAsIntegerDimiAsIntergerintTotal=0Randomize()Fori=0To9i

可以先产生一个随机数来选择范围然后根据这个范围来选择随机数范围再产生一个随机数.比如OptionExplicitPrivateSubCommand1_Click()Dimx,yRandomizex=I

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

'声明变量dimMin_numasintdimMax_numasintdimSum_numasintdimArr_num(9)asint'赋予初始值Min_num=101Max_num=-1Sum_n

产生2~99之间的1次1个随机数randomizeInt((99-2)*Rnd+1)产生1~n之间的1次20个随机数RandomizeDimtemAsInteger,jAsInteger,iAsInt

对概率分布有什么要求吗?如果没要求那就随便找一个有最大值没有最小值的函数就行了.假设你要求的最大值为M,那么可以用下面这些函数产生最大值为M的随机数R.比如：R=M+1-1/RND()R=M+1-1/

Dimi%,k%RandomizeFori=0To9k=Int(Rnd()*100)List1.AddItemkNexti当然,List1.AddItem可以改为其他的.

OptionExplicitPrivateSubCommand1_Click()Dima,b,ia=0RandomizeTimer'改变随机数种子Fori=0To2b=(100*Rnd+1)Print

C语言编写#include#includevoidmain(){intnum[20];//用来存放随机产生的20个数inti,j,sum,max,min,average;//sum,max,min,a

可以先产生一个随机数来选择范围然后根据这个范围来选择随机数范围再产生一个随机数.比如OptionExplicitPrivateSubCommand1_Click()Dimx,yRandomizex=I

Dimnum(1To20)AsInteger'随机数数组Dimcount(1To10)AsInteger'计数数组'生成一个20个元素的数组temp="生成数组如下："&Chr(10)Fori=1To