求水仙花数vb代码（水仙花数vb代码）

大家好,小讯来为大家解答以上的问题。求水仙花数vb代码，水仙花数vb代码这个很多人还不知道,现在让我们一起来看看吧！

1、这个是打印所有三位数的水仙花数的代码：Private Sub Command1_Click()For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then print a * 100 + b * 10 + c End If Next Next NextEnd Sub。

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