Сформировать массив, предварительно заполнить его значениями, равными нулю - VB

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

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

Здравствуйте, помогите выполнить задание. Буду очень признателен!!! Всем заранее спасибо! В архиве есть справка как формировать массив, чтобы было легче.

Решение задачи: «Сформировать массив, предварительно заполнить его значениями, равными нулю»

textual
Листинг программы
Private Sub Command1_Click()
    Randomize
    Cls
    Const n As Integer = 5, m As Integer = 8
    Dim A(1 To n, 1 To m) As Integer, i As Integer, j As Integer
    Dim temp As Integer
    
    Print "Исходный массив"
    For i = 1 To n
         For j = 1 To m
            A(i, j) = Int(Rnd * 10)
            Print A(i, j); vbTab;
         Next j
         Print
    Next i
    
    Do
        temp = A(n, m)
        For i = 1 To n
             For j = 1 To m
                  If A(i, j) = 0 Then A(i, j) = temp
                  temp = A(i, j)
             Next j
        Next i
    Loop Until A(1, 1) <> 0
    
    Print
    Print "Результат"
    For i = 1 To n
         For j = 1 To m
              Print A(i, j); vbTab;
         Next j
         Print
    Next i
   
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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