Найти все элементы массива, кратные 3 или 5 - VB (171250)
Формулировка задачи:
Всем салам!
Помогите решить
Целочисленный массив имеет размерность 20.
Заполнить массив тремя способами:
1. Задать присвоением
2. Вводом с клавиатуры
3. Случайным образом целыми числами в интервале от 15 до 50
Найти все элементы массива, кратные 3 или 5
Решение задачи: «Найти все элементы массива, кратные 3 или 5»
textual
Листинг программы
Sub Main() Dim A() I = InputBox("Способ заполнения:" & vbCrLf & "0 - Задается присвоением" & vbCrLf & "1 - Вводом с клавиатуры" & vbCrLf & "2 - Случайными числами") Select Case I Case 0 'Задать присвоением A = Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34) Case 1 'Вводом с клавиатуры ReDim A(19) For N = 0 To 19 A(N) = InputBox("Введите " & N + 1 & " число:") Next N Case 2 'Случайным образом целыми числами в интервале от 15 до 50 Randomize Timer ReDim A(19) For N = 0 To 19 A(N) = Int(Rnd * 35) + 15 Next N End Select Debug.Print "Числа кратные 3 или 5" For N = 0 To 19 If A(N) Mod 3 = 0 Or A(N) Mod 5 = 0 Then Debug.Print A(N) End If Next N End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д