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

Узнай цену своей работы

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

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

Решение задачи: «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

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы