'　回文検証　
'　入力された文章の文字の並び順を逆にして返す。
Do 
	sta=InputBox("文章を入力してください。")
	If sta <> "" Then
		res = StrReverse(sta) 
		act=MsgBox("入力文章＝" & sta & vbCRLF & _
			"     回文＝" & res,vbOKCancel)
	Else Exit Do
	End If
Loop while act=vbOK
MsgBox("文章を入力してください。終了します。")