Private Function fw(ByVal n As Integer) As Boolean Dim len1 As Integer, flg As Boolean, i As Integer, strl As String strl = CStr(n) len1 = Len(str1) For i = 1 To len1 / 2 If Mid(str1, i, 1) <> Mid(str1, len1 - i + 1) Then flg = False Exit Function End If Next i fw = True End Function
by: 发表于:2017-11-27 11:25:31 顶(0) | 踩(0) 回复
??
回复评论