求一个五位数是否为回文数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 你的
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/24 03:11:29
求一个五位数是否为回文数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 你的
求一个五位数是否为回文数
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 你的
你的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