4 位数的水仙花数怎么弄呢？

麻烦你了，嘿嘿！

'我不知道水仙数的定义，给你写个通用程序，4位数以上的就没有吧？
Private Sub Form_Activate()
Const N = 10000 '自己随便定义,这里是1-10000
Dim i, j, temp As String, sum As Long
For i = 1 To N
For j = 1 To Len(Str(i))
sum = sum + Val(Mid(Str(i), j, 1)) ^ 3
Next
If i = sum Then Print i
sum = 0
Next i
MsgBox "ok"
Unload Me
End Sub

没听说过有4位的水仙花数，所以写这个也没有意义，除非定义有所不同。

如果一定要写的话，也和3位数那个程序差不多。像下面这样：

For i = 1000 To 9999 a = i Mod 10 b = i \ 10 Mod 10 c = i \ 100 Mod 10 d = i \ 1000 If i = a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3 Then Print i End If Next i

什么语言呢?

VB ？？ 写了也是~~~~白 三位的给你了。也一样不采纳呀

采纳答案。也不看看！