1到6位数的回文数有多少个

一位数：因为只有一位，正、反自然相同，所以都是回文数，即有9个；
二位数：显然只有在两数相同时才是回文数，所以也有9个；
三位数：只要百位与个位相同，中间十位上任意，所以有9*10=90个；
四位数：需要千位与个位相同，同时百位与十位也相同，所以有9*10=90个；
五位数：需要万位与个位相同，同时千位与十位也相同，百位任意，所以有9*10*10=900个；
六位数：需要十万位与个位相同，同时万位与十位也相同，千位与百位也相同，所以有9*10*10=900个；
全部共有：9*2+90*2+900*2=1998个。

1到6位数的回文数有1638个一位数 有9个两位数 有9个三位数 有9*9=81个四位数 有9*9=81个五位数 有9*9*9=729个六位数 有9*9*9=729个

你的if只比较了第一位和最后一位就会输出一次答案，输入12341就会输出
yes
no
输入12321也是输出
yes
no
你的程序第一位可以判断正确，但当i 的值为2时就会出错。当输入a=12321
left(a,2)=12而right(a,2)=21 很明显他们不相等。

你可以这样写

Private Sub Form_Click()

a = InputBox("1")
do while len(a)<>5 '输入不是5位数就重新输入
msgbox "请输入一个5位数!"
a=inputbox("1")
loop
For i = 1 To 2
If Mid(a, i, 1) <> Mid(a, 6 - i, 1) Then
Exit For
Else
Print "yes"
Exit Sub
End If
Next i
Print "no"
End Sub当然，步痕旅游网想法：Private Sub Form_Click()

a = InputBox("1")
Print a
sl = Len(a)
For i = 1 To 2
If Left(a, i) <> Right(a, i) Then
Print "no"
Exit For
End If
Next
if i=3 then print "ysees"
End