主题：格式化账号型字符

也来一个：

Dim s1 As String
Dim ss As String = "11112222333344445555666677778888999"

For i As Integer = 0 To ss.length\4-1
    s1 = s1 & ss.substring((i)*4,4) & " "
Next
output.show(s1 & ss.substring((ss.length\4)*4))

结果：1111 2222 3333 4444 5555 6666 7777 8888 999     ' *****争取90分呵呵····