Private Sub Form_click() Dim i As Integer, n As Integer For i = 100 To 999 If Left(i, 1) = Right(i, 1) Then Print i; n = n + 1 If n Mod 10 = 0 Then Print End If NextEnd Sub
你回文数会输出吧?