編寫壹個程序：試用單重循環結構編程實現，求出10個“韓信點兵數”。該數除以3余2，除以5余3，除以7余4。

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