字符串内容随心分割实例 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个我弄了一个上午啊，头都都大了

主要问题不是不会什么代码，主要就余数问题....小学数学没有学好啊

以下内容为程序代码:

1 Dim a As String = "得得的的得得的的"
2 Dim b As Integer = a.Length
3 Dim s As Integer = 8
4 If b ＞= s Then
5 If b Mod 2 = 0 Then
6 If b Mod s = 0 Then
7 For d As Integer = 0 To a.Length -s Step s
8 Output.Show(a.SubString(d,s))
9 Next
10 Else
11 'Dim e As String = a.PadRight(a.Length +1,"/")
12 Dim s1 As Integer = b Mod s
13 Dim s2 As Integer = s - s1
14 Dim e As String =a.PadRight(a.Length +s2,"/")
15 For d As Integer = 0 To e.Length -1 Step s
16 Output.Show(e.SubString(d,s))
17 Next
18 End If
19 Else
20 Dim h As String = a.PadRight(a.Length +1,"/")
21 ' For d As Integer = 0 To e.Length -1 Step s
22 ' Output.Show(e.SubString(d,s))
23 ' Next
24 Dim f As Integer = h.Length
25 If f Mod s = 0 Then
26 For g As Integer = 0 To h.Length -s Step s
27 Output.Show(h.SubString(g,s))
28 Next
29 Else
30 'Dim e As String = a.PadRight(a.Length +1,"/")
31 Dim s1 As Integer = f Mod s
32 Dim s2 As Integer = s - s1
33 Dim j As String =h.PadRight(h.Length +s2,"/")
34 For g As Integer = 0 To h.Length -1 Step s
35 Output.Show(h.SubString(g,s))
36 Next
37 End If
38 End If
39 Else
40 Output.Show("分割数量不得大于字数")
41 End If