求一个五位数是否为回文数

学习时间:2026-05-30 21:27:20 阅读：7816

求一个五位数是否为回文数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"!

提问回复

最佳回答

独特的白羊

2026-05-30 21:27:20



你的if只比较了第一位和最后一位就会输出一次答案,如果输入12341就会输出yesno输入12321也是输出yesno你的程序第一位可以判断正确,但当i 的值为2时就会出错。当输入a=12321left(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")loopFor i = 1 To 2If Mid(a,i,1) Mid(a,6 - i,1) Then Exit ForElsePrint "yes"Exit SubEnd IfNext iPrint "no"End Su

求一个五位数是否为回文数

最佳回答

最新回答共有2条回答

高大的鱼

热门文章

猜你喜欢