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