Сформировать массив, предварительно заполнить его значениями, равными нулю - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д