输出100~999之间的回文数，怎么用VB实现啊。

Private Sub Command1_Click()
Dim n!, i!, m!, w!
w = 0
For i = 100 To 999
m = i - i \ 100
n = m Mod 10
    If n = 0 Then Print i;: w = w + 1
        If w = 10 Then Print: w = 0
Next i
End Sub
刚刚想出来~贼高兴了~