vb代码的问题~~~谢谢

u 编写程序，找出1000以内的所有回文数，并统计1000以内所有回文数的个数。“回文数”是指从左到右看与从右到左看其值均一样的数。要求运行界面如图1-2所示：
Private Sub Form_Click()
n = 0
For k = 1 To 1000
a = ( 1 )
b = ""
For i = 1 To ( 2 )
b = ( 3 )
Next i
If a = b Then
n = n + 1
Print k;
If n Mod 10 = 0 Then Print
End If
Next k
Print
Print "n="; n
End Sub

添下括号中的代码 谢谢了~~~~

Private Sub Form_Click()
n = 0
For k = 1 To 1000
a = CStr(k)
b = ""
For i = 1 To Len(a)
b = Mid(a, i, 1) & b
Next i
If a = b Then
n = n + 1
Print k;
If n Mod 10 = 0 Then Print
End If
Next k
Print
Print "n="; n
End Sub

=======================================
其实有更好的方法 :

For i = 1 To 1000
If CStr(i) = StrReverse(i) Then
Print i;
n = n + 1
If n Mod 10 = 0 Then Print
End If
Next
Print
Print "n="; n

这是以前一个网友问的，我给他写的

Private Sub Form_Load()
Dim i As Integer, n As Integer, s As String

For i = 1 To 1000
s = i
If Mid(s, 1, 1) = Mid(s, Len(s), 1) Then
Text1.Text = Text1.Text & vbCrLf & i
n = n + 1
End If
Next i

Text1.Text = Text1.Text & vbCrLf & n
End Sub

(1): CStr(k)
(2): Len(a)
(3): b & Mid(a, Len(a) - i + 1, 1)