Question

帮忙写个简单的VB代码，谢谢啦

在窗体输出所有3位水仙花数。水仙花数十指一个N位数（N>=3）,他的每位上的数字的N次幂之和等于它本身。

Answer 1

Private Sub Form_Click()
Dim x As Integer, y As Integer, z As Integer, 水仙花数 As Integer
For x = 1 To 9
For y = 0 To 9
For z = 0 To 9
水仙花数 = x * 100 + y * 10 + z
If 水仙花数 = x ^ 3 + y ^ 3 + z ^ 3 Then
Print 水仙花数
End If
Next
Next
Next
End Sub

Answer 2

所有就是 已经有的 + 现在的
text1= text1.text & N

可以用换行 vbcrlf
用空格 spn( 空格数）

Answer 3

三位数水仙花数,如图

追问

N=100*Z+10*Y+X 如果X^3+Y^3+Z^3=N，则输出N，输出所有啊，不用输入啊，求代码，谢谢