vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 05:15:07
![vb程序设计,找出所有三位数中,能同时被3和7整除.找出所有三位数中,能同时被3和7整除,且个位,十位,百位上的数码之和等于18的数据,将这些数据以每行5个的形式输出,并求出满足条件的数据个](/uploads/image/z/1138549-13-9.jpg?t=vb%E7%A8%8B%E5%BA%8F%E8%AE%BE%E8%AE%A1%2C%E6%89%BE%E5%87%BA%E6%89%80%E6%9C%89%E4%B8%89%E4%BD%8D%E6%95%B0%E4%B8%AD%2C%E8%83%BD%E5%90%8C%E6%97%B6%E8%A2%AB3%E5%92%8C7%E6%95%B4%E9%99%A4.%E6%89%BE%E5%87%BA%E6%89%80%E6%9C%89%E4%B8%89%E4%BD%8D%E6%95%B0%E4%B8%AD%2C%E8%83%BD%E5%90%8C%E6%97%B6%E8%A2%AB3%E5%92%8C7%E6%95%B4%E9%99%A4%2C%E4%B8%94%E4%B8%AA%E4%BD%8D%2C%E5%8D%81%E4%BD%8D%2C%E7%99%BE%E4%BD%8D%E4%B8%8A%E7%9A%84%E6%95%B0%E7%A0%81%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8E18%E7%9A%84%E6%95%B0%E6%8D%AE%2C%E5%B0%86%E8%BF%99%E4%BA%9B%E6%95%B0%E6%8D%AE%E4%BB%A5%E6%AF%8F%E8%A1%8C5%E4%B8%AA%E7%9A%84%E5%BD%A2%E5%BC%8F%E8%BE%93%E5%87%BA%2C%E5%B9%B6%E6%B1%82%E5%87%BA%E6%BB%A1%E8%B6%B3%E6%9D%A1%E4%BB%B6%E7%9A%84%E6%95%B0%E6%8D%AE%E4%B8%AA)
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