vba怎么编写服从正态分布的随机数呀？

zhang许

这样对吗

约定的童话

在VBA中，可以使用Application.WorksheetFunction.NormInv函数生成服从正态分布的随机数。该函数的语法为：

NormInv(probability, mean, standard_dev)
NormInv(probability, mean, standard_dev)
其中，probability表示在正态分布曲线下随机抽取的一个数，mean表示正态分布的平均值，standard_dev表示正态分布的标准差。

以下是一个简单的示例，生成10个服从均值为5，标准差为2的正态分布的随机数：

Sub GenerateRandomNumber()

    Dim i As Long
    Dim mean As Double
    Dim stdDev As Double
    Dim randNum As Double
   
    '设置均值和标准差
    mean = 5
    stdDev = 2
   
    '生成10个正态分布的随机数
    For i = 1 To 10
        randNum = Application.WorksheetFunction.NormInv(Rnd(), mean, stdDev)
        Debug.Print randNum
    Next i
        
End Subvb
Sub GenerateRandomNumber()

    Dim i As Long
    Dim mean As Double
    Dim stdDev As Double
    Dim randNum As Double
   
    '设置均值和标准差
    mean = 5
    stdDev = 2
   
    '生成10个正态分布的随机数
    For i = 1 To 10
        randNum = Application.WorksheetFunction.NormInv(Rnd(), mean, stdDev)
        Debug.Print randNum
    Next i
        
End Sub
在此示例中，Rnd()函数返回一个0到1之间的随机数，用于作为probability参数传递给NormInv函数。每次循环生成一个服从正态分布的随机数，并将其打印在调试窗口中。