这一类问题可以采用枚举的方法来实现：
枚举算法的特点8个字,一一列举,逐个检验：
往往外面用循环来实现一一列举,在循环中嵌套选择,来实现逐个检验；
dim i as integer
for i = 100 To 999
选择结构实现检验
next i
检验实现如下：
a = i 100 '获得该三位数的百位数字
b = (i 10) Mod 10 '获得该三位数的十位数字
c = i mod 10 '获得该三位数的个位数字
If i Mod 3 = 0 And i Mod 7 = 0 And a+b+c=18 Then
这个i就是满足条件的三位数了
End If
整个程序代码：
Option Explicit
Private Sub Command1_Click()
Dim i As Integer '三位数
Dim a As Integer '三位数的百位
Dim b As Integer '三位数的十位
Dim c As Integer '三位数的个位
Dim n As Integer '满足条件的个数
n = 0
For i = 100 To 999
a = i 100 '获得该三位数的百位数字
b = (i 10) Mod 10 '获得该三位数的十位数字
c = i Mod 10 '获得该三位数的个位数字
If i Mod 3 = 0 And i Mod 7 = 0 And a + b + c = 18 Then
Print i,'输出1个找到的数,但是不换行（注意这个逗号就是不换行）
n = n + 1 '找到一个,就在n里增加1
If n Mod 5 = 0 Then Print '如果n是5的倍数,就换行
End If
Next i
Print "有：" & n & "个三位数满足条件."
End Su