vba生成范围0-0.04之间的九个随机数，然后放到数组中

在VBA中，你可以创建一个动态数组来存储在0到0.04之间（包含0和0.04）的九个随机数。这里是一个简单的示例：

Sub GenerateNineRandomNumbers()
    Dim randomArray(1 To 9) As Double ' 创建一个长度为9的数组
    Dim i As Integer
    
    ' 循环生成并添加九个随机数
    For i = 1 To 9
        randomArray(i) = Round(Int((0.04 * Rnd) * 100) / 100, 2) ' 乘以100是为了得到整数部分便于取模
        ' 因为我们只对0到0.04感兴趣，所以用Int()截断多余的数字，并除以100还原回小数范围
        ' Round()则保留两位小数
    Next i
    
    ' 打印或查看数组内容
    Debug.Print "生成的九个随机数为："; Join(randomArray, ", ")
End Sub

这段代码会在循环中生成九个随机数，每个随机数都在0到0.04之间，然后将它们存储在`randomArray`数组中。`Join()`函数用于连接数组元素作为字符串输出以便于查看。