首页 >> 玩机圈社区 > 精选经验 >

Vb水仙号编程

2023-01-04 02:20:14 来源: 用户: 

您好,现在柳柳来为大家解答以上的问题。Vb水仙号编程相信很多小伙伴还不知道,现在让我们一起来看看吧!

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。

本文就为大家分享到这里,希望小伙伴们会喜欢。

  免责声明:本文由用户上传,与本网站立场无关。财经信息仅供读者参考,并不构成投资建议。投资者据此操作,风险自担。 如有侵权请联系删除!

 
分享:
最新文章
站长推荐