Найти первый отрицательный элемент в матрице R(n) и сформировать матрицу P(n)

For i=1 to n
For j=1 to n
If R(i,j)<0 then Element = R(i,j):goto end
Next j
Next i
End:

Dim r() As Integer
Dim p() As Integer
Dim i, k, n As Integer
Private Sub Command1_Click()
n = InputBox("Ââåäèòå êîëëè÷åñòâî öèôð â ìàòðèöå", "Ââîä", "5")
ReDim r(n) As Integer
ReDim p(n) As Integer
Randomize
For i = 1 To n
r(n) = 13 * Rnd - 6
Label1.Caption = Label1.Caption & r(n) & Chr(32)
Next i
 
End Sub
 
Private Sub Command2_Click()
For i = 1 To n
If r(i) < 0 Then k = r(i):goto end
Next i
End Sub
 
Private Sub Command3_Click()
For i = 1 To n
p(n) = r(n) / k
Label3.Caption = Label3.Caption & p(n) & Chr(32)
Next i
 
End Sub

Private SUB Command2_Click()
FOR i = 1 TO n
IF r(i) < 0 THEN k = r(i):exit for
NEXT i
END SUB

Private SUB Command2_Click()
k=1
FOR i = 1 TO n
IF r(i) < 0 THEN k = r(i):exit for
NEXT i
END SUB

Private SUB Command3_Click()
If k=1 then msgbox("Нет отрицательного"):exit sub
FOR i = 1 TO n
p(n) = r(n) / k
Label3.Caption = Label3.Caption & p(n) & Chr(32)
NEXT i

Dim r() As Integer
Dim p() As Integer
Dim i, k, n As Integer
Private Sub Command1_Click()
n = InputBox("Введите колличество цифр в матрице", "Ввод", "5")
ReDim r(n) As Integer
ReDim p(n) As Integer
Randomize
For i = 1 To n
r(n) = 13 * Rnd - 6
Label1.Caption = Label1.Caption & r(n) & Chr(32)
Next i
End Sub
Private Sub Command2_Click()
k = 1
For i = 1 To n
If r(i) < 0 Then k = r(i): Exit For
Next i
Label2.Caption = k
End Sub
Private Sub Command3_Click()
If k = 1 Then MsgBox ("Нет отрицательного"): Exit Sub
For i = 1 To n
p(n) = r(n) / k
Label3.Caption = Label3.Caption & p(n) & Chr(32)
Next i

r(i) = 13 * Rnd - 6