图片来自：lygcw9602的百度相册

Input "三位数" to x
If len(allt(str(x)))=3
A=fix(x/100)
B=fix((x-A)/10)
C=x-A-B
If A^3 + B^3+ C^3 = x
?"是水仙花"
Else
?"不是"
Endif
Else
?"必须是三位数"
Endif

先把先把三位的数字依次取出来，再去判断

@1品带砖侍卫__ 思路是对的，函数用错了，应该用int()

&&网友@1品带砖侍卫__ 原创
&&本人@西楚打柴人 只是完善了一下
clear
Input "三位数" to x
If len(allt(str(x)))=3
A=int(x/100)
?A
B=int((x-A*100)/10)
?B
C=x-A*100-B*10
?C
If A^3 + B^3+ C^3 = x
?"是水仙花数"
Else
?"不是"
Endif
Else
?"必须是三位数"
Endif

&&本人@西楚打柴人 要是有机会能做一个电脑培训学校
&&机房的辅导员，一定将这个作为学习函数的案例来讲
&&解
clear
Input "三位数" to x
if len(allt(str(x)))=3
x1=(str(x))
A=left(allt(x1),1)
?"百位数："+A
B=substr(allt(x1),2,1)
?"十位数："+B
C=right(allt(x1),1)
?"个位数："+C
If val(A)^3 + val(B)^3+ val(C)^3 = x
?"是水仙花数"
Else
?"不是"
Endif
Else
?"必须是三位数"
Endif