小白一枚,为啥无适当的对象..代码如下,界面如图
Private Sub Form_Click()
Dim i, n, j, λ, μ, x As Integer
FontSize = 10
'n是需要产生的随机数个数,入是双参数指数分布的尺度参数’u是双参数指数分布的位置参数
n = InputBox("1457")
λ = InputBox("18427")
μ = InputBox("0")
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