水仙花数的程序怎么写啊?

Private Sub Form_Click()
Dim a,b,c ,x As Integer
For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
x=100 * c + 10 * b + a
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then print x;
Next c
Next b
Next a
这是用vb编的 我只学了这个
俺觉得最好讲清楚是哪一种的.于人于己都方便