vb显示所有水仙花数用VB编写水仙花数的代码
xhjyxxw
帮助0人
大家好，今日小经来聊聊一篇关于vb显示所有水仙花数，用VB编写水仙花数的代码的文章，现在让我们往下看看吧！
1、列出100~999中的水仙花数及个数Private Sub Form_Click() Dim i, j, k, n As Integer For n = 100 To 999 i = n 100 j = n 10 - i * 10 k = n Mod 10 if n = i * i * i j * j * j k * k * k then Print n end if Next n End Sub。
本文到此分享完毕，希望对大家有所帮助。
这篇好文章是转载于：知行礼动
- 版权申明： 本站部分内容来自互联网，仅供学习及演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系，请提供相关证据及您的身份证明，我们将在收到邮件后48小时内删除。
- 本站站名： 知行礼动
- 本文地址： /news/detail/tanhbcgbbg
