作业帮vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 22:12:36
vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个
vb程序设计,找出所有三位数中,能同时被3和7整除.
找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个数
vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个
这一类问题可以采用枚举的方法来实现：
枚举算法的特点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
Print
Print "有：" & n & "个三位数满足条件."
End Sub