求用vb对这题进行编程的过程

参考答案补足自己决心不够坚强的方法，就是一再地重新下决心。--董显光

Private Sub Command1_Click()
Dim I As Integer
For I = 200 To 3000
If Len(CStr(I)) = 3 Then
If Left(CStr(I), 1) = Right(CStr(I), 1) Then
Form1.Print I
End If
ElseIf Len(Str(I)) = 4 Then
If Left(CStr(I), 1) = Right(CStr(I), 1) And Mid(Str(I), 2, 1) = Mid(Str(I), 3, 1) Then
Form1.Print I
End If
End If
Next
End Sub

Private Sub cmd202_Click()
Dim xN, xSum, m As Integer
Dim n As Long
xSum = 0
For xN = 200 To 1000
If Left(xN, 1) = Right(xN, 1) Then
xSum = xSum + xN
End If
Next
For xN = 1000 To 3000
If Left(xN, 1) = Right(xN, 1) And Left(xN, 2) = Right(xN, 2) Then
xSum = xSum + xN
End If
Next
MsgBox (xSum)
End Sub

输出结果为51373

楼上的同志们写的代码太复杂了,看得眼花缭乱的,其实没必要写那么多代码,简单的五行代码就搞定了!
Dim a%, b%
For b = 200 To 3000
If b = CInt(StrReverse(CStr(b))) Then a