找出三位数范围内所有回文数 VB程序

Private Sub Form_Click()
For i = 1 To 9
For j = 0 To 9
Print i * 100 + j * 10 + i;
Next j
Print
Next i
End Su