Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив - VB
Формулировка задачи:
задано массив целых числе М * Н найти элементы, которые делятся на 7 и образовать из них одномерный массив
Решение задачи: «Задан массив целых чисел М * Н. Найти элементы, которые делятся на 7 и образовать из них одномерный массив»
textual
Листинг программы
Private Sub Form_Load() Dim M As Long, H As Long, Ar() As Long, Res() As Long, Init As Boolean Dim i As Long, j As Long Me.AutoRedraw = True Randomize M = 5: H = 6 ReDim Ar(M - 1, H - 1) ' Заполняем и выводим Me.Print "Исходный массив: {" For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2) Ar(i, j) = Int(Rnd * 100) Me.Print Ar(i, j); Next: Me.Print: Next Me.Print "}" ' Выделяем кратные числу 7 For i = 0 To UBound(Ar, 1): For j = 0 To UBound(Ar, 2) If Ar(i, j) / 7 = Fix(Ar(i, j) / 7) Then If Init Then ReDim Preserve Res(UBound(Res) + 1) Else ReDim Res(0): Init = True Res(UBound(Res)) = Ar(i, j) End If Next: Next ' Отображаем результирующий массив If Init Then Me.Print "Результат :{" For i = 0 To UBound(Res) Me.Print Res(i); Next Me.Print "}" Else Me.Print "Элементы отсутствуют" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д