今天凤捷来为大家解答以上的问题。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。
今天为大家分享到这里，希望小伙伴们会有帮助。
标签：