【例】“水仙花数”是指一个3位数，其各位数的立方和等于该数，如153=13+53+33，编写程序，打印出100～1000之间的所有水仙花数。
程序源码：
Option Explicit
Private Sub Form_Click()
Dim I As Integer, GeWei As Integer, ShiWei As Integer, BaiWei As Integer
For I = 101 To 999 ' 判断100～1000之间的所有水仙花数并打印在窗体上
GeWei = I Mod 10
ShiWei = (I Mod 100) \ 10
BaiWei = I \ 100
If I = GeWei ^ 3 + ShiWei ^ 3 + BaiWei ^ 3 Then Print I;
Next I
End Sub
运行结果：
153 370 371 407