主题：银行卡号如何变成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