求一个五位数是否为回文数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 Else Print "yes" End If Next End Sub 请问错在哪里? 谢谢!niuxiaojia45 你的答案我复制上去 可是运行的时候无论输入什么都打印出"yes"!
问题描述：
求一个五位数是否为回文数
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
Else
Print "yes"
End If
Next
End Sub
请问错在哪里? 谢谢!
niuxiaojia45 你的答案我复制上去 可是运行的时候无论输入什么都打印出"yes"!
答
你的if只比较了第一位和最后一位就会输出一次答案,如果输入12341就会输出yesno输入12321也是输出yesno你的程序第一位可以判断正确,但当i 的值为2时就会出错.当输入a=12321left(a,2)=12而right(a,2)=21 很明显他们不...