UC知道判断是否回文
来源：百度知道 编辑：UC知道 时间：2024/05/29 08:24:19
private sub form_click()
dim str1 as string
dim answer as boolean
str1=inputbox(“请输入要判断是否回文的字符串”，“字符串输入”)
print
print
print"输入的字符串是："+str1
answer=judge(str1)
print
if answer=true then
print"此字符串是回文"
else
print"此字符串不是回文"
end if
end sub
private function judge(str as string) as boolean
dim i as integer
judge=true
for i=1 to 填空1（为什么？）
if 填空2（为什么？）then
judge=false
exit function
end if
next i
end function
dim str1 as string
dim answer as boolean
str1=inputbox(“请输入要判断是否回文的字符串”，“字符串输入”)
print"输入的字符串是："+str1
answer=judge(str1)
if answer=true then
print"此字符串是回文"
else
print"此字符串不是回文"
end if
end sub
private function judge(str as string) as boolean
dim i as integer
judge=true
for i=1 to 填空1（为什么？）
if 填空2（为什么？）then
judge=false
exit function
end if
next i
end function
填空1 len(str)
填空2 mid(str,i,1) <> mid(str,len(str)+1-i,1)
其实此程序更精简可以用
Private Sub form_click()
Dim str1 As String
Dim answer As Boolean
str1 = InputBox("请输入要判断是否回文的字符串", "字符串输入")
Print
Print
Print "输入的字符串是：" + str1
Print
Print "此字符串" & IIf(judge(str1), "是", "不是") & "回文"
End Sub
Private Function judge(str As String) As Boolean
judge = (str = StrReverse(str))
End Function