Question

这道VB题是编程求出所有水仙花数，并在窗体显示。

Private Sub command1_click()
Dim i As Integer, a As Integer, b As Integer
Dim c As Integer, st As String
For i = 100 To 999
a = i \ 100
b = (i Mod 100) \ 10
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then
st = i & " = " & a & "^3 + " & b & "^3 +" & c & "^3"
List1.AddItem st
End If
Next i
End Sub
所谓水仙花数，是指一个三位数，其个位数字的立方和等于该数本身。如153=1^3+5^3+3^3，程序界面自己设定。我做的时候出现错实时错误“424”，请高手指出错误的地方告诉我，谢谢。

Answer 1

在窗体上加一个listbox控件