Question

VB 代码 求水仙花数

Private Sub Command1_Click()
Dim i As Integer, a As Integer, b As Integer, c As Integer, st As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
i = a * 100 = b * 100 + c * 100
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
这个代码中st = i & "=" & a & " ^3 + " & b & " ^3 +" & c & "+3"有什么错误？

Answer 1

错的不是这条语句，而是其他的，而且错得离谱。下面是正确的：

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

追问

其实看到你的之后我发现原来我抄代码抄错了。哈。。谢谢

Answer 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

其实你的代码有点繁，这样即可：

Private Sub Command1_Click()
Dim I As Integer
For I = 100 To 999
If Val(Left(CStr(I), 1)) ^ 3 + Val(Mid(CStr(I), 2, 1)) ^ 3 + Val(Right(CStr(I), 1)) ^ 3 = I Then
List1.AddItem I
end if
Next I
End Sub

追问

看不懂。。。哈不过多谢了啊。。。

追答

!!

Answer 3

st应该定义为字符型 st as string 试试