求一个五位数是否为回文数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/06/28 04:24:23
![求一个五位数是否为回文数Private Sub Form_Click() a = InputBox(](/uploads/image/z/1330536-48-6.jpg?t=%E6%B1%82%E4%B8%80%E4%B8%AA%E4%BA%94%E4%BD%8D%E6%95%B0%E6%98%AF%E5%90%A6%E4%B8%BA%E5%9B%9E%E6%96%87%E6%95%B0Private+Sub+Form_Click%28%29+a+%3D+InputBox%28%221%22%29+Print+a+sl+%3D+Len%28a%29+For+i+%3D+1+To+2+If+Left%28a%2C+i%29++Right%28a%2C+i%29+Then+Print+%22no%22+Exit+For+Else+Print+%22yes%22+End+If+Next+End+Sub+%E8%AF%B7%E9%97%AE%E9%94%99%E5%9C%A8%E5%93%AA%E9%87%8C%3F+%E8%B0%A2%E8%B0%A2%21niuxiaojia45+%E4%BD%A0%E7%9A%84)
求一个五位数是否为回文数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