Задан массив целых чисел М * Н. Найти элементы, которые делятся на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д