主题：格式化账号型字符

我做了个例子，系统检测输入的账号是否是16位，如果是的，就每4位隔开显示：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目13.table

lihe60的80分，因为不够通用。
我给个90分的，任意长度都可以：
 
If e.Col.Name = "账号"
    Dim s1 As String = e.Text
    Dim s2 As String
    For i As Integer = 0 To s1.Length -1
        s2 = s2 & s1.Chars(i)
        If (i + 1) Mod  4 = 0 Then
            s2 = s2 & " "
        End If
    Next
    e.Text = s2
End If

还有100分的，等后来者。

99.5

在老程的基础上改进，可以得99.6分：

If e.Col.Name = "账号"
    Dim m As Integer = math.Ceiling(e.Text.Length / 4) * 4
    For n As Integer = 4 To m - 1 Step 5
        e.Text = e.Text.Insert(n," ")
    Next
End If

那我自己回到90分。

99.9分