Вывести все натуральные числа из интервала от A до B, которые не делятся ни на 2, ни на 3, ни на 4 - VB
Формулировка задачи:
Уважаемые господа Программисты, помогите пожалуйста с задачками!
1. Вывести все натуральные числа из интервала от A до B, которые не делятся ни на 2, ни на 3, ни на 4.
2. Нужно генерировать случайные целые натуральные однозначные числа до тех пор, пока подряд не выпадут два одинаковых числа.
Решение задачи: «Вывести все натуральные числа из интервала от A до B, которые не делятся ни на 2, ни на 3, ни на 4»
textual
Листинг программы
- Private Sub Комманда2_Click()
- Dim i As Integer
- Dim J As Integer
- Dim S As String
- Randomize
- Do
- J = Int(9 * Rnd) + 1
- If J = i Then Exit Do
- S = IIf(S = "", J, S & "; " & J)
- i = J
- Loop
- MsgBox "ВОТ " & vbCrLf & S & vbCrLf _
- & "и выпало снова " & J, 64, "Итог"
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
