Vb6 задача с массивами целых чисел

[Leonid+]

Из массива целых случайных чисел X={x(i)}, где i={1,2,3....n}, получить массив Y=Y{(m)}, заполнив нарастающими суммами элементов.

option Explicit
Dim x(), y(), i, n, m As Integer
Private Sub cmd1_Click()
n = CInt(InputBox("Введите n", "Ввод"))
 ReDim x(1 To n), y(1 to n)
 For i = 1 To n
 x(i) = CInt(InputBox("Введите x", "Ввод"))
Print x(i);
Next i

дальше как делать я не очень понимаю, как задать y(i)?
Подскажите пожалуйста
Заранее спасибо

[gaw4]

вариант

Option Explicit
Dim x() As Integer, y() As Long, S As Long
Dim i%, n%, m%
Private Sub cmd1_Click()
Cls
n = CInt(InputBox("Ââåäèòå n", "Ââîä"))
 ReDim x(1 To n), y(1 To n)
 S = 0
 Print "x(i)"; vbTab; "y(i)"
 For i = 1 To n
 x(i) = Int(Rnd * 20) ' CInt(InputBox("Введите x", "Ввод"))
 Print x(i); vbTab;
  S = S + x(i)
  y(i) = S
 Print y(i)
 Next i
End Sub

[Leonid+]

Спасибо Вам большое. Всё работает отлично)