VB穷举法找水仙花数，最好能把所有代码发出来

VB穷举法找水仙花数，最好能把所有代码发出来

private sub command1_click(0 '产生
dim i,j,a as integer,b as boolean
randomize
for i=1 to 100
do
a=int(rnd*900)+100
b=false
for j=0 to list1.listcount-1
if a=val(list1.list(j) then b=true:exit for
next
loop while b
list1.additem a
next
end sub

private sub command2_click() '筛选
dim i as integer
for i=0 to list1.listcount-1
if isnum(val(i)) then list2.additem i
next
end sub

private sub command3_click()
unload me
end sub

Private Function isnum(n As Integer) As Boolean
Dim a As Integer, b As Integer, c As Integer
a = n \ 100
b = (n - a * 100) \ 10
c = n - a * 100 - b * 10
If n = a ^ 3 + b ^ 3 + c ^ 3 Then
isnum = True
Else
isnum = False
End If
End Function