Question

VB题：在窗体上以每行两个数的格式输出所有的“水仙花数。

所谓的水仙花数就是指该数个位数字的立方和等于该数本身

Answer 1

你得有个范围，数字无上限，水仙花数也无上限，vb不可能算出二十位，三十位name大的水仙花数
这个是算3位数的水仙花数
Private Sub Command1_Click()
Dim n As Integer, a As Integer, b As Integer, c As Integer
For i = 100 To 999 Step 1
a = i \ 100
b = (i - 100 * a) \ 10
c = i - 100 * a - 10 * b
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i;
n = n + 1
If n Mod 2 = 0 Then
Print
End If
End If
Next i
End Sub

追问

我运行了一下出来的都是407.。怎么回事儿？

追答

你确定是我的代码？？？

追问

 

你的代码可以。。那个。。可以告诉我我的代码哪儿错了么？

运行不出来。。也就只能出来一个407.。

追答

假如 i=145
str（i）=“ 145”
也就是在145的前边加了一个空格
所以
left（str（i），1）=“ ”
mid（str(i),2,1）=1
right(str(i),1)=5

Answer 2

代码如下：
Private Sub Command1_Click()
Dim i As Integer, t As Integer
t = 0
For i = 100 To 999
'个位的立方 + 十位的立方 + 百位的立方 = 该数本身
If (i Mod 10) ^ 3 + ((i \ 10) Mod 10) ^ 3 + (i \ 100) ^ 3 = i Then
If t = 0 Then
Print i;
t = 1
Else
Print i
t = 0
End If
End If
Next
End Sub

追问

运行不出来。。。你的代码。。