当前位置: 首页 > 画廊

水仙花数vb程序(vb水仙花数编程)

发布时间:2023-08-23 07:53:36 来源:互联网


(资料图片)

1、Private Sub Command1_Click()Dim s%, s1%, s2%, t%For s = 100 To 1000s2 = 0t = sDo While t > 0s1 = t Mod 10t = t 10s2 = s2 + s1 ^ 3LoopIf s = s2 ThenPrint "水仙花数为:"; sEnd IfNext sEnd Sub。

本文就为大家分享到这里,希望看了会喜欢。

关键词:

Copyright   2015-2022 艺术头条网 版权所有  备案号:沪ICP备2022005074号-20   联系邮箱:58 55 97 3@qq.com