求出10个韩信点兵数，该数除以3余2，除以5余3，除以7余4.

Question

求出10个韩信点兵数，该数除以3余2，除以5余3，除以7余4.

Answer 1

Private Sub Command1_Click()
js = 0: i = 0
Do
If (i Mod 3 = 2) And (i Mod 5 = 3) And (i Mod 7 = 4) Then js = js + 1: Print i
i = i + 1
Loop Until js > 10
End Sub