步骤始终为1000
Steps = 1000 Dim ArrayRand(1 to Steps) As Double For i = 1 To Steps Randomize ArrayRand(i) = WorksheetFunction.NormSInv(Rnd()) Next i