Определить элементы массива по правилу - VB

Private Sub Command1_Click()
   Const n = 20
   Dim b(1 To n) As Double
   Dim c(0 To n) As Double
 
   For i = 1 To n
      b(i) = Int(100 * Rnd)
   Next i
   
   c(0) = 0 'вспомогательный элемент
   For i = 1 To n
      c(i) = c(i - 1) + b(i) ^ i
      Print c(i)
   Next i
End Sub