龙腾世纪3瓶子贼打法:急求使用VB编写一段代码算蝴蝶数

Dim i, j, k, n As Integer
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
n = i * 100 + j * 10 + k
If n=i^3+j^3+k^3 And n<>0 Then
MsgBox(n)
End If
Next
Next
Next
在vb.net下调试成功。

自己调试一下就可以了。。。时间关系。我直接写在上面的。

Private Sub Command1_Click()
For i = 100 To 999
DoEvents
If i = CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) * CInt(Mid(CStr(i), 1, 1)) + CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) * CInt(Mid(CStr(i), 2, 1)) + CInt(Mid(CStr(i), 3, 1)) * CInt(Mid(CStr(i), 3, 1)) * CInt(Mid(CStr(i), 3, 1)) Then
Print i & "=" & Mid(CStr(i), 1, 1) & "^3 + " & Mid(CStr(i), 2, 1) & "^3 + " & Mid(CStr(i), 3, 1) & "^3 "
End If
Next i
End Sub