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) 回复
??
回复评论