3、用VB编一程序,显示出所有的水仙花数。

发布网友发布时间：2024-03-26 23:58

共1个回答

热心网友时间：2024-03-28 12:42

Private Sub Command1_Click()
Dim i As Integer

For i = 100 To 999
If (i \ 100) ^ 3 + (i \ 10 Mod 10) ^ 3 + (i Mod 10) ^ 3 = i Then Print i
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com