VB编程，被6,9除余数为3的最小六个整数

更新时间：2019-11-03 05:24:30 148次访问

Private Sub Command1_Click()
Dim i As Integer, a As Integer
ct = 0
a = 1
While ct < 6
If a Mod 9 = 3 And a Mod 6 = 3 Then
Print a
ct = ct + 1
End If

a = a + 1
Wend
End Sub

6=2×3，所以能被6整除的数是一个能3整除的偶数，也就是一个各位数字之和能被3整除的偶数；

9=3×3，所以能被9整除的数是一个能3两次整除的数，也就是一个各位数字之和能被9整除的数；

所以要同时满足上述两个条件的整数只有满足各位数字之和能被9整除的偶数。

所以，被6,9除余数为3的最小六个整数：

2×9+3=21

4×9+3=39

6×9+3=57

8×9+3=75

10×9+3=93

12×9+3=111

14×9+3=129

123456789