Private Function fun(n As String) As String
Dim i As Long
i = Asc(n)
Select Case i
Case 48 To 57
fun = "数字"
Case 65 To 90
fun = "字母"
Case 97 To 122
fun = "字母"
Case Else
fun = "其他"
End Select
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024