Дана числовая последовательность целых чисел - VB
Формулировка задачи:
Дана числовая последовательность целых чисел, оканчивающаяся нулем элементов. Определить количество чисел, которые делятся на 7;
Решение задачи: «Дана числовая последовательность целых чисел»
textual
Листинг программы
Private Sub Command1_Click()
Dim N As Integer, kol As Integer, A As Integer, i As Integer
N = Val(InputBox(" N = "))
If N <= 0 Then Exit Sub
kol = 0
Randomize
For i = 0 To N - 1
A = Rnd() * 100
A = A * 10
Debug.Print A,
If A Mod 7 = 0 Then kol = kol + 1
Next i
Debug.Print
Debug.Print "Количество чисел, делящихся на 7 = " & kol
End Sub