三个连续的四位自然数,最小的是19的倍数,中间的数是23的倍数,最大的数是29的倍数,求这三个连续的自然数

Question

三个连续的四位自然数,最小的是19的倍数,中间的数是23的倍数,最大的数是29的倍数,求这三个连续的自然数

Answer 1

Private Sub Command1_Click()
Dim flag As Boolean
x = 1000
While flag = False
If x Mod 19 = 0 And (x + 1) Mod 23 = 0 And (x + 2) Mod 27 = 0 Then
Print x; x + 1; x + 2;
flag = True
End If
x = x + 1
Wend
End Sub