vb程序设计,找出所有三位数中,能同时被3和7整除.

来源：学生作业帮编辑：灵鹊做题网作业帮分类：数学作业时间：2024/05/26 12:02:24

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 Su

vb程序设计,找出所有三位数中,能同时被3和7整除. VB程序设计：求100-200间能被3整除、不能被7整除的数的和. 在所有的三位数中有很多数能同时被2 5 3 整除那么不能同时被 2 5 3 整除的三位数的和是多少要换角度想从2、3、5、7四个数中任选三个数,组成能同时被3和25整除的三位数 ,这样的三位数是程序设计题目求10到1000内所有能被7和9中至少一个数整除的整数之个数 vf程序设计题求1到100间能同时被2和3整除的数的和 vb程序找出1到1999之间同时被3和7整除的,个位数3的数,同时统计其个数 5、4、3组成的两位数和三位数中,能同时被3、5整除的数有哪些? 在三位数中,能同时被2、3、5整除的数一共有（）个,和是（）输出两位数中所有能同时被3和5整除的数. vb中通过inputbox输入一个整数后,判断此数能同时被3和5整除,还是只被其中之一整除计算从1到13270之间所有的能同时整除3,7,9的整数的和 vb 作的