Question

VB编程题在线求解 急！！！！！

寻找100~ 999之间的所有“水仙花数”，“水仙花数”是一个三位数，其中各位数字的立方和就等于该数本身。例如，153=13+53+33，则153是一个水仙花数
【编程要求】
1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2. 编写一个求各位数字的立方和的函数过程Sum
3. 单击“寻找水仙花数”按钮，调用Sum函数找出100~999间的所有“水仙花数”，并将这些“水仙花数”作为列表项按图所示存放到列表框List1中
4. 单击“清除”按钮，则将清除列表框List1中的所有列表项。
5. 单击“退出”按钮，结束程序运行。

Answer 1

function sum(x as integer) as boolean
    dim a as integer,b as integer,c as integer 
    a=x\100
    b=x\10-a*10
    c=x-(a*100+b*10)   
    sum=a*a*a+b*b*b+c*c*c=x 
end functio   

'寻找水仙花数按钮 
private sub command1_click()
    dim i as integer
    for i=100 to 999
        if sum(i) then list1.additem i
    next
end sub

'清除按钮
private sub command2_click()
    list1.clear             
end sub

'退出按钮
private sub command3_click()
    end
end sub

Answer 2

Function isnarc(p as integer)
x=Fix(p\100)
y=Fix(p-x*100)
z=p-x*100-y*10
if p=x^3+y^3+z^3 then
isnarc=true
else
isnarc=false
end if
end function
以上为判断是否为水仙花数
dim i as integer,sum as integer
for i=100 to 999
if sum (i) then
list1.additem i
next
end sub