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