Двумерный массив из 6 строк и 3 столбцов - VB (60930)

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

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

Двумерный массив из 6 строк и 3 столбцов. - Вывести элементы 4 строки - Вывести элементы 2 столбца - Найти максимальный элемент и его индексы (номер строки и столбца). - Определить количество четных значений в массиве

Решение задачи: «Двумерный массив из 6 строк и 3 столбцов»

textual
Листинг программы
Private Sub Command1_Click()
Cls
max = 0
n = 0
For i = 1 To 6
    For j = 1 To 3
    a(i, j) = Round(CDbl(Rnd * 10 + 2), 0)
    t = t * a(i, j)
    If a(i, j) > max Then
    max = a(i, j)
    m_i = i
    m_j = j
    End If
    If a(i, j) Mod 2 = 0 Then n = n + 1
    Print a(i, j); vbTab;
    Next j
Print vbLf
Next i
Print "ÝëåìåГ*ГІГ» 2-ГЈГ® ñòîëáöГ*:"
For i = 1 To 6
    Print a(i, 2)
Next i
Print vbLf
Print "ÝëåìåГ*ГІГ» 4-îé ñòðîêè:"
For i = 1 To 3
    Print a(4, i)
Next i
Print vbLf
Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* - " & max
Print "Íîìåð ñòðîêè Гў êîòîðîé Г°Г*ñïîëîæåГ* Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ - " & m_i
Print "Íîìåð ñòîëáöГ* Гў êîòîðîì Г°Г*ñïîëîæåГ* Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ - " & m_j
Print "Êîëè÷åñòâî Г·ВёГІГ*ûõ ýëåìåГ*òîâ Гў Г¬Г*Г±Г±ГЁГўГҐ - " & n
End Sub

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


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

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

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