Dim randi As Double      
Dim randx() As Double     
Dim i As Double
Dim death() As Double   
Dim totaldeath() As Double

Sheets("Sheet1").Cells(8, 3).Value = randi

For i = 0 To randi * 10

    If i = 0 Then
        totaldeath(i) = 0
    Else
        randx(i) = "=rand()"

End If

Excel VBA程序运行到这就
    Else
        randx(i) = "=rand()"
就出现“下标越界”的错误提醒。
小白一枚，求大神，学霸指教，感激不尽！