函数:Private Function IsReverse(Str As String) As BooleanIsReverse = Str = StrReverse(Str)End Function测试函数的过程:Private Sub Form_Click()MsgBox IsReverse("ABCDCBA")MsgBox IsReverse("ABCA")End Sub