导读： 今天来聊聊关于四位数的水仙花数代码，水仙花数vb代码的文章，现在就为大家来简单介绍下四位数的水仙花数代码，水仙花数vb代码，希望对各位...
今天来聊聊关于四位数的水仙花数代码，水仙花数vb代码的文章，现在就为大家来简单介绍下四位数的水仙花数代码，水仙花数vb代码，希望对各位小伙伴们有所帮助。
1、错的不是这条语句，而是其他的，而且错得离谱。
2、下面是正确的： Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer, st As String For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 i = a * 100 + b * 10 + c If i = a ^ 3 + b ^ 3 + c ^ 3 Then st = i & " = " & a & "^3 + " & b & "^3 + " & c & "^3" List1.AddItem st End If Next c Next b Next a End Sub。
相信通过水仙花数vb代码这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。