Question

Vb程序题 水仙花数 把下列程序补充完整 求大佬

Vb程序题 水仙花数 把下列程序补充完整 求大佬Private sub form_click()
X=val(input box("请输入一个数:"))
N=len(trim(str(x)))
Y=X
S=0
For i =1 to _____
A= Y mod 10
______
______
Next i
If ______ then
Print x:"是水仙花数！"
Else
Print x :"不是水仙花数！"
End if
End sub

Answer 1

追问

原题是这样的

看的清吗

第二个空有四个选项是 S=S+A/S=S+A^3/S=S+A^N/S=S*10+A

追答

看不清

追问

发了 第二个空有四个选项

然后根据这样 下面该怎么填

追答

第二个空
S=S+A^N 这个是取各个位上的数的立方和
第三个空
Y=Y\10 移除最后一位
第四个空
S=x 判断各个位上的数的立方和是否等于它本身

追问

蟹蟹