Заполнение массива - VB (58755)

Формулировка задачи:

Необходимо заполнить массив n*n по правилу 1 2 3 4 .. n 0 2 3 4 .. n 0 0 3 4 .. n 0 0 0 4 .. n 0 0 0 0 .. n У меня получается 1 2 3 4 0 3 4 5 0 0 5 6 Я думаю проблема в строке x = x + 1, когда коментил ее заменялось как надо, но не было порядка 1 2 3 4 .. Помогите увидеть проблему в коде.

Dim Am(1 To 10, 1 To 10) As Double
Private Sub Command1_Click()
n = Val(Text1)
For i = 1 To n
x = i
For j = 1 To n
Am(i, j) = x
x = x + 1
If i >= j + 1 Then Am(i, j) = 0
Picture1.Print Am(i, j);
Next
Picture1.Print
Next
End Sub

Решение задачи: «Заполнение массива»

textual
                            Листинг программы 
                        

                            OPTION BASE 1
Dim Am() As INTEGER'!
 
Private Sub Command1_Click()
n = Val(Text1)
REDIM Am(n, n)'!
Picture1.Cls
For i = 1 To n
  For j = 1 To n
    If j >= i Then Am(i, j) = j
    Picture1.Print Am(i, j);
  Next
  Picture1.Print
Next
End Sub
                        