Глобальная переменная - VB (170594)

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

есть программка:

Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = i / j - Logi * j
Picture1.Print Format(A(i, j), "0.0"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim x(1 To 100) As Double
For i = 1 To n
max = A(i, 1)
For j = 1 To n
If max < A(i, j) Then max = A(i, j)
Next j
x(i) = max
Picture1.Print x(i)
Next i
End Sub

только при её запуске выдает ошибку "sub of function not defined" и подсвечивает "А" во второй кнопке. как объявить глобальную переменную("А")? пробовал вписать в самом начале:

Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double

но тогда при нажатии Command2 ничего не происходить

Решение задачи: «Глобальная переменная»

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

                            Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer,n as integer
 
 
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = i / j - Logi * j
Picture1.Print Format(A(i, j), "0.0"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim x(1 To 100) As Double
For i = 1 To n
max = A(i, 1)
For j = 1 To n
If max < A(i, j) Then max = A(i, j)
Next j
x(i) = max
Picture1.Print x(i)
Next i
End Sub
                        