神马作文网找出100~1000之内满足下列条件的数据,各位数字的立方和等于本数.如何用写VB程序代码
来源：学生作业帮 编辑：神马作文网作业帮 分类：数学作业 时间：2024/10/01 03:30:13
找出100~1000之内满足下列条件的数据,各位数字的立方和等于本数.如何用写VB程序代码
Public Sub t1()
Dim i,a,b,c,d As Integer
For i = 100 To 1000
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mod 10
d = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3 = i Then
Debug.Print i
End If
Next i
End Sub
运行结果：
153
370
371
407
Dim i,a,b,c,d As Integer
For i = 100 To 1000
a = i \ 1000
b = i \ 100 Mod 10
c = i \ 10 Mod 10
d = i Mod 10
If a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3 = i Then
Debug.Print i
End If
Next i
End Sub
运行结果：
153
370
371
407
找出100~1000之内满足下列条件的数据,各位数字的立方和等于本数.如何用写VB程序代码
找出各位数字的立方和等于它本身的数
(1/2)VB编程,如果一个三位整数等于其各位数字的立方和,则称这个数为水仙花数,如153=1^3+5...
vb编程 编写程序 找出给定范围内所有满足以下条件的整数 该整数的平方数的各位数字之和为素数
用java求1000之内所有的 “水仙花数 “,所谓 “水仙花数 “是指一个三位数,其各位数字立方和等于该数本身
求各位数字的立方和等于它本身的数
用Pascal编程求满足下列条件的三位数：该三位数等于它数字的立方和.
用C++编程 求1~10000之间所有满足各位数字的立方和等于它本身的的数
1． 编写Application程序,找出所有水仙花数,水仙花数是三位数,它的各位数字的立方和等于这三个数本身,
程序设计题 找出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数本身.例
C语言：从键盘读入一个整数Num,按从小到大的顺序依次输出所有满足条件的3位数：该数各位数字的立方和
如何用VB求两个数的最大公约数和最小公倍数?