2 задачи на двумерные массивы - VB

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

Доброго времени суток! Еще у меня к вам 2 вопроса (совсем запутался в задачках): 1. Дан двумерный массив размером n*m, заполненный случайными числами. Определить номера строк массива, содержащих только положительные элементы и найти среди них наибольший. Мой код:

Dim a(100, 100) As Double
Max1 = a(1, 1)
Picture1.Cls
Picture2.Cls
Picture3.Cls
n = Val(Text1.Text)
M = Val(Text2.Text)
For i = 1 To n
For j = 1 To M
a(i, j) = Int(Rnd * 201 - 50)
Picture3.Print a(i, j);
Next
Picture3.Print
Next
For i = 1 To n
Key = True
For j = 1 To M
If a(i, j) > 0 Then
If a(i, j) > Max Then Max = a(i, j)
Else
Key = False
End If
Next
If Key Then St = St & " "
Next
MsgBox "Строки с положительными элементами:" & St
Picture1.Print St
Picture2.Print Max

2. Заполнить массив n*n по правилу: 1 1 1 ... 1 0 2 2 ... 2 0 0 3 ... 3 .. .. .. .. .. 0 0 0 ... 0 Мой код (тут я вообще в ступор полный впал():

Private Sub Command1_Click()
Dim b(20, 20) As Double
Picture1.Cls
n = InputBox("Введите n")
For i = 1 To n
For j = 1 To n
b(i, j) = j
Next
Next
For i = 1 To n
For j = 1 To n
Picture1.Print b(i, j);
Next
Picture1.Print
Next
End Sub

Помогите, пожалуйста, с решением)) Буду очень признателен

Решение задачи: «2 задачи на двумерные массивы»

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

                            Private Sub Command1_Click()
    Dim b() As Integer, n As Integer, i As Integer, j As Integer
    Picture1.Cls
    n = InputBox("Введите n", , 9)
    ReDim b(1 To n, 1 To n)
    
    For i = 1 To n
         For j = 1 To n
         
            'У Вас ошибка в заданиии
            If i < j Then b(i, j) = i     ' Попробуйте так
            'If i < j + 1 Then b(i, j) = i ' и так
            'И увидите разницу в заполнении
            
            Picture1.Print b(i, j);
         Next j
         Picture1.Print
    Next i
    
End Sub
                        