title: output this vba into cells
body: <pre><code>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
  </code></pre>