您所在位置：主题：大家帮我看看这道程序-------加分!
yaoyusheng
[专家分：460] 发布于 2007-07-27 02:28:00
输入型如ABCBA,FEDADEF,ABCDCBA等等的字符串,显示:yes
否则显示:no
Private Sub Form_Click()
a$ = InputBox("a$=")
b = Len(a$)
For i = 1 To Int(b / 2)
If Mid$(a$, i, 1) <> Mid$(a$, b + 1 - i) Then Exit For
Next i
If i = Int(b / 2) Then
Print "yes"
Else
Print "no"
End If
End Sub
这个程序哪里错了?我输入ada时:no
我输入asdsa时又显示yes
请大家帮我看看哪里出错了.
否则显示:no
Private Sub Form_Click()
a$ = InputBox("a$=")
b = Len(a$)
For i = 1 To Int(b / 2)
If Mid$(a$, i, 1) <> Mid$(a$, b + 1 - i) Then Exit For
Next i
If i = Int(b / 2) Then
Print "yes"
Else
Print "no"
End If
End Sub
这个程序哪里错了?我输入ada时:no
我输入asdsa时又显示yes
请大家帮我看看哪里出错了.
