Ryleigh

7年前

lz什么意思？

0 12

Caleb

7年前

'用法:: AA "1234"

Function AA(ByVal x As String) As String
Dim ns As Integer
ns = Len(x)
Dim n() As String
Dim w() As Integer
ReDim n(ns)
ReDim w(ns)
Dim i As Integer
For i = 1 To ns
n(

0 9