vb水仙花数
的有关信息介绍如下：Private Sub Command1_Click()
s = Val(InputBox("请输入一个三位整数"))
a = s Mod 10
b = s \ 10 Mod 10
c = s \ 100 Mod 10
If s = a ^ 3 + b ^ 3 + c ^ 3 Then
Print "是水仙花数"迹轮
Else
Print "不是水仙花数"
End If
End Sub
您的姿猜信兆笑采纳就是对我最大的支持
版权声明：文章由 好百科 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.haobaik.com/article/243165.html
