将此VBA输出到单元格中

Question

Sub test()
Dim s() As Double
ReDim s(5 + 1, 5 + 1) As Double
For i = 1 To 5 + 1
For j = i To 5 + 1
s(i, j) = 0.05 * 1.2 ^ (j - 1) * 0.8 ^ (i - 1)
Next j
Next i
End Sub

Answer 1

Cells(i, j) = 0.05 * 1.2 ^ (j - 1) * 0.8 ^ (i - 1)