AI时代，找源码已成为过去式，纪念我过去的十年0(回)
80天前
还有人吗2(回)
98天前会python真的可以为所欲为0(回)
578天前
这里还有人吗2(回)
763天前这里还有人吗0(回)
763天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
988天前 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) 回复
??
回复评论