用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身如153=1??+5??+3??

作业帮首页

扫码下载作业帮APP

用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身
如153=1??+5??+3??

扫码下载作业帮
搜索答疑一搜即得

Option Explicit
Private Sub command1_click()
Dim I As Integer, a As Integer, b As Integer, c As Integer
Dim st As String
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
I = a * 100 + b * 10 + c
If I = a ^ 3 + b ^ 3 + c ^ 3 Then
st = I & "=" & a & "^3+" & b & "^3+" & c & "^3"
List1.AddItem st
End If
Next c
Next b
Next a
End Sub

相关知识

《水仙花数》——————打印出所有的 “水仙花数 ”，所谓 “水仙花数 ”是指一个三位数，其各位数字立方和等于该数本身。
编程实现判断一个整数是否为“水仙花数”。所谓“水仙花数”是指一个三位的整数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=13＋53＋33。要求：用带有一个输入参数的函数(
输出所有的水仙花数,所谓水仙花数是指一个3位数,其各位数字立方和等于该数本身。例如,153是水仙花数,因为153=1*+5*+3
java基础判断一个数是不是水仙花数
C语言：输出所有的水仙花数
输出所有的“水仙花数”，所谓水仙花数是指一个3位数，其各位数字的立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1^3+2^3+3^3.
他是这样定义的： “水仙花数”是指一个三位数，它的各位数字的立方和等于其本身，比如：153=13+53+33。 现在要求输入一个三位数，判断该数是否是水仙花数，如果是，输出“yes”，否则输出“no”
玫瑰花数 一个四位数等于各位数字的四次方之和，则为玫瑰花数。如：1634=1*1*1*1+6*6*6*6+3*3*3*3+4*4*4*4
1027: 判断水仙花数春天是鲜花的季节，水仙花就是其中最迷人的代表，数学上有个水仙花数，他是这样定义的： “水仙花数”是指一个三位数，它的各位数字的立方和等于其本身，比如：153=13+53+33。
数学上有个水仙花数，他是这样定义的： “水仙花数”是指一个三位数，它的各位数字的立方和等于其本身，比如：153=1^3+5^3+3^3。 现在要求输出所有在m和n范围内的水仙花数。

网址: 用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身如153=1??+5??+3?? https://www.huajiangbk.com/newsview391205.html