求出能被各位数字之和整除的所有三位数爱问知识人

求出能被各位数字之和整除的所有三位数。

提交回答

好评回答

Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
If i Mod (Val(Mid(i, 1, 1)) + Val(Mid(i, 2, 1)) + Val(Mid(i, 3, 1))) = 0 Then
Debug.Print i
End If
Next i
End Sub

1***

2005-11-01 01:28:23

66 7 评论

提交评论

其他答案

trythis的回答要修改一下，否则如果超过三位数就会出错
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
这行要修改: If i Mod (int(i/100) + int((i-int(i/100))/10) + int(i-(int(i/100) + int(i-int(i/100)/10)))) = 0 Then
Debug.Print i
End If
Next i
End Sub

S***

2005-11-02 10:37:23

54 10 评论

提交评论

类似问题

换一换

1

问：4、5这六个数字能组成多少个被3整除的三位数

答：能被3整除的三位数他的个、十、百位数之和定能被3整除，这样的数组有（1、2、3）组成三位数有6种 (2、3、4）组成三位数有6种（3、4、5）组成三位数有6...详情>>
2 其中能被3整除的三位数的和是多少从1？回答2
3 一个百位数字是4的3位数，加上9以后能被7整除，减去7后能被...回答2
4 5.7中选出三个数字能排成多少个三位数，其中能被5整除的三位...回答2
5 整除的三位数，这样的三位数有几个，是哪几个。回答2
1

问：只要看这个数的各位数字的和能不能被3整除，这是为什么？

答：解：设三位数的百十个位分别为a、b、c，这个三位数为：100a 10b c 若：a b c=3n（n为正整数），即（a b c）/3=n 亦a b c能被3...详情>>
2 4、5这六个数字能组成多少个被3整除的三位数回答2
3 这是为什么?一个三位数能不能被3整除？回答2
4 求出能被各位数字之和整除的所有三位数。回答2
5 只要看这个数的各位数字的和能不能被3整除，这是为什么？回答2
1

问：所得到的数与原三位数之差能被99整除？

答：记三位数为:zyx 答案不唯一:只要满足(1)、z-x=n（n为正整数） (2)、y在0~9中任意取一数即可。如351 （其中 n=3-1=2），（35...详情>>
2 这是为什么?一个三位数能不能被3整除？回答2
3 从1357中任取3个数字组成没有重复数字的三位数回答2
4 初二数学如果一个三位数的三个数字分别为a,b,c，且（a+b...回答2
5 初二数学如果一个三位数的三个数字分别为a,b,c，且（a+b...回答2
1

问：用012345组成无重复数字的三位数

答：详情>>
2 从0.1.2.3.4中任选三个数，它们当中能同时被2和5整除...回答2
3 从0到9这10个数字中任取3个数字组成一个没有重复数字的三位...回答2
4 问大家一道数学题，谢谢回答2
5 其中能被3整除的三位数的和是多少从1？回答2
1

问：这是为什么？一个三位数能不能被3整除？

答：详情>>
2 从0、1、3、5这四个数字当中选出三个数字组成一个同时能被2...回答2
3 这是为什么？一个三位数能不能被3整除？回答2
4 这是为什么？一个三位数能不能被3整除？回答2
5 从1,2，...，9这9个数字中，每次取出3个不同的数字组成...回答2
1

问：求出能被各位数字之和整除的所有三位数。

答：详情>>
2 从0到9这十个数字中任取3个数字组成一个没有重复的三位数,这...回答2
3 （20n3?成都模拟）一个三位数各位数字之和是n一，又能被3...回答2
4 这是为什么？一个三位数能不能被3整除？回答2
5 所得的数与原三位数之差能被99整除吗？回答2

VB 相关知识
电脑网络技术
电脑网络

1

问：线性链表和线性表有什么区别

答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
2 vb中数组元素最大能多少回答2
3 哪些食物中含VB较多啊？回答1
4 关于数据传递回答3
5 如何做模糊查询回答2

1

问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...

答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
7 VB中如何修改多个EXCEL文件名回答1
8 VB中怎么锁定msgbox的位置回答1
9 在VB中如何在一个窗体中调用另外一个窗体？回答2
10 急需vb编程求100以内所有奇数和及所有偶数和回答3

1

问: 311纳米窄谱UVB

答: 对于311纳米窄谱UVB一定要重视，你提到311纳米窄谱UVB为你解答如下。您好，关于产品的问题，不便于评论，具体问题请咨询相关人员。关天纳米产品的以上说法，都...详情>>
2 执行下列程序，单击窗体，则在窗体上显示的是？回答4
3 VB中复选标记怎么设置回答1
4 用VB求1到N的平方和，其中N的值由自己给定。要求使用for....next 语... 回答1
5 请帮忙检查这段VBScript的错误回答2

求出能被各位数字之和整除的所有三位数。

求出能被各位数字之和整除的所有三位数。

全部

其他答案

类似问题

VB 相关知识

相关推荐

世界上海鸟多少种国内海鸟多少种

无锡有哪些大学?

开奶茶店需要什么

怎样管理好一个班？

笔记本电脑永远是解决笔记本故障的卡片屏幕...

xp电脑显示屏调节屏幕亮度怎么调节_XP...

计算机不能重新启动所有时间重新启动如何解...

如果笔记本不能上网，我该怎么办

现在移民需要多少钱(留学移民要多少钱)

高迪安集团公司的实力怎么样？

有人了解高迪安集团这个公司吗？

高迪安集团旗下的人工智能产业发展好吗？

高迪安这个公司现在旗下现在主要有哪些产业...

高迪安之前开发的第一个新房是哪个楼盘？

热点检索

确定举报此问题

求出能被各位数字之和整除的所有三位数。

求出能被各位数字之和整除的所有三位数。 全部

其他答案 if(window.executeBaiduJs){ if(typeof(contingency) != "undefined" && contingency == "contingencyBd"){ var cpro_id = "u2022717"; document.write('<script type="text/javascript" src="https://cpro.baidustatic.com/cpro/ui/c.js"></scr'+'ipt>'); }else{ } }

类似问题

VB 相关知识

相关推荐

热点检索

确定举报此问题

求出能被各位数字之和整除的所有三位数。

全部

其他答案