从2到100000有多少回文数？

一位数：8个
二位数：9个
三位数：10 * 9 = 90个(十位有10种可能，百位和个位有9种可能)
四位数：10 * 9 = 90个(百位和十位有10种可能，千位和个位有9种可能)
五位数：10 * 10 * 9 = 900个(百位有10种可能，千位和十位有10种可能，万位和个位有9种可能)

共1097个

Sub counthui()
shuliang = 0

For i = 2 To 100000

huiwen = 1
For j = 1 To (Len(i) - (Len(i) Mod 2)) / 2
If Mid(i, j, 1) <> Mid(i, Len(i) + 1 - j, 1) Then huiwen = 0: Exit For
Next j
shuliang = shuliang + huiwen
'If huiwen = 1 Then MsgBox i & "为回文，到" & i & "共" & shuliang & "个。"
Next i

MsgBox "到" & i - 1 & "共回文" & shuliang & "个。"

End Sub

1097的没有错的干活。。