VB水仙花数

供稿:hz-xin.com     日期:2025-01-18
vb水仙花数

Private Sub Form_Click()
Dim q As Integer
Dim b As Integer
Dim s As Integer
Dim n As Integer

For n = 100 To 999
q = n \ 100
'求出百位数字
b = (n - q * 100) \ 10
'求出十位数字
s = n Mod 10
'求出个位数字

If ((q * q * q + b * b * b + s * s * s) = n) Then
Print n
End If
Next

End Sub

很简单的 新建一个 默认按钮 Command1
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, i As Integer
For i = 100 To 999
a = Int(i / 100)
b = Int(i / 10 - a * 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Print i
Next i
End Sub

改为

Private Sub Command1_Click()
Dim x%, y%, z%, s%, i%, sum As Single
Print "水仙花数为:"
sum = 0
i = 0
For x = 1 To 9
For y = 0 To 9
For z = 0 To 9
s = x * 100 + y * 10 + z
If s = x ^ 3 + y ^ 3 + z ^ 3 Then
sum = sum + s
i = i + 1
Print s,
If i Mod 3 = 0 Then
Print
End If
End If
Next z
Next y
Next x
Print
Print "平均数为" & sum / i
End Sub


改为

Private Sub Command1_Click()
Dim x%, y%, z%, s%, i%, sum As Single
Print "水仙花数为:"
sum = 0
i = 0
For x = 1 To 9
For y = 0 To 9
For z = 0 To 9
s = x * 100 + y * 10 + z
If s = x ^ 3 + y ^ 3 + z ^ 3 Then
sum = sum + s
i = i + 1
Print s,
If i Mod 3 = 0 Then
Print
End If
End If
Next z
Next y
Next x
Print
Print "平均数为" & sum / i
End Sub


Private Sub Command1_Click()
Dim i%, a%, b%, c%
For i = 100 To 999
a = Val(Left(i, 1))
b = Val(Mid(i, 2, 1))
c = Val(Right(i, 1))
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Picture1.Print i
Next
End Sub

水仙花数有哪几个呢?
水仙花数一共有四个,即153,370,371,407。严格来说3位数的3次幂数才称为水仙花数。位数更多的有其他相应的称呼,具体如下:四位的四叶玫瑰数共有3个:1634,8208,9474;五位的五角星数共有3个:54748,92727,93084;六位的六合数只有1个:548834;七位的北斗七星数共有4个:1741725,4210818,...

水仙花数是什么意思?
4. 水仙花数的个数和位数有关。在十进制中,目前已知最大的水仙花数是一个十二位数,具体为115,132,219,018,763,992,565,095,597,973,971,522,401。5. 寻找水仙花数通常被视为一种数学游戏,它吸引了很多人探索数字的奥秘。

水仙花数有哪些
经过计算,我们可以得到以下水仙花数:153、370、371、407 这四个数都是三位数,且各位数字的立方和等于该数本身。其中,153是最小的水仙花数,而407是最大的水仙花数。除了三位数的水仙花数,还有其他位数的水仙花数。例如,四位数的水仙花数有8208、9474等;五位数的水仙花数有54748、92727等;六位数...

水仙花数是什么数字?
所谓的“水仙花数”是指一个三位数其各位数字的立方和等于该数本身,例如153是“水仙花数”,因为:153 = 1^3 + 5^3+ 3^3 。下面是完整的C语言编程代码:运行结果:result is:153 370 371 407

水仙花数是什么意思?
水仙花数是指一种三位数,其各个数之立方和等于该数。水仙花数共有4个,分别为:153、370、371、407 (例如:1^3 + 5^3 + 3^3 = 153 )C语言的"水仙花数"实现代码:void main(){ int ge,shi,bai,number;for(number=100;number<1000;number++){ bai=number\/100;shi=(number%100)\/10;ge...

水仙花数
水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身。(例如:1^3 + 5^3 + 3^3 = 153)100~999之间的水仙花数:153,370,371,407

什么是水仙花数?!
水仙花数,是一种特殊的数。以三位数为例,如果这个数的百位数的立方加上十位数的立方再加上个位数的立方等于这个数本身,那么这个数就可以称之为水仙花数。例如,一个三位数abc,如果满足a3 + b3 + c3 = abc,那么abc就是水仙花数。那么,为什么这种数会被命名为“水仙花”呢?水仙花是一种非常...

什么是水仙花数?
1、水仙花数是一个三位数,它的各位数字的立方和等于它本身。例如,153就是一个水仙花数,因为1的三次幂加上5的三次幂再加上3的三次幂等于153。2、要判断一个数是否为水仙花数,需要将这个数的个位、十位、百位分别拆分,并计算它们的立方和。如果立方和等于原数,则这个数是水仙花数。3、水仙花数...

水仙花有多少个数字?
1. 水仙花数是一个N位非负整数,其各位数字的N次方和等于该数本身。2. 水仙花数也被称为超完全数字不变数、自恋数、自唤兄幂数、磨链败阿姆斯壮数或阿姆斯特朗数。3. 在十进制中,共有89个水仙花数。4. 相关资料可以参考水仙花数的百度百科。

什么是水仙花数?
一、水仙花数,亦称超完全数字不变数、自恋数、自幂数、阿姆斯壮数或阿姆斯特朗数,是指一个三位数,其每个位上的数字的立方和等于它本身。例如,153就是一个水仙花数,因为1^3 + 5^3 + 3^3 = 153。二、求解100至100,000以内所有水仙花数的问题可以通过以下步骤解决:1. 使用for循环遍历100至100...