求一个五位数是否为回文数
求一个五位数是否为回文数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-04-01 08:37:37
你的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条回答
-
2026-04-01 08:37:37高贵的小刺猬
回复你的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
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动，从释放开始计时，则物体在前2s内的平均速度为______m/s，物体下落2m时的速度大小为______m/s．
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解（二）设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡