四位数的水仙花数代码 水仙花数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代码这篇文章能帮到你，在和好朋友分享的时候，也欢迎感兴趣小伙伴们一起来探讨。