用VB如何做出水仙花数？

For i = 100 To 999
abc = a ^ 3 + b ^ 3 + c ^ 3
a = i \ 100
b = (i Mod 100) \ 10
c = i \ 10

接下来要怎么写呢？

如果有错麻烦改下/。。谢谢

你的程序写得有点问题，水仙花数这个以前就有很多人问过，找下以前的贴子就好。

把程序改成如下：

For i = 100 To 999
a = i \ 100
b = i \ 10 Mod 10
c = i Mod 10
abc = a ^ 3 + b ^ 3 + c ^ 3
if abc = i then Print i
next i

For i = 100 To 999 a = i \ 100 b = (i Mod 100) \ 10 c = i Mod 10 if i = a ^ 3 + b ^ 3 + c ^ 3 then msgbox i next

你要先计算出a b c 然后再去计算abc啊 vb语法不会但是大概就是这么写 你看看 For i = 100 To 999 a = i \ 100 b = (i Mod 10) \ 10 c = i Mod 10 abc = a ^ 3 + b ^ 3 + c ^ 3 if(abc==i)输出

Private Sub Form_Activate() Dim i For i = 100 To 999 If i = (i \ 100) ^ 3 + ((i Mod 100) \ 10) ^ 3 + (i Mod 10) ^ 3 Then Print i Next End Sub