глобальная переменная - 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 ничего не происходить

Код к задаче: «глобальная переменная - VB (170594)»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

8   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ