您的位置:首页 >动态频道 > 精选知识 >

vb中水仙花数代码(用VB编写水仙花数的代码)

导读 大家好,今天小六子来为大家解答以下的问题,关于vb中水仙花数代码,用VB编写水仙花数的代码这个很多人还不知道,现在让我们一起来看看吧!1

大家好,今天小六子来为大家解答以下的问题,关于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。

本文分享完毕,希望对你有所帮助。

免责声明:本文由用户上传,如有侵权请联系删除!