VB水仙花数求教

Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)

For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then
MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a

End Sub

FORTRAN的"水仙花数"实现代码：

WRITE(*,30)

DO 10 K=100,999

IA=K/100

IB=MOD(K,100)/10

IC=MOD(K,10)

IF(K.NE.IA**3+IB**3+IC**3) GOTO 10

WRITE(*,20)K, IA,IB,IC

10 CONTINUE

20 FORMAT(5X,4I4)

30 FORMAT(5X,18HN=I**3+J**3+K**3)

STOP

END

private sub command1_click
select case text1.text
case <0
label1.caption= "输入的数小于0"
case =0
label1.caption= "输入的数=0"
case >0
label1.caption= "输入的数大于0"
end select
end sub

自己改一下条件就可以了.
你问题提的不好,没说明白到底判断的条件是什么,我们又不是神仙怎么会知道????