x=thisform.text1. value
if not (x>=100 and x<=999 and x=int(x))
messagebox ("输入错误, 请重新输入")
else
a=int(x/100)
b=int((x%100)/10)
c=x%10
if x=a^3+b^3+c^3
thisform.label2.caption="该数是水仙花数!"
else
thisform.label2.caption="该数不是水仙花数!"
endif
endif