(资料图)
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。
本文就为大家分享到这里，希望看了会喜欢。
关键词：
-
打通“生命通道”！拱墅区开展排查“消堵”打通“生命通道”！拱墅区开展排查“消堵”杭州网发布时间：2023-08-21 -
斯巴鲁VIZIV肾上腺素概念车在日内瓦首次亮相前进行预览斯巴鲁的新概念车将在下个月的2020日内瓦车展上亮相，有可能预览下一代 -
山东好景丨感受“海上仙山缥缈间”的美妙意境蓬莱有“人间仙境”之称，“海上仙山”的美誉更是声名远播。初秋时节来 -
注意！花园生物将于9月7日召开股东大会花园生物（SZ300401，收盘价：11 18元）8月22日发布公告称，2023年9月7 -
“最热”暑期档 重庆旅游玩出新花样今年暑期，旅游市场到底有多火？中国旅游研究院发布的《2023年上半年旅
-
打通“生命通道”！拱墅区开展排查“消堵”
2023-08-23 17:42:29
-
斯巴鲁VIZIV肾上腺素概念车在日内瓦首次亮相前进行预览
2023-08-23 17:42:59
-
山东好景丨感受“海上仙山缥缈间”的美妙意境
2023-08-23 17:41:24
-
注意！花园生物将于9月7日召开股东大会
2023-08-23 17:31:29
-
“最热”暑期档 重庆旅游玩出新花样
2023-08-23 17:42:33
即时推荐
营业执照公示信息