主题：银行卡号如何变成4为一组以空格分开？

Dim n1,n2 As Integer

Dim s1,s2 As String

s1="0123456789025681123"

For n1 = 4 To s1.length  Step 4

    s2+=s1.Substring(n1-4,4) & " "

Next

n2 =s1.Length Mod 4

Output.Show((s2 & Right(s1,n2)).Trim())  '0123 4567 8902 5681 123

DrawCell事件(删除衍生卡号列)

If e.Col.Name = "银行卡号" Then 

    Dim n1,n2,n3 As Integer

    Dim s1,s2 As String

    s1=e.Row("银行卡号")

    If s1 >"" Then

        s1=s1.Replace(" ","")

        n3 = 4  '4个数1空

        n2 =s1.Length Mod n3

        For n1 =n3 To s1.length  Step n3

            s2+=s1.Substring(n1-n3,n3) & " "

        Next      

        e.Text = (s2 & Right(s1,n2)).Trim()

    End  If  

End If