Заполнить массив А(5,5) произвольными числами с клавиатуры - VB

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

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

создать проект заполнения массива А(5,5) произвольными числами с клавиатуры. Вывести на экран четные элементы

Решение задачи: «Заполнить массив А(5,5) произвольными числами с клавиатуры»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Click()
Cls:    Randomize
  
Dim A(1 To 5, 1 To 5), Otvet, i As Integer, j As Integer
Const n = 5
    Print "Исходный массив": Print
    For i = 1 To n
         For j = 1 To n
             A(i, j) = Val(InputBox("Введите A(" & i & "," & j & ")", "Ввод данных", Int(Rnd * 99 + 1)))
             Print A(i, j),
         Next: Print
    Next: Print: Print "Ответ"
    
        For Each Otvet In A
            If Otvet Mod 2 = 0 Then Print Otvet,
        Next
End Sub

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


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

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

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