首页>资讯 > 正文

求水仙花数的vb程序(vb水仙花数编程) 全球微头条

2023-06-10 19:18:35来源:互联网


(相关资料图)

导读 来为大家解答以上的问题。求水仙花数的vb程序,vb水仙花数编程这个很多人还不知道,现在让我们一起来看看吧!1、Private Sub C...

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。

本文到此分享完毕,希望对大家有所帮助。

关键词:

责任编辑:

免责声明

头条新闻

精彩推送

新闻推送