关于VB实现水仙花数

来源：百度知道 编辑：UC知道 时间：2024/09/28 10:55:33
Private Sub Command1_Click()
For I = 1 To 10
For j = 1 To 10
For h = 1 To 10
'Sum前之和
'Ne_1 = I
'Ne_2 = j
'Ne_3 = h
'取字符串_总和
Sum_Ne = Int(I & j & h)
'进行abc的^3次
a = I * I * I
b = j * j * j
c = h * h * h
'总和abc
Sum = a + b + c
'判断
If Sum_Ne = Sum Then
Print I; "^3"; j; "^3"; h; "^3"; " ="; Sum
End If
Next h, j, I
End Sub

帮忙看一下这个是否符合题目意思?如果不符合请帮忙改下
题:编写程序求1000以内的水仙花数,水仙花数是指一个3位正整数,其各位数字的立方之和等于该数

Private Sub CmdGetNum_Click()
For I = 0 To 9
For j = 0 To 9
For h = 0 To 9
if i^3+j^3+h^3=100*i+10j+h then
print i + "^3" + "*" + j + "^3" + "*" + h + "^3" + " =" + 100*i+10j+h
end if
next h
next j
next i
end sub

Private Sub Command1_Click()
For I = 1 To 10
For j = 1 To 10
For h = 1 To 10
if i^3*j^3*h*3=100*i+10j+h then
print i;"^3";"*";j; "^3"; "*";h; "^3"; " ="; 100*i+10j+h
end if
next h
next j
next i
end sub