指数分布、双参数指数分布随机数的产生四眼北极熊下面的VB程序用来产生服从指数分布以及双参数指数分布的随机数。指数分布以及双参数指数分布的概率密度函数分别为：λe−λx,x≥0X～Exp(λ),p()x=0,x<0，λ>0˗−λ−µλe()x,x≥µX～Exp(λ，μ),p()x=0,x<µ，λ>0，μ≠0(μ=0时，双参数指数分布Exp(λ,μ)退化为指数分布Exp(λ))。实际使用时，不必在窗体上添加任何控件，只要在代码窗口里粘贴上下面的代码，运行时单击窗体，在弹出的对话框中输入参数后即可在窗体上显示出服从指数分布或双参数指数分布的随机数了。该程序在VB6.0环境下运行通过。该程序算法简单，可以很轻松地转换为Java、C、C++或其它语言。1.产生服从指数分布的随机数的VB程序代码：PrivateSubForm_Click()FontSize=10Dimi%,n%,j%,λ#,x#'n是产生的随机数个数，λ是指数分布的参数n=InputBox("请输入所需产生随机数的个数")λ=InputBox("请输入指数分布的参数")Fori=1To(n\5)Forj=1To5Randomizex=(-1/λ*Log(Rnd))PrintFormat(x,"0.0000"),Spc(3);NextjPrintNextiFori=1To(nMod5)Randomizex=(-1/λ*Log(Rnd))PrintFormat(x,"0.0000"),Spc(3);NextiEndSub12.产生服从双参数指数分布的随机数的VB程序代码：PrivateSubForm_Click()FontSize=10Dimi%,n%,j%,λ#,μ#,x#'n是需要产生的随机数个数，λ是双参数指数分布的尺度参数'μ是双参数指数分布的位置参数n=InputBox("请输入所需产生随机数的个数")λ=InputBox("请输入双参数指数分布的尺度参数")μ=InputBox("请输入双参数指数分布的位置参数")Fori=1To(n\10)Forj=1To10Randomizex=(-1/λ*Log(Rnd)+μ)PrintFormat(x,"0"),Spc(3);NextjPrintNextiFori=1To(nMod10)Randomizex=(-1/λ*Log(Rnd)+μ)PrintFormat(x,"0"),Spc(3);NextiEndSub2