主题：字符串内容随心分割实例

Dim a As String = "得得的的得得的的但是测试内容得得的的得得的的但是测试内容得得的的得得的的但是测试内容得得的的得得的的但是测试内容"

Dim b As Integer = a.Length

Dim s As Integer =5

Dim c As Integer =  Int(a.Length/s)*s-s

If b = s Then

      Output.Show(a)

ElseIf  b > s Then

    For d As Integer = 0 To c Step s

        Output.Show(a.SubString(d,s))

    Next

    If b > c+s Then Output.Show(a.SubString(c+s))

Else

    Output.Show("分割数量不得大于字数")

End If