利用VBscript编程，计算并输出100-999的水仙花数

利用vbscript编程，计算并输出100-999之间的水仙花数

r=""
for i=100 to 999
    a=i\100
    b=(i\10)mod 10
    c=i mod 10
    n=a^3 + b^3 + c^3
    if i = n Then  
        r=r &  i &  " "
    end if 
next 

MsgBox r