Вывести все натуральные числа из интервала от 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
                        

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

15 голосов , оценка 4.4 из 5

Похожие ответы