Найти все элементы массива, кратные 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

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


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

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

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