'　回文検証２　
'　入力された文章の文字の並び順を逆にして返す。近い分チェック機能付き。回文.vbs
Do 
	sta=InputBox("文章を入力してください。")
	If sta <> "" Then
		res = StrReverse(sta) 
		hantei=StrComp(sta,res)
		If hantei=0 Then
			 chk="ＯＫ！"
		Else chk="Ｆａｌｓｅ！"
		End If
		act=MsgBox("入力文章＝" & sta & vbCRLF & _
			"     回文＝" & res & vbCRLF & _
			"チェック結果＝" & chk,vbOKCancel)
	Else Exit Do
	End If
Loop while act=vbOK
MsgBox("文章を入力してください。終了します。")