Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = Val(TextBox1.Text)
Dim b As Integer
Dim sum As String = ""
Dim c As Integer
Dim d As Integer
For b = 10 ^ (a - 1) To (10 ^ a - 1)
d = 0
For c = 1 To a
d = Int(Mid(b, c, 1) ^ a + d)
Next
If d = b Then
sum = sum + " " + Str(b)
End If
Next b
Label1.Text = sum End Sub
End Class
请高手介绍下吧。

额，其实秋水仙花数很简单的一个程序代码呀。。。
看我的：
////////前面省略咯。。。
dim i as integer,n as integer
dim a as integer,b as integer,c as integer
n=0
for i=100 to 999
a=i mod 100
b=(i mod 10 )\10
c=i mod 10
if i=a^3+b^3+c^3 then
n=n+1
///////
endif
next
没了。。。打字好慢，就这样，不懂再qq我把。。。

那个是要求输入一个数字N，然后显示N位数中所有的水仙花数，例如，我输入3就显示百位所有水仙花数，求解释

应该可以把for i =1 to 999 中的999改为“10的n次方减1”，再在“n=n+1”前面写“print i”，我是新人，不知道对不对！看到“二维数组排矩形阵”一直没看懂怎么弄的！

http://zhidao.baidu.com/question/429889141.html#replyask-55152609
知道这杨解释的，你可以看看。谢谢你们咯

回复3楼:？？水仙数好像就是三位呀？不行添加一个inputbox呀