用VB编写：找出所有的“水仙花数”。 “水仙花数”是指一个三位数，其各位数字的立方和等于该数本身 vb三位数的水仙花数

VB：用调用函数的方法找出所有三位数的水仙花数. Private Sub Command1_Click()Dim a As IntegerFor a=101 To 999 Step 1If isnum(a)=True Then Print a；NextEnd SubPrivate Function isnum(n As Integer)As BooleanDim a As Integer，b As Integer，c As Integera=n \\ 100b=(n-a*100)\\ 10c=n-a*100-b*10If n=a^3+b^3+c^3 Thenisnum=TrueElseisnum=FalseEnd IfEnd Function

用VB求三位数的水仙花数 Private Sub Command1_Click()Dim a%，b%，sum As Integer，c As String For a=100 To 999 c=CStr(a)sum=0 For b=1 To 3 sum=sum+Val(Mid(c，b，1))^3 Next b If sum=a Then 。

VB 输入1000以内 水仙花数(即三位数，各位数字立方和等于该数)我用TEXT输出结果，却只显示一行，为什么？ Text1.Text=S 这句该改为Text1.Text=Text1.Text&\"\"

#水仙花数