1金币
最佳答案Function ziti1(ByVal state As String) As String
dim s as string
s = state
Dim i As Long
Dim temps As String
Dim tempall As String
For i = 1 To len(s)
temps=Mid(s, i, 1)
If asc(temps) < 0 Then
tempall = tempall + "" + temps + ""
Else
tempall = tempall + "" + temps + ""
End If
Next
Return tempall
End Function
暂时用的这个脚本,不知道还有没有其他方法
| |
评分
| |||||||
| |
| |
| |
| |
| |
| |