vb水仙花数 VB如何求水仙花数

用VB编写过程找出所有水仙花数所谓水仙花数是指一个三位数的整数其每一位上的数字立方和等于该数的本身 Option ExplicitPrivate Sub command1_click()Dim I As Integer，a As Integer，b As Integer，c As IntegerDim st As StringFor a=1 To 9For b=0 To 9For c=0 To 9I=a*100+b*10+cIf I=a^3+b^3+c^3 Thenst=I&\"=\"&a&\"^3+\"&b&\"^3+\"&c&\"^3List1.AddItem stEnd IfNext cNext bNext aEnd Sub

求vb水仙花数问题 改为 题目：设计程序，找出所有水仙花数。所谓水仙花数，是指一个3位数，其各位数字的立方和等于该数字本身。例如，153是一个水仙花数，因为153=13+53+33。。

VB水仙花数 Private Sub Command1_Click()Dim i%，a%，b%，c%For i=100 To 999a=Val(Left(i，1))b=Val(Mid(i，2，1))c=Val(Right(i，1))If i=a^3+b^3+c^3 Then Picture1.Print iNextEnd Sub

#vb找出水仙花数#vb水仙花数#用java求水仙花数#java统计水仙花数#java水仙花数