排序程序代码

ysr

Private Sub Command1_Click()

Dim s
s = Trim(Text1)
s1 = paixu11(Trim(s))

Text2 = s1

End Sub

Private Function paixu11(a As String) As String 'paixu cx xiangt bu hebing
Dim i As Integer
Dim ak(), s105
s103 = a

s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
    Print ak(1)
     
        
     For i = 1 To j1 - 1
        For j = i To j1
            If Val(ak(i)) > Val(ak(j)) Then
                temp = ak(i)
                ak(i) = ak(j)
                ak(j) = temp  'c数组是排序好的
            End If
        Next j
        
        
    Next i
   For i = 1 To j1
     If i Mod 20 = 0 Then
        s104 = s104 & "/" & ak(i) & vbCrLf
        Else
        s104 = s104 & "/" & ak(i)
       End If
     
       Next
      
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
     paixu11 = s104
End Function

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Form1.Cls
End Sub

ysr

如下是输入值：
/1/1/2/1/2/2/2/2/3/3/3/2/3/2/4/4/2/3/4/3/4/5/4/3/5/3/4/6/3/5/6/2/5/6/5/5/7/4/5/8/5/4/9/4/5/7/3/6/8/5/6/8/6/7/10/6/6/12/4/5/10/3/7/9/6/5/8/7/8/11/6/5/12/4/8/11/5/8/10/5/6/13/9/6/11/7/7/14/6/8/13/5/8/11/7/9/13/8/9/14/7/7/19/6/8/13/7/9/11/7/7/12/9/7/15/9/9/18/8/9/16/6/9/16/9/8/14/10/9/16/8/9/19/7/11/16/7/14/16/8/12/17/10/8/19/8/11/21/9/10/15/8/12/17/9/10/15/11/11/20/7/10/24/6/11/19/9/13/17/10/9/16/13/10/20/9/10/22/8/14/18/8/14/18/10/11/22/13/10/19/12/9/27/11/11/21/7/14/17/11/13/20/13/11/21/10/11/30/11/12/21/9/14/19/13/11/21/14/13/21/12/13/27/12/12/24/9/16/28/12/13/24/15/13/23/14/11/29/11/14/23/9/19/22/13/13/23/13/15/27/15/14/32/11/14/23/11/17/24/11/15/25/14/17/22/13/14/30/10/13/30/11/19/23/11/11/23/18/14/24/13/13/31/11/16/26/12/19/25/12/13/29/16/15/27/12/15/32/12/14/27/13/20/26/15/19/26/18/17/31/12/16/41/10/14/28/15/18/25/17/16/27/21/15/29/13/19/41/14/16/31/11/21/33/15/17/28/21/16/30/16/16/39/11/19/30/14/24/31/18/19/24/16/17/37/14/15/39/14/15/31/15/21/31/15/19/29/18/19/31/18/19/39/14/17/35/15/21/30/17/17/31/26/18/32/16/15/44/14/18/30/15/22/34/17/14/38/21/16/32/16/14/39/18/20/34/17/20/29/16/21/34/22/22/33/18/17/51/18/17/32/15/25/31/20/19/39/18/17/33/17/21/46/18/19/36/14/25/39/21/18/37/23/19/34/20/19/48/15/17/34/15/31/31/20/18/35/23/20/47/18/18/43/17/20/36/18/24/34/18/20/33/25/23/37/19/22/45/16/18/45/17/27/32/17/19/35/26/17/39/20/23/52/13/25/37/17/28/36/18/18/42/25/23/39/18/20/51/18/22/42/18/25/36/21/27/40/26/22/39/19/19/57/18/24/44/19/27/37/24/24/39/25/21/40/20/27/54/20/21/39/18/26/48/23/18/40/28/24/44/25/25/54/16/23/41/22/34/47/19/23/39/26/22/49/23/20/58/18/24/38/26/27/36/19/22/42/29/25/43/24/22/58/18/22/49/19/26/40/20/20/43/33/23/45/24/24/54/19/28/43/20/32/42/22/21/49/27/25/45/22/22/55/28/25/42/18/34/44/23/26/45/28/23/51/20/21/68/22/26/42/21/27/40/26/25/42/27/26/46/22/29/60/23/26/49/20/33/53/24/24/46/30/23/46/27/26/66/21/26/53/22/41/47/25/25/45/27/27/54/25/22/60/22/21/41/24/33/44/27/27/48/28/27/47/23/27/61/20/24/59/20/30/44/24/24/45/34/27/48/23/25/58/18/30/47/20/34/41/22/23/57/35/25/50/22/23/60/27/28/45/20/36/49/26/34/48/33/29/47/25/24/73/22/30/51/26/34/52/29/25/52/31/27/50/28/32/67/27/27/51/25/33/59/23/26/56/31/27/48/28/27/69/22/32/47/26/46/46/21/30/51/31/28/62/24/25/72/29/28/51/25/38/57/23/26/47/31/34/58/28/26/71/25/27/64/24/36/53/23/30/47/42/35/53/27/32/65/24/35/55/29/40/60/27/27/67/35/27/52/26/28/76/28/31/55/27/39/54/28/34/53/37/35/56/28/31/83/24/31/56/26/37/57/32/28/52/34/30/55/30/32/78/26/27/68/21/38/64/29/31/53/36/25/55/35/33/76/25/33/55/25/48/52/27/30/55/41/29/69/32/31/73/28/27/53/33/37/59/25/30/52/36/36/66/31/27/75/31/31/72/28/36/53/28/27/53/46/27/58/33/29/76/25/34/62/28/37/54/32/28/70/38/28/54/32/29/76/34/32/53/28/43/58/30/36/61/38/33/61/30/28/91/35/32/63/33/36/55/36/30/58/36/30/66/28/35/81/30/34/58/30/39/68/28/33/65/41/30/58/34/31/83/29/35/53/27/48/56/26/29/62/38/32/71/33/32/82/30/32/58/30/42/59/27/28/56/37/44/59/35/28/84/27/35/73/28/41/59/32/32/62/49/29/64/33/33/85/30/38/75/25/42/65/34/32/75/45/33/58/34/35/82/36/33/58/27/48/59/30/39/62/46/34/62/32/32/97/31/35/71/32/41/67/34/37/63/37/33/67/31/42/82/33/35/66/29/47/81/32/36/63/43/32/64/43/37/79/34/38/67/31/52/65/31/35/68/41/34/85/34/31/82/33/34/62/34/46/60/32/35/60/47/38/68/34/29/90/35/33/78/28/41/67/32/36/58/51/35/77/33/33/86/26/44/70/32/44/75/31/38/75/41/33/61/32/36/92/38/33/68/37/47/68/32/40/63/49/32/68/34/34/114/35/40/66/38/48/67/38/35/64/43/35/68/35/38/94/34/36/76/31/45/83/41/37/62/45/33/66/44/37/92/33/38/76/32/60/67/35/38/67/44/41/84/37/37/90/37/36/72/39/50/69/37/35/78/48/41/72/32/35/94/36/38/86/31/50/75/37/40/73/56/36/71/30/39/93/35/52/69/32/57/71/39/37/87/46/39/76/38/40/94/42/41/75/33/47/68/32/46/74/45/34/72/38/37/112/35/41/68/34/55/70/41/36/70/43/38/77/36/48/99/43/41/71/31/48/82/34/37/64/44/39/86/43/36/95/36/43/73/33/60/68/35/45/71/49/36/91/35/36/98/39/37/72/45/48/77/38/35/69/46/45/76/34/34/107/29/40/81/31/54/80/35/41/70/58/44/72/37/42/97/28/48/77/36/46/74/42/41/88/48/38/75/38/42/100/44/43/87/37/52/73/39/52/78/51/42/79/39/47/128/35/42/82/37/51/79/50/42/75/56/38/86/43/46/109/38/37/72/36/55/101/40/39/68/55/43/81/44/44/104/37/45/78/39/64/72/34/44/90/51/45/97/40/39/104/43/41/76/41/52/78/40/42/89/49/49/78/41/40/110/40/42/100/38/68/78/42/41/71/64/41/76/42/40/107/37/50/90/40/60/74/45/42/94/51/47/91/41/44/99/48/44/83/39/57/80/41/60/80/52/42/82/31/45/122/37/41/87/41/59/75/44/42/82/52/38/98/35/52/116/36/49/86/34/59/95/41/44/79/58/49/84/45/46/104/40/41/78/36/69/76/44/50/85/49/42/99/43/41/110/36/48/92/43/62/93/43/44/83/50/53/78/39/47/113/38/44/102/41/58/79/41/44/83/68/47/83/37/41/109/35/59/84/48/61/92/42/46/100/48/46/82/45/41/117/44/46/85/47/57/83/37/49/80/47/44/75/46/44/138/39/45/85/42/56/85/45/44/93/52/47/83/42/52/112/40/42/87/40/66/98/43/51/90/54/40/83/45/48/110/44/42/87/37/73/80/46/43/86/58/48/112/40/46/112/38/39/82/47/59/87/44/51/76/55/52/89/44/46/110/38/47/112/44/59/86/43/47/78/67/45/90/39/45/120/41/56/93/44/56/92/44/48/107/57/49/84/48/46/116/54/44/89/42/57/84/47/52/89/57/45/94/41/55/138/43/47/105/42/62/86/52/44/89/60/45/87/40/58/115/45/48/90/45/62/105/49/52/85/67/43/87/50/50/119/43/40/84/43/74/101/46/50/89/59/48/102/42/46/120/43/47/89/57/64/87/46/42/97/56/57/91/47/46/123/45/47/105/43/59/84/48/54/103/64/54/88/40/46/123/40/51/87/44/71/92/47/50/103/58/44/96/52/49/123/62/46/94/41/60/93/43/51/91/62/59/104/47/50/154/48/50/96/47/62/80/55/54/108/60/45/88/47/58/125/48/49/90/50/66/112/52/48/95/59/48/94/58/47/136/40/50/95/45/83/92/49/52/103/58/47/115/49/47/125/46/46/102/56/58/95/54/50/97/64/60/98/50/46/124/50/47/125/42/66/97/48/56/100/78/49/93/43/56/128/50/62/98/48/61/101/48/46/116/77/44/107/46/47/123/56/42/97/49/67/112/50/58/91/73/54/103/49/48/149/51/52/96/50/63/88/55/50/100/70/46/92/55/64/130/48/49/95/44/68/124/48/52/109/67/46/100/58/57/128/49/50/98/51/87/93/52/50/98/59/47/122/51/50/133/52/53/110/54/65/97/53/53/92/65/62/109/53/50/140/43/52/117/48/75/98/53/55/93/82/48/98/53/55/136/48/57/103/54/68/99/52/52/121/66/61/100/51/53/145/55/52/107/52/72/95/52/63/111/62/53/94/54/49/163/49/52/99/47/65/106/72/52/104/65/54/108/55/66/133/43/55/114/44/80/118/54/48/99/70/51/100/63/59/125/44/55/109/44/81/97/51/54/98/74/51/122/49/51/142/57/50/108/58/65/113/51/53/102/66/61/104/53/55/139/47/61/122/55/71/96/53/50/107/82/54/113/55/56/147/52/64/100/52/70/107/54/53/138/69/57/104/55/56/137/62/47/108/52/81/106/50/72/104/64/54/102/49/53/165/54/50/105/45/66/107/62/54/116/68/56/112/53/63/137/51/55/105/57/72/122/52/59/106/75/52/105/64/53/139/51/63/105/55/85/115/55/61/115/71/59/131/56/56/165/56/48/108/62/80/102/56/58/100/68/70/106/60/58/140/49/58/124/50/72/110/60/53/109/85/61/112/52/55/143/55/65/118/50/70/102/53/60/136/76/55/102/59/60/140/65/50/117/48/73/106/55/69/106/81/58/113/51/62/171/45/49/111/49/86/113/69/54/108/70/53/105/53/70/138/50/60/125/46/77/127/61/52/105/73/59/109/73/57/147/49/57/108/48/88/107/60/61/127/71/53/132/54/64/138/52/58/101/61/90/115/55/57/101/72/77/126/57/58/149/51/57/131/54/72/107/55/55/111/90/57/131/55/58/147/52/70/111/54/72/110/50/68/129/77/52/109/54/61/158/61/57/110/59/71/112/55/67/117/72/53/114/54/57/190/54/56/110/59/77/107/68/58/107/69/65/113/59/69/151/53/59/114/59/73/136/68/56/113/74/57/122/70/57/165/54/62/127/50/95/119/56/58/114/75/57/131/61/65/148/54/55/112/60/81/109/56/59/113/78/75/119/58/57/154/58/60/139/54/83/121/60/61/122/87/59/114/54/57/147/55/79/116/56/73/108/61/59/143/78/60/127/66/58/150/64/61/114/51/85/108/60/75/128/79/62/120/58/64/189/59/63/121/58/82/114/69/58/105/74/62/114/53/68/154/70/57/114/54/73/139/53/64/109/74/63/126/69/62/149/51/60/122/53/94/123/58/65/103/75/61/150/54/57/152/60/55/117/70/84/118/62/60/105/89/73/121/57/61/167/54/64/145/55/81/112/61/70/119/92/68/115/55/61/159/58/70/117/65/84/126/60/63/144/76/56/121/63/56/154/68/67/145/63/75/119/56/79/121/82/64/116/63/70/184/59/66/115/54/80/117/76/64/122/87/61/123/61/77/176/57/58/118/51/83/159/64/61/118/82/66/120/77/68/167/56/72/130/55/101/127/65/61/122/76/65/148/64/53/167/61/65/121/69/84/123/59/61/140/76/73/121/59/60/167/59/59/144/65/90/110/69/62/121/89/69/126/61/59/159/67/71/118/64/90/130/58/61/144/75/63/132/63/60/160/73/61/131/56/85/115/63/86/119/84/64/139/57/64/198/68/62/124/61/77/116/70/59/118/85/62/120/57/84/175/60/67/115/53/87/142/63/63/112/82/72/140/77/64/163/55/62/128/58/107/122/69/64/126/86/64/138/69/69/166/65/63/138/70/83/114/59/73/122/82/77/119/61/70/166/60/64/143/57/81/132/59/68/124/102/68/132/64/68/156/63/75/128/63/86/141/58/61/139/75/67/126/63/65/169/70/87/123/54/93/121/63/75/127/85/68/135/74/64/218/55/67/129/52/82/127/84/63/144/80/65/118/65/80/164/61/67/126/60/98/149/62/68/127/88/70/130/71/73/172/66/65/134/54/103/128/65/65/138/79/70/169/72/70/173/63/67/129/70/89/126/68/75/127/81/79/133/69/71/177/60/66/163/65/93/124/67/63/124/96/64/132/64/67/198/64/79/136/56/90/120/64/67/151/83/74/125/67/64/169/79/73/130/60/86/125/73/81/140/86/70/131/65/74/204/63/67/147/64/89/128/78/64/127/84/65/145/63/89/186/62/72/132/64/87/168/66/61/127/110/66/130/77/69/174/58/73/127/61/103/143/71/79/132/84/76/162/71/69/172/64/76/136/73/87/144/61/63/128/87/78/132/75/65/167/61/64/166/70/98/130/68/63/141/97/67/147/63/65/171/69/87/129/70/101/135/65/67/150/87/70/131/76/74/191/91/68/131/66/89/128/62/80/131/87/73/157/74/69/216/67/74/140/74/98/127/79/74/132/89/76/134/71/87/182/64/74/153/71/96/161/66/65/146/87/70/139/79/73/202/67/73/133/55/107/133/73/75/138/81/77/167/75/69/177/63/73/129/75/99/132/78/72/126/87/81/140/63/72/178/62/73/195/61/92/137/69/69/146/111/66/144/68/75/173/74/84/126/65/91/151/61/65/161/99/72/140/71/77/177/76/68/132/59/98/147/68/84/138/93/70/153/72/67/222/64/79/140/61/100/132/84/68/142/99/68/132/73/95/192/64/72/141/61/91/162/71/76/152/85/69/145/81/75/190/60/76/142/66/123/154/77/71/138/81/69/163/69/71/180/72/73/132/84/91/136/69/66/119/87/86/161/75/68/195/61/83/163/72/90/148/74/79/144/109/77/135/77/74/198/66/89/140/75/95/146/68/77/159/98/73/147/72/73/218/78/71/138/69/101/138/68/80/145/108/82/143/69/77/216/69/82/137/70/101/138/96/69/150/86/77/156/65/93/185/70/75/150/61/98/161/76/81/142/95/72/140/80/88/194/71/80/144/61/130/140/73/72/138/102/78/190/72/75/191/77/78/164/80/98/156/77/69/140/96/92/146/71/71/184/72/76/187/76/94/138/74/74/150/111/67/148/74/79/183/69/91/138/73/107/145/66/76/188/95/69/163/72/72/193/82/72/149/72/109/138/76/94/151/105/78/140/64/67/241/74/75/148/66/94/145/84/79/152/97/82/166/77/83/190/69/75/141/69/101/184/71/81/137/99/78/137/85/70/202/70/78/149/89/117/142/75/73/145/91/75/177/73/76/211/70/89/138/85/97/149/79/70/142/91/105/149/73/71/218/66/72/176/69/92/142/86/69/138/114/70/151/80/78/194/69/89/165/68/108/147/76/75/177/99/81/148/77/83/187/83/69/153/75/104/145/77/89/169/105/78/149/72/79/239/71/71/151/76/95/175/101/72/144/94/82/144/79/91/188/73/77/151/71/112/172/81/78/147/95/71/141/98/74/191/71/80/159/70/122/151/81/73/162/100/81/183/79/82/195/79/78/146/88/107/152/76/76/136/93/95/166/73/77/205/78/80/170/75/99/146/77/74/144/119/77/178/73/81/192/77/97/154/80/103/162/77/83/178/117/83/151/68/77/206/100/76/148/76/99/146/77/101/154/94/78/151/67/82/268/73/73/162/70/103/160/102/79/147/100/90/162/76/94/205/73/77/157/77/115/186/92/73/145/96/79/151/95/78/206/78/82/161/72/119/150/83/84/155/96/83/180/76/87/231/72/77/157/84/121/158/79/75/168/104/93/153/75/78/210/75/75/186/72/103/171/77/75/168/113/89/162/81/79/198/71/108/157/75/108/152/79/75/195/105/83/159/93/82/204/91/82/150/67/100/154/79/94/161/107/84/166/71/89/258/72/82/154/79/123/147/87/76/145/99/82/162/76/94/200/82/87/175/77/106/193/75/74/160/107/85/163/93/76/198/78/75/147/77/126/152/78/95/150/105/80/189/79/89/206/74/83/157/98/108/167/76/80/150/104/95/176/76/86/229/73/80/183/80/103/152/78/85/153/135/88/152/77/77/203/67/102/160/81/112/164/86/83/188/112/89/172/85/80/212/82/82/174/76/101/162/85/99/158/104/81/158/80/92/254/76/83/157/77/116/157/95/82/155/106/87/155/74/106/217/75/81/156/79/108/205/81/79/147/104/84/151/98/79/236/76/86/154/77/131/150/78/80/155/99/81/191/98/82/210/74/73/167/98/98/157/79/77/176/107/110/157/77/74/214/74/81/183/78/127/163/81/86/167/116/77/152/79/86/206/84/98/160/68/103/155/91/74/191/107/83/194/84/79/209/81/81/158/73/126/157/84/106/176/104/84/161/74/76/251/82/87/182/88/107/157/93/83/161/103/97/168/77/98/250/90/85/151/74/117/190/76/86/161/105/99/159/105/94/218/79/83/170/77/132/159/84/82/168/102/83/213/81/86/224/81/81/189/97/105/163/80/88/161/114/102/166/87/86/211/83/91/204/78/110/165/77/99/158/142/81/169/83/89/223/72/107/159/86/115/192/73/79/197/116/88/169/80/86/217/87/94/162/87/119/183/78/99/168/110/86/166/86/86/267/80/95/161/82/118/164/101/85/189/119/85/163/88/98/233/80/85/160/79/126/199/84/84/164/118/84/169/108/90/225/89/84/165/77/134/158/84/90/162/105/94/233/88/82/210/71/83/183/96/112/171/96/95/178/106/104/159/79/94/220/77/86/208/87/113/159/94/84/163/121/92/166/86/86/243/78/106/167/72/133/164/80/93/197/108/100/165/87/86/216/98/93/200/85/113/170/89/99/174/114/83/167/76/86/274/85/83/185/77/122/169/99/88/170/106/80/178/77/121/219/80/90/171/75/112/200/94/85/157/125/83/186/98/79/224/70/80/169/72/140/182/82/92/175/110/89/198/91/83/212/82/101/170/98/111/167/86/91/167/112/110/172/96/90/230/76/85/200/81/116/173/82/87/184/138/91/176/91/90/227/87/108/172/82/134/185/78/89/208/113/90/157/83/87/238/104/93/163/83/125/157/91/106/182/106/92/194/79/93/292/76/97/163/84/123/160/102/95/180/104/91/169/91/100/225/86/88/167/96/112/193/86/95/171/111/97/171/105/81/251/88/82/177/81/144/175/86/94/190/100/101/207/94/93/238/83/103/174/98/114/165/106/98/166/119/107/180/81/89/219/84/85/228/82/119/188/78/96/172/145/82/183/85/101/226/88/109/195/80/117/174/83/95/202/134/90/182/92/88/228/109/83/172/76/117/184/86/100/163/118/90/169/86/108/271/80/97/177/85/132/160/102/86/182/111/88/186/97/107/228/91/86/188/87/114/214/82/93/195/130/85/171/102/84/240/80/89/176/92/158/173/94/97/182/111/87/207/90/89/232/93/98/166/105/124/195/90/83/167/114/108/195/89/84/231/78/86/215/96/125/185/89/105/169/139/85/175/92/87/247/75/114/187/100/126/171/81/96/226/113/80/180/86/87/272/94/90/185/89/116/172/89/104/166/116/109/185/94/85/282/88/92/180/93/117/166/108/95/170/106/93/176/92/108/239/95/90/198/84/117/214/87/87/191/118/88/182/107/95/251/86/92/174/83/142/171/94/91/173/125/100/229/89/90/242/96/97/181/106/132/195/88/92/168/115/112/176/95/88/239/88/101/238/99/136/182/93/96/173/138/86/180/104/95/244/88/111/175/90/114/195/91/96/244/115/91/182/95/98/236/105/92/177/91/125/179/92/125/181/124/91/195/95/87/281/102/90/181/87/126/190/93/91/175/141/93/204/83/103/244/91/102/188/90/116/211/93/118/177/121/93/194/102/93/256/89/93/182/95/148/199/91/94/180/117/88/218/93/95/262/96/93/184/114/125/178/93/95/182/120/125/182/95/92/246/87/101/226/90/129/178/104/95/173/141/90/191/96/96/273/84/104/220/89/117/178/88/91/214/127/94/191/96/101/242/110/95/202/90/133/185/96/119/183/136/99/184/89/93/303/89/93/191/92/126/203/122/96/210/120/102/177/90/115/247/98/105/182/92/128/209/101/90/193/124/96/175/123/92/241/86/93/186/90/164/194/100/98/211/123/104/227/96/89/259/98/87/199/104/136/184/94/90/190/119/110/182/96/90/245/109/96/224/96/121/188/101/98/176/150/95/211/100/102/252/87/116/189/97/122/183/93/108/215/138/97/215/88/96/249/118/99/197/102/120/184/87/112/179/133/96/189/89/94/329/96/95/204/98/129/181/116/107/186/124/103/188/96/109/252/93/97/179/91/121/254/104/95/186/116/97/183/118/93/261/86/87/209/107/155/189/91/105/189/121/97/233/107/107/249/95/100/189/123/129/182/94/94/203/148/113/194/93/95/264/95/90/229/89/120/215/96/92/182/152/99/214/108/107/243/92/123/203/100/138/183/85/95/223/125/99/199/105/96/255/115/111/188/94/126/185/104/114/225/130/98/193/96/97/298/97/108/195/102/142/199/120/91/186/128/102/197/99/113/257/106/93/213/88/145/224/94/93/187/135/100/209/117/97/253/97/105/211/86/170/199/101/109/188/123/94/232/97/104/257/104/103/202/120/130/199/104/102/193/123/121/191/94/110/295/97/98/245/90/132/194/93/94/199/159/109/221/96/97/261/77/127/197/91/137/190/117/93/234/135/100/194/93/106/264/112/97/212/91/126/191/93/124/202/123/105/192/99/114/324/101/110/194/97/140/220/119/98/191/140/101/197/96/118/284/93/101/193/106/121/254/98/104/184/134/99/192/117/102/254/96/128/195/103/161/193/103/101/196/133/101/235/113/93/286/108/99/194/124/135/185/98/90/219/132/117/191/108/99/260/103/99/230/98/151/205/102/110/200/147/118/205/95/101/258/101/118/206/94/135/206/98/100/259/124/98/219/96/91/264/129/104/196/100/130/195/103/130/202/144/104/204/86/99/316/102/104/208/110/156/200/117/101/196/146/103/214/96/118/301/98/102/211/94/134/233/100/109/223/141/112/200/122/108/266/105/103/202/103/162/200/113/113/196/126/95/248/98/105/269/113/99/217/120/139/194/93/104/195/136/135/211/103/110/269/102/98/255/99/127

ysr

如下是输出结果：
/1/1/1/2/2/2/2/2/2/2/2/2/3/3/3/3/3/3/3/3
/3/3/3/4/4/4/4/4/4/4/4/4/4/4/5/5/5/5/5/5
/5/5/5/5/5/5/5/5/5/5/6/6/6/6/6/6/6/6/6/6
/6/6/6/6/6/6/7/7/7/7/7/7/7/7/7/7/7/7/7/7
/7/7/7/7/8/8/8/8/8/8/8/8/8/8/8/8/8/8/8/8
/8/8/8/8/9/9/9/9/9/9/9/9/9/9/9/9/9/9/9/9
/9/9/9/9/9/9/9/10/10/10/10/10/10/10/10/10/10/10/10/10
/10/10/10/11/11/11/11/11/11/11/11/11/11/11/11/11/11/11/11/11
/11/11/11/11/11/11/11/11/11/11/11/11/12/12/12/12/12/12/12/12
/12/12/12/12/12/12/12/12/13/13/13/13/13/13/13/13/13/13/13/13
/13/13/13/13/13/13/13/13/13/13/13/13/13/14/14/14/14/14/14/14
/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14/14
/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15/15
/15/15/15/16/16/16/16/16/16/16/16/16/16/16/16/16/16/16/16/16
/16/16/16/16/16/17/17/17/17/17/17/17/17/17/17/17/17/17/17/17
/17/17/17/17/17/17/17/17/17/17/18/18/18/18/18/18/18/18/18/18
/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18/18
/18/18/18/18/18/19/19/19/19/19/19/19/19/19/19/19/19/19/19/19
/19/19/19/19/19/19/19/19/19/19/19/19/19/19/20/20/20/20/20/20
/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20/20
/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21/21
/21/21/21/21/21/22/22/22/22/22/22/22/22/22/22/22/22/22/22/22
/22/22/22/22/22/22/22/22/22/22/22/22/23/23/23/23/23/23/23/23
/23/23/23/23/23/23/23/23/23/23/23/23/23/23/23/23/23/23/23/24
/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24/24
/24/24/24/24/24/24/25/25/25/25/25/25/25/25/25/25/25/25/25/25
/25/25/25/25/25/25/25/25/25/25/25/25/25/25/25/25/25/25/25/26
/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26/26
/26/26/26/26/26/26/26/27/27/27/27/27/27/27/27/27/27/27/27/27
/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27/27
/27/27/27/27/27/27/27/27/27/27/27/28/28/28/28/28/28/28/28/28
/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28/28
/28/28/28/28/28/28/29/29/29/29/29/29/29/29/29/29/29/29/29/29
/29/29/29/29/29/29/29/30/30/30/30/30/30/30/30/30/30/30/30/30
/30/30/30/30/30/30/30/30/30/30/30/30/30/30/30/30/31/31/31/31
/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31/31
/31/31/31/31/31/31/31/31/31/31/31/32/32/32/32/32/32/32/32/32
/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32/32
/32/32/32/32/32/32/32/32/32/33/33/33/33/33/33/33/33/33/33/33
/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33/33
/33/33/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34
/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34/34
/34/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35
/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/35/36/36
/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36/36
/36/36/36/36/36/36/36/36/36/36/36/36/37/37/37/37/37/37/37/37
/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37/37
/37/37/37/37/37/37/37/38/38/38/38/38/38/38/38/38/38/38/38/38
/38/38/38/38/38/38/38/38/38/38/38/38/38/38/38/38/38/38/39/39
/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39/39
/39/39/39/39/39/39/39/39/39/40/40/40/40/40/40/40/40/40/40/40
/40/40/40/40/40/40/40/40/40/40/40/40/40/40/40/40/40/41/41/41
/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41
/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/41/42/42
/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42
/42/42/42/42/42/42/42/42/42/42/42/42/42/42/42/43/43/43/43/43
/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43/43
/43/43/43/43/43/43/43/44/44/44/44/44/44/44/44/44/44/44/44/44
/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44/44
/44/44/44/44/44/44/44/44/44/44/44/45/45/45/45/45/45/45/45/45
/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45/45
/45/45/45/45/45/45/46/46/46/46/46/46/46/46/46/46/46/46/46/46
/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46/46
/46/46/46/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47
/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47/47
/47/47/47/47/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48
/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48/48
/48/48/48/48/48/48/48/48/49/49/49/49/49/49/49/49/49/49/49/49
/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49/49
/49/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50
/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/50/51/51
/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51/51
/51/51/51/51/51/51/51/51/51/51/52/52/52/52/52/52/52/52/52/52
/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52
/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/52/53/53/53
/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53
/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/53/54/54/54/54
/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54
/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/54/55
/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55
/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55/55
/55/55/55/55/55/55/56/56/56/56/56/56/56/56/56/56/56/56/56/56
/56/56/56/56/56/56/56/56/56/56/56/56/56/56/56/56/56/56/56/57
/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57
/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/57/58/58/58/58
/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58
/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58/58
/58/58/58/58/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59
/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59/59
/59/59/59/59/59/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60
/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60/60
/60/60/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61
/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61/61
/61/61/61/61/61/61/61/61/61/61/62/62/62/62/62/62/62/62/62/62
/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62/62
/62/62/62/62/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63
/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/63/64
/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64
/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64/64
/64/64/64/64/64/64/65/65/65/65/65/65/65/65/65/65/65/65/65/65
/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65/65
/65/65/66/66/66/66/66/66/66/66/66/66/66/66/66/66/66/66/66/66
/66/66/66/66/66/66/66/66/66/66/66/67/67/67/67/67/67/67/67/67
/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67/67
/67/67/67/67/67/67/67/68/68/68/68/68/68/68/68/68/68/68/68/68
/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68/68
/68/68/68/68/68/68/68/68/68/68/68/68/68/69/69/69/69/69/69/69
/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69
/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/69/70/70/70
/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70
/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70/70
/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71
/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/71/72/72
/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72
/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72/72
/72/72/72/72/72/72/73/73/73/73/73/73/73/73/73/73/73/73/73/73
/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73
/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/73/74/74/74/74
/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74/74
/74/74/74/74/74/74/74/74/74/74/74/75/75/75/75/75/75/75/75/75
/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75
/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75/75
/75/75/75/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76
/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76
/76/76/76/76/76/76/76/76/76/76/76/76/76/76/76/77/77/77/77/77
/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77
/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77/77
/77/77/77/77/77/77/77/77/77/77/77/77/78/78/78/78/78/78/78/78
/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78
/78/78/78/78/78/78/78/78/78/78/78/78/78/78/78/79/79/79/79/79
/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79
/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/79/80
/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80
/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/80/81/81
/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81
/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81/81
/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82
/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82/82
/82/82/82/82/82/82/82/83/83/83/83/83/83/83/83/83/83/83/83/83
/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83/83
/83/83/83/83/83/83/83/83/83/83/83/83/83/84/84/84/84/84/84/84
/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84
/84/84/84/84/84/84/84/84/84/84/84/84/84/84/84/85/85/85/85/85
/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85/85
/85/85/85/85/85/85/85/85/85/85/86/86/86/86/86/86/86/86/86/86
/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86
/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86/86
/86/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87
/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87/87
/87/87/87/87/87/87/87/87/87/87/87/87/88/88/88/88/88/88/88/88
/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88/88
/88/88/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89
/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89/89
/89/89/89/89/89/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90
/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90/90
/90/90/90/90/90/90/90/90/91/91/91/91/91/91/91/91/91/91/91/91
/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91/91
/91/91/91/91/91/91/91/91/92/92/92/92/92/92/92/92/92/92/92/92
/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92/92
/92/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93
/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93/93
/93/93/93/93/93/93/93/93/93/93/93/93/93/94/94/94/94/94/94/94
/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94
/94/94/94/94/94/94/94/94/94/94/94/94/94/94/94/95/95/95/95/95
/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95
/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95/95
/95/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96
/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96/96
/96/96/96/96/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97
/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/97/98
/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98
/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98/98
/98/98/98/98/98/98/98/98/99/99/99/99/99/99/99/99/99/99/99/99
/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99/99
/99/99/99/100/100/100/100/100/100/100/100/100/100/100/100/100/100/100/100/100
/100/100/100/100/100/100/100/100/100/100/100/100/100/101/101/101/101/101/101/101
/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101/101
/101/101/101/101/102/102/102/102/102/102/102/102/102/102/102/102/102/102/102/102
/102/102/102/102/102/102/102/102/102/102/102/102/102/102/102/103/103/103/103/103
/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103/103
/103/104/104/104/104/104/104/104/104/104/104/104/104/104/104/104/104/104/104/104
/104/104/104/104/104/104/104/104/104/104/104/104/104/104/105/105/105/105/105/105
/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105/105
/105/105/105/105/105/106/106/106/106/106/106/106/106/106/106/106/106/106/106/106
/106/106/106/106/106/106/107/107/107/107/107/107/107/107/107/107/107/107/107/107
/107/107/107/107/107/107/107/107/107/107/107/107/107/107/107/107/108/108/108/108
/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108/108
/108/108/108/108/109/109/109/109/109/109/109/109/109/109/109/109/109/109/109/109
/109/109/109/109/110/110/110/110/110/110/110/110/110/110/110/110/110/110/110/110
/110/110/110/110/110/110/110/111/111/111/111/111/111/111/111/111/111/111/111/112
/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112/112
/112/112/112/113/113/113/113/113/113/113/113/113/113/113/113/113/113/113/113/113
/113/113/114/114/114/114/114/114/114/114/114/114/114/114/114/114/114/114/114/114
/114/114/114/114/115/115/115/115/115/115/115/115/115/115/115/115/115/115/115/116
/116/116/116/116/116/116/116/116/116/116/116/116/116/116/116/116/117/117/117/117
/117/117/117/117/117/117/117/117/117/117/117/117/117/117/117/117/117/118/118/118
/118/118/118/118/118/118/118/118/118/118/118/118/118/118/118/118/119/119/119/119
/119/119/119/119/119/119/119/119/119/119/119/119/119/120/120/120/120/120/120/120
/120/120/120/120/120/120/121/121/121/121/121/121/121/121/121/121/121/121/121/121
/121/121/121/121/121/122/122/122/122/122/122/122/122/122/122/122/122/122/122/122
/122/122/123/123/123/123/123/123/123/123/123/123/123/123/123/123/123/123/123/123
/124/124/124/124/124/124/124/124/124/124/124/124/124/124/125/125/125/125/125/125
/125/125/125/125/125/125/125/125/125/125/126/126/126/126/126/126/126/126/126/126
/126/126/126/126/126/126/126/126/126/127/127/127/127/127/127/127/127/127/127/127
/127/127/127/127/127/127/128/128/128/128/128/128/128/128/128/128/128/128/128/129
/129/129/129/129/129/129/129/129/130/130/130/130/130/130/130/130/130/130/130/130
/130/131/131/131/131/131/131/131/131/131/131/132/132/132/132/132/132/132/132/132
/132/132/132/132/132/132/132/132/132/132/133/133/133/133/133/133/133/133/133/134
/134/134/134/134/134/134/135/135/135/135/135/135/135/135/135/136/136/136/136/136
/136/136/136/136/136/136/136/137/137/137/137/137/137/137/138/138/138/138/138/138
/138/138/138/138/138/138/138/138/138/138/138/138/138/138/138/138/138/138/139/139
/139/139/139/139/139/139/139/140/140/140/140/140/140/140/140/140/140/140/140/140
/140/140/140/140/140/141/141/141/141/141/141/141/141/142/142/142/142/142/142/142
/142/142/142/142/143/143/143/143/143/144/144/144/144/144/144/144/144/144/144/144
/144/144/145/145/145/145/145/145/145/145/145/145/145/145/145/145/146/146/146/146
/146/146/146/146/147/147/147/147/147/147/147/147/147/147/147/147/147/147/147/148
/148/148/148/148/148/148/148/148/149/149/149/149/149/149/149/149/149/150/150/150
/150/150/150/150/150/150/150/150/150/151/151/151/151/151/151/151/151/151/151/151
/151/151/151/152/152/152/152/152/152/152/152/152/152/153/153/153/153/153/154/154
/154/154/154/154/154/154/154/154/155/155/155/155/155/155/156/156/156/156/156/157
/157/157/157/157/157/157/157/157/157/157/157/157/157/158/158/158/158/158/158/158
/158/159/159/159/159/159/159/159/159/159/159/159/159/160/160/160/160/160/160/160
/160/161/161/161/161/161/161/161/161/161/161/161/161/162/162/162/162/162/162/162
/162/162/162/162/162/163/163/163/163/163/163/163/163/163/163/163/163/163/163/164
/164/164/164/164/164/164/165/165/165/165/165/165/165/165/166/166/166/166/166/166
/166/166/166/166/166/166/166/167/167/167/167/167/167/167/167/167/167/167/167/167
/167/167/168/168/168/168/168/168/168/169/169/169/169/169/169/169/169/169/169/169
/169/170/170/170/170/170/170/170/171/171/171/171/171/171/171/171/171/171/172/172
/172/172/172/172/172/172/172/173/173/173/173/173/173/173/174/174/174/174/174/174
/175/175/175/175/175/175/175/175/175/176/176/176/176/176/176/176/176/176/176/177
/177/177/177/177/177/177/177/177/177/178/178/178/178/178/178/178/178/179/179/179
/180/180/180/180/180/180/180/180/181/181/181/181/182/182/182/182/182/182/182/182
/182/182/182/182/182/182/182/182/182/183/183/183/183/183/183/183/183/183/183/183
/184/184/184/184/184/184/184/184/184/184/185/185/185/185/185/185/185/185/185/186
/186/186/186/186/186/186/186/186/187/187/187/187/188/188/188/188/188/188/188/188
/188/188/189/189/189/189/189/189/189/189/189/190/190/190/190/190/190/190/190/190
/191/191/191/191/191/191/191/191/191/191/191/191/191/192/192/192/192/192/193/193
/193/193/193/193/193/193/194/194/194/194/194/194/194/194/194/194/194/194/195/195
/195/195/195/195/195/195/195/195/195/195/195/195/195/196/196/196/196/197/197/197
/197/197/197/198/198/198/198/198/198/198/199/199/199/199/199/199/199/199/200/200
/200/200/200/200/200/200/202/202/202/202/202/202/202/202/203/203/203/203/204/204
/204/204/204/204/205/205/205/205/205/206/206/206/206/206/206/207/207/208/208/208
/209/209/209/209/210/210/210/210/211/211/211/211/211/211/211/211/212/212/212/213
/213/214/214/214/214/214/214/215/215/215/215/216/216/216/217/217/217/218/218/218
/218/218/219/219/219/219/220/220/220/221/222/223/223/223/224/224/224/224/225/225
/225/226/226/226/227/227/228/228/228/229/229/229/230/230/231/231/232/232/233/233
/233/233/234/235/236/236/238/238/238/239/239/239/240/241/241/242/242/243/243/244
/244/244/245/245/246/247/247/248/249/249/250/251/251/251/252/252/253/254/254/254
/254/255/255/256/257/257/258/258/259/259/260/261/261/262/264/264/264/266/267/268
/269/269/271/272/273/274/281/282/284/286/292/295/298/301/303/316/324/329

ysr

排序并合并相同的数字的代码：
Private Sub Command1_Click()

Dim s
s = Trim(Text1)
s1 = paixu1(Trim(s))

Text2 = s1

End Sub

Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
    Print ak(1)
     
        For k = 1 To j1
           
             ReDim Preserve cr(1 To k)
            m = Val(ak(k))
            f(m) = ""
      Next
   
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For j = i + 1 To UBound(cr)
            If cr(i) > cr(j) Then
                temp = cr(j)
                cr(j) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next j
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & cr(i) & "/" & vbCrLf
        Else
          s104 = s104 & cr(i) & "/"
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
     paixu1 = s104
End Function

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Form1.Cls
End Sub

ysr

输入如下值：
/1/1/2/1/2/2/2/2/3/3/3/2/3/2/4/4/2/3/4/3/4/5/4/3/5/3/4/6/3/5/6/2/5/6/5/5/7/4/5/8/5/4/9/4/5/7/3/6/8/5/6/8/6/7/10/6/6/12/4/5/10/3/7/9/6/5/8/7/8/11/6/5/12/4/8/11/5/8/10/5/6/13/9/6/11/7/7/14/6/8/13/5/8/11/7/9/13/8/9/14/7/7/19/6/8/13/7/9/11/7/7/12/9/7/15/9/9/18/8/9/16/6/9/16/9/8/14/10/9/16/8/9/19/7/11/16/7/14/16/8/12/17/10/8/19/8/11/21/9/10/15/8/12/17/9/10/15/11/11/20/7/10/24/6/11/19/9/13/17/10/9/16/13/10/20/9/10/22/8/14/18/8/14/18/10/11/22/13/10/19/12/9/27/11/11/21/7/14/17/11/13/20/13/11/21/10/11/30/11/12/21/9/14/19/13/11/21/14/13/21/12/13/27/12/12/24/9/16/28/12/13/24/15/13/23/14/11/29/11/14/23/9/19/22/13/13/23/13/15/27/15/14/32/11/14/23/11/17/24/11/15/25/14/17/22/13/14/30/10/13/30/11/19/23/11/11/23/18/14/24/13/13/31/11/16/26/12/19/25/12/13/29/16/15/27/12/15/32/12/14/27/13/20/26/15/19/26/18/17/31/12/16/41/10/14/28/15/18/25/17/16/27/21/15/29/13/19/41/14/16/31/11/21/33/15/17/28/21/16/30/16/16/39/11/19/30/14/24/31/18/19/24/16/17/37/14/15/39/14/15/31/15/21/31/15/19/29/18/19/31/18/19/39/14/17/35/15/21/30/17/17/31/26/18/32/16/15/44/14/18/30/15/22/34/17/14/38/21/16/32/16/14/39/18/20/34/17/20/29/16/21/34/22/22/33/18/17/51/18/17/32/15/25/31/20/19/39/18/17/33/17/21/46/18/19/36/14/25/39/21/18/37/23/19/34/20/19/48/15/17/34/15/31/31/20/18/35/23/20/47/18/18/43/17/20/36/18/24/34/18/20/33/25/23/37/19/22/45/16/18/45/17/27/32/17/19/35/26/17/39/20/23/52/13/25/37/17/28/36/18/18/42/25/23/39/18/20/51/18/22/42/18/25/36/21/27/40/26/22/39/19/19/57/18/24/44/19/27/37/24/24/39/25/21/40/20/27/54/20/21/39/18/26/48/23/18/40/28/24/44/25/25/54/16/23/41/22/34/47/19/23/39/26/22/49/23/20/58/18/24/38/26/27/36/19/22/42/29/25/43/24/22/58/18/22/49/19/26/40/20/20/43/33/23/45/24/24/54/19/28/43/20/32/42/22/21/49/27/25/45/22/22/55/28/25/42/18/34/44/23/26/45/28/23/51/20/21/68/22/26/42/21/27/40/26/25/42/27/26/46/22/29/60/23/26/49/20/33/53/24/24/46/30/23/46/27/26/66/21/26/53/22/41/47/25/25/45/27/27/54/25/22/60/22/21/41/24/33/44/27/27/48/28/27/47/23/27/61/20/24/59/20/30/44/24/24/45/34/27/48/23/25/58/18/30/47/20/34/41/22/23/57/35/25/50/22/23/60/27/28/45/20/36/49/26/34/48/33/29/47/25/24/73/22/30/51/26/34/52/29/25/52/31/27/50/28/32/67/27/27/51/25/33/59/23/26/56/31/27/48/28/27/69/22/32/47/26/46/46/21/30/51/31/28/62/24/25/72/29/28/51/25/38/57/23/26/47/31/34/58/28/26/71/25/27/64/24/36/53/23/30/47/42/35/53/27/32/65/24/35/55/29/40/60/27/27/67/35/27/52/26/28/76/28/31/55/27/39/54/28/34/53/37/35/56/28/31/83/24/31/56/26/37/57/32/28/52/34/30/55/30/32/78/26/27/68/21/38/64/29/31/53/36/25/55/35/33/76/25/33/55/25/48/52/27/30/55/41/29/69/32/31/73/28/27/53/33/37/59/25/30/52/36/36/66/31/27/75/31/31/72/28/36/53/28/27/53/46/27/58/33/29/76/25/34/62/28/37/54/32/28/70/38/28/54/32/29/76/34/32/53/28/43/58/30/36/61/38/33/61/30/28/91/35/32/63/33/36/55/36/30/58/36/30/66/28/35/81/30/34/58/30/39/68/28/33/65/41/30/58/34/31/83/29/35/53/27/48/56/26/29/62/38/32/71/33/32/82/30/32/58/30/42/59/27/28/56/37/44/59/35/28/84/27/35/73/28/41/59/32/32/62/49/29/64/33/33/85/30/38/75/25/42/65/34/32/75/45/33/58/34/35/82/36/33/58/27/48/59/30/39/62/46/34/62/32/32/97/31/35/71/32/41/67/34/37/63/37/33/67/31/42/82/33/35/66/29/47/81/32/36/63/43/32/64/43/37/79/34/38/67/31/52/65/31/35/68/41/34/85/34/31/82/33/34/62/34/46/60/32/35/60/47/38/68/34/29/90/35/33/78/28/41/67/32/36/58/51/35/77/33/33/86/26/44/70/32/44/75/31/38/75/41/33/61/32/36/92/38/33/68/37/47/68/32/40/63/49/32/68/34/34/114/35/40/66/38/48/67/38/35/64/43/35/68/35/38/94/34/36/76/31/45/83/41/37/62/45/33/66/44/37/92/33/38/76/32/60/67/35/38/67/44/41/84/37/37/90/37/36/72/39/50/69/37/35/78/48/41/72/32/35/94/36/38/86/31/50/75/37/40/73/56/36/71/30/39/93/35/52/69/32/57/71/39/37/87/46/39/76/38/40/94/42/41/75/33/47/68/32/46/74/45/34/72/38/37/112/35/41/68/34/55/70/41/36/70/43/38/77/36/48/99/43/41/71/31/48/82/34/37/64/44/39/86/43/36/95/36/43/73/33/60/68/35/45/71/49/36/91/35/36/98/39/37/72/45/48/77/38/35/69/46/45/76/34/34/107/29/40/81/31/54/80/35/41/70/58/44/72/37/42/97/28/48/77/36/46/74/42/41/88/48/38/75/38/42/100/44/43/87/37/52/73/39/52/78/51/42/79/39/47/128/35/42/82/37/51/79/50/42/75/56/38/86/43/46/109/38/37/72/36/55/101/40/39/68/55/43/81/44/44/104/37/45/78/39/64/72/34/44/90/51/45/97/40/39/104/43/41/76/41/52/78/40/42/89/49/49/78/41/40/110/40/42/100/38/68/78/42/41/71/64/41/76/42/40/107/37/50/90/40/60/74/45/42/94/51/47/91/41/44/99/48/44/83/39/57/80/41/60/80/52/42/82/31/45/122/37/41/87/41/59/75/44/42/82/52/38/98/35/52/116/36/49/86/34/59/95/41/44/79/58/49/84/45/46/104/40/41/78/36/69/76/44/50/85/49/42/99/43/41/110/36/48/92/43/62/93/43/44/83/50/53/78/39/47/113/38/44/102/41/58/79/41/44/83/68/47/83/37/41/109/35/59/84/48/61/92/42/46/100/48/46/82/45/41/117/44/46/85/47/57/83/37/49/80/47/44/75/46/44/138/39/45/85/42/56/85/45/44/93/52/47/83/42/52/112/40/42/87/40/66/98/43/51/90/54/40/83/45/48/110/44/42/87/37/73/80/46/43/86/58/48/112/40/46/112/38/39/82/47/59/87/44/51/76/55/52/89/44/46/110/38/47/112/44/59/86/43/47/78/67/45/90/39/45/120/41/56/93/44/56/92/44/48/107/57/49/84/48/46/116/54/44/89/42/57/84/47/52/89/57/45/94/41/55/138/43/47/105/42/62/86/52/44/89/60/45/87/40/58/115/45/48/90/45/62/105/49/52/85/67/43/87/50/50/119/43/40/84/43/74/101/46/50/89/59/48/102/42/46/120/43/47/89/57/64/87/46/42/97/56/57/91/47/46/123/45/47/105/43/59/84/48/54/103/64/54/88/40/46/123/40/51/87/44/71/92/47/50/103/58/44/96/52/49/123/62/46/94/41/60/93/43/51/91/62/59/104/47/50/154/48/50/96/47/62/80/55/54/108/60/45/88/47/58/125/48/49/90/50/66/112/52/48/95/59/48/94/58/47/136/40/50/95/45/83/92/49/52/103/58/47/115/49/47/125/46/46/102/56/58/95/54/50/97/64/60/98/50/46/124/50/47/125/42/66/97/48/56/100/78/49/93/43/56/128/50/62/98/48/61/101/48/46/116/77/44/107/46/47/123/56/42/97/49/67/112/50/58/91/73/54/103/49/48/149/51/52/96/50/63/88/55/50/100/70/46/92/55/64/130/48/49/95/44/68/124/48/52/109/67/46/100/58/57/128/49/50/98/51/87/93/52/50/98/59/47/122/51/50/133/52/53/110/54/65/97/53/53/92/65/62/109/53/50/140/43/52/117/48/75/98/53/55/93/82/48/98/53/55/136/48/57/103/54/68/99/52/52/121/66/61/100/51/53/145/55/52/107/52/72/95/52/63/111/62/53/94/54/49/163/49/52/99/47/65/106/72/52/104/65/54/108/55/66/133/43/55/114/44/80/118/54/48/99/70/51/100/63/59/125/44/55/109/44/81/97/51/54/98/74/51/122/49/51/142/57/50/108/58/65/113/51/53/102/66/61/104/53/55/139/47/61/122/55/71/96/53/50/107/82/54/113/55/56/147/52/64/100/52/70/107/54/53/138/69/57/104/55/56/137/62/47/108/52/81/106/50/72/104/64/54/102/49/53/165/54/50/105/45/66/107/62/54/116/68/56/112/53/63/137/51/55/105/57/72/122/52/59/106/75/52/105/64/53/139/51/63/105/55/85/115/55/61/115/71/59/131/56/56/165/56/48/108/62/80/102/56/58/100/68/70/106/60/58/140/49/58/124/50/72/110/60/53/109/85/61/112/52/55/143/55/65/118/50/70/102/53/60/136/76/55/102/59/60/140/65/50/117/48/73/106/55/69/106/81/58/113/51/62/171/45/49/111/49/86/113/69/54/108/70/53/105/53/70/138/50/60/125/46/77/127/61/52/105/73/59/109/73/57/147/49/57/108/48/88/107/60/61/127/71/53/132/54/64/138/52/58/101/61/90/115/55/57/101/72/77/126/57/58/149/51/57/131/54/72/107/55/55/111/90/57/131/55/58/147/52/70/111/54/72/110/50/68/129/77/52/109/54/61/158/61/57/110/59/71/112/55/67/117/72/53/114/54/57/190/54/56/110/59/77/107/68/58/107/69/65/113/59/69/151/53/59/114/59/73/136/68/56/113/74/57/122/70/57/165/54/62/127/50/95/119/56/58/114/75/57/131/61/65/148/54/55/112/60/81/109/56/59/113/78/75/119/58/57/154/58/60/139/54/83/121/60/61/122/87/59/114/54/57/147/55/79/116/56/73/108/61/59/143/78/60/127/66/58/150/64/61/114/51/85/108/60/75/128/79/62/120/58/64/189/59/63/121/58/82/114/69/58/105/74/62/114/53/68/154/70/57/114/54/73/139/53/64/109/74/63/126/69/62/149/51/60/122/53/94/123/58/65/103/75/61/150/54/57/152/60/55/117/70/84/118/62/60/105/89/73/121/57/61/167/54/64/145/55/81/112/61/70/119/92/68/115/55/61/159/58/70/117/65/84/126/60/63/144/76/56/121/63/56/154/68/67/145/63/75/119/56/79/121/82/64/116/63/70/184/59/66/115/54/80/117/76/64/122/87/61/123/61/77/176/57/58/118/51/83/159/64/61/118/82/66/120/77/68/167/56/72/130/55/101/127/65/61/122/76/65/148/64/53/167/61/65/121/69/84/123/59/61/140/76/73/121/59/60/167/59/59/144/65/90/110/69/62/121/89/69/126/61/59/159/67/71/118/64/90/130/58/61/144/75/63/132/63/60/160/73/61/131/56/85/115/63/86/119/84/64/139/57/64/198/68/62/124/61/77/116/70/59/118/85/62/120/57/84/175/60/67/115/53/87/142/63/63/112/82/72/140/77/64/163/55/62/128/58/107/122/69/64/126/86/64/138/69/69/166/65/63/138/70/83/114/59/73/122/82/77/119/61/70/166/60/64/143/57/81/132/59/68/124/102/68/132/64/68/156/63/75/128/63/86/141/58/61/139/75/67/126/63/65/169/70/87/123/54/93/121/63/75/127/85/68/135/74/64/218/55/67/129/52/82/127/84/63/144/80/65/118/65/80/164/61/67/126/60/98/149/62/68/127/88/70/130/71/73/172/66/65/134/54/103/128/65/65/138/79/70/169/72/70/173/63/67/129/70/89/126/68/75/127/81/79/133/69/71/177/60/66/163/65/93/124/67/63/124/96/64/132/64/67/198/64/79/136/56/90/120/64/67/151/83/74/125/67/64/169/79/73/130/60/86/125/73/81/140/86/70/131/65/74/204/63/67/147/64/89/128/78/64/127/84/65/145/63/89/186/62/72/132/64/87/168/66/61/127/110/66/130/77/69/174/58/73/127/61/103/143/71/79/132/84/76/162/71/69/172/64/76/136/73/87/144/61/63/128/87/78/132/75/65/167/61/64/166/70/98/130/68/63/141/97/67/147/63/65/171/69/87/129/70/101/135/65/67/150/87/70/131/76/74/191/91/68/131/66/89/128/62/80/131/87/73/157/74/69/216/67/74/140/74/98/127/79/74/132/89/76/134/71/87/182/64/74/153/71/96/161/66/65/146/87/70/139/79/73/202/67/73/133/55/107/133/73/75/138/81/77/167/75/69/177/63/73/129/75/99/132/78/72/126/87/81/140/63/72/178/62/73/195/61/92/137/69/69/146/111/66/144/68/75/173/74/84/126/65/91/151/61/65/161/99/72/140/71/77/177/76/68/132/59/98/147/68/84/138/93/70/153/72/67/222/64/79/140/61/100/132/84/68/142/99/68/132/73/95/192/64/72/141/61/91/162/71/76/152/85/69/145/81/75/190/60/76/142/66/123/154/77/71/138/81/69/163/69/71/180/72/73/132/84/91/136/69/66/119/87/86/161/75/68/195/61/83/163/72/90/148/74/79/144/109/77/135/77/74/198/66/89/140/75/95/146/68/77/159/98/73/147/72/73/218/78/71/138/69/101/138/68/80/145/108/82/143/69/77/216/69/82/137/70/101/138/96/69/150/86/77/156/65/93/185/70/75/150/61/98/161/76/81/142/95/72/140/80/88/194/71/80/144/61/130/140/73/72/138/102/78/190/72/75/191/77/78/164/80/98/156/77/69/140/96/92/146/71/71/184/72/76/187/76/94/138/74/74/150/111/67/148/74/79/183/69/91/138/73/107/145/66/76/188/95/69/163/72/72/193/82/72/149/72/109/138/76/94/151/105/78/140/64/67/241/74/75/148/66/94/145/84/79/152/97/82/166/77/83/190/69/75/141/69/101/184/71/81/137/99/78/137/85/70/202/70/78/149/89/117/142/75/73/145/91/75/177/73/76/211/70/89/138/85/97/149/79/70/142/91/105/149/73/71/218/66/72/176/69/92/142/86/69/138/114/70/151/80/78/194/69/89/165/68/108/147/76/75/177/99/81/148/77/83/187/83/69/153/75/104/145/77/89/169/105/78/149/72/79/239/71/71/151/76/95/175/101/72/144/94/82/144/79/91/188/73/77/151/71/112/172/81/78/147/95/71/141/98/74/191/71/80/159/70/122/151/81/73/162/100/81/183/79/82/195/79/78/146/88/107/152/76/76/136/93/95/166/73/77/205/78/80/170/75/99/146/77/74/144/119/77/178/73/81/192/77/97/154/80/103/162/77/83/178/117/83/151/68/77/206/100/76/148/76/99/146/77/101/154/94/78/151/67/82/268/73/73/162/70/103/160/102/79/147/100/90/162/76/94/205/73/77/157/77/115/186/92/73/145/96/79/151/95/78/206/78/82/161/72/119/150/83/84/155/96/83/180/76/87/231/72/77/157/84/121/158/79/75/168/104/93/153/75/78/210/75/75/186/72/103/171/77/75/168/113/89/162/81/79/198/71/108/157/75/108/152/79/75/195/105/83/159/93/82/204/91/82/150/67/100/154/79/94/161/107/84/166/71/89/258/72/82/154/79/123/147/87/76/145/99/82/162/76/94/200/82/87/175/77/106/193/75/74/160/107/85/163/93/76/198/78/75/147/77/126/152/78/95/150/105/80/189/79/89/206/74/83/157/98/108/167/76/80/150/104/95/176/76/86/229/73/80/183/80/103/152/78/85/153/135/88/152/77/77/203/67/102/160/81/112/164/86/83/188/112/89/172/85/80/212/82/82/174/76/101/162/85/99/158/104/81/158/80/92/254/76/83/157/77/116/157/95/82/155/106/87/155/74/106/217/75/81/156/79/108/205/81/79/147/104/84/151/98/79/236/76/86/154/77/131/150/78/80/155/99/81/191/98/82/210/74/73/167/98/98/157/79/77/176/107/110/157/77/74/214/74/81/183/78/127/163/81/86/167/116/77/152/79/86/206/84/98/160/68/103/155/91/74/191/107/83/194/84/79/209/81/81/158/73/126/157/84/106/176/104/84/161/74/76/251/82/87/182/88/107/157/93/83/161/103/97/168/77/98/250/90/85/151/74/117/190/76/86/161/105/99/159/105/94/218/79/83/170/77/132/159/84/82/168/102/83/213/81/86/224/81/81/189/97/105/163/80/88/161/114/102/166/87/86/211/83/91/204/78/110/165/77/99/158/142/81/169/83/89/223/72/107/159/86/115/192/73/79/197/116/88/169/80/86/217/87/94/162/87/119/183/78/99/168/110/86/166/86/86/267/80/95/161/82/118/164/101/85/189/119/85/163/88/98/233/80/85/160/79/126/199/84/84/164/118/84/169/108/90/225/89/84/165/77/134/158/84/90/162/105/94/233/88/82/210/71/83/183/96/112/171/96/95/178/106/104/159/79/94/220/77/86/208/87/113/159/94/84/163/121/92/166/86/86/243/78/106/167/72/133/164/80/93/197/108/100/165/87/86/216/98/93/200/85/113/170/89/99/174/114/83/167/76/86/274/85/83/185/77/122/169/99/88/170/106/80/178/77/121/219/80/90/171/75/112/200/94/85/157/125/83/186/98/79/224/70/80/169/72/140/182/82/92/175/110/89/198/91/83/212/82/101/170/98/111/167/86/91/167/112/110/172/96/90/230/76/85/200/81/116/173/82/87/184/138/91/176/91/90/227/87/108/172/82/134/185/78/89/208/113/90/157/83/87/238/104/93/163/83/125/157/91/106/182/106/92/194/79/93/292/76/97/163/84/123/160/102/95/180/104/91/169/91/100/225/86/88/167/96/112/193/86/95/171/111/97/171/105/81/251/88/82/177/81/144/175/86/94/190/100/101/207/94/93/238/83/103/174/98/114/165/106/98/166/119/107/180/81/89/219/84/85/228/82/119/188/78/96/172/145/82/183/85/101/226/88/109/195/80/117/174/83/95/202/134/90/182/92/88/228/109/83/172/76/117/184/86/100/163/118/90/169/86/108/271/80/97/177/85/132/160/102/86/182/111/88/186/97/107/228/91/86/188/87/114/214/82/93/195/130/85/171/102/84/240/80/89/176/92/158/173/94/97/182/111/87/207/90/89/232/93/98/166/105/124/195/90/83/167/114/108/195/89/84/231/78/86/215/96/125/185/89/105/169/139/85/175/92/87/247/75/114/187/100/126/171/81/96/226/113/80/180/86/87/272/94/90/185/89/116/172/89/104/166/116/109/185/94/85/282/88/92/180/93/117/166/108/95/170/106/93/176/92/108/239/95/90/198/84/117/214/87/87/191/118/88/182/107/95/251/86/92/174/83/142/171/94/91/173/125/100/229/89/90/242/96/97/181/106/132/195/88/92/168/115/112/176/95/88/239/88/101/238/99/136/182/93/96/173/138/86/180/104/95/244/88/111/175/90/114/195/91/96/244/115/91/182/95/98/236/105/92/177/91/125/179/92/125/181/124/91/195/95/87/281/102/90/181/87/126/190/93/91/175/141/93/204/83/103/244/91/102/188/90/116/211/93/118/177/121/93/194/102/93/256/89/93/182/95/148/199/91/94/180/117/88/218/93/95/262/96/93/184/114/125/178/93/95/182/120/125/182/95/92/246/87/101/226/90/129/178/104/95/173/141/90/191/96/96/273/84/104/220/89/117/178/88/91/214/127/94/191/96/101/242/110/95/202/90/133/185/96/119/183/136/99/184/89/93/303/89/93/191/92/126/203/122/96/210/120/102/177/90/115/247/98/105/182/92/128/209/101/90/193/124/96/175/123/92/241/86/93/186/90/164/194/100/98/211/123/104/227/96/89/259/98/87/199/104/136/184/94/90/190/119/110/182/96/90/245/109/96/224/96/121/188/101/98/176/150/95/211/100/102/252/87/116/189/97/122/183/93/108/215/138/97/215/88/96/249/118/99/197/102/120/184/87/112/179/133/96/189/89/94/329/96/95/204/98/129/181/116/107/186/124/103/188/96/109/252/93/97/179/91/121/254/104/95/186/116/97/183/118/93/261/86/87/209/107/155/189/91/105/189/121/97/233/107/107/249/95/100/189/123/129/182/94/94/203/148/113/194/93/95/264/95/90/229/89/120/215/96/92/182/152/99/214/108/107/243/92/123/203/100/138/183/85/95/223/125/99/199/105/96/255/115/111/188/94/126/185/104/114/225/130/98/193/96/97/298/97/108/195/102/142/199/120/91/186/128/102/197/99/113/257/106/93/213/88/145/224/94/93/187/135/100/209/117/97/253/97/105/211/86/170/199/101/109/188/123/94/232/97/104/257/104/103/202/120/130/199/104/102/193/123/121/191/94/110/295/97/98/245/90/132/194/93/94/199/159/109/221/96/97/261/77/127/197/91/137/190/117/93/234/135/100/194/93/106/264/112/97/212/91/126/191/93/124/202/123/105/192/99/114/324/101/110/194/97/140/220/119/98/191/140/101/197/96/118/284/93/101/193/106/121/254/98/104/184/134/99/192/117/102/254/96/128/195/103/161/193/103/101/196/133/101/235/113/93/286/108/99/194/124/135/185/98/90/219/132/117/191/108/99/260/103/99/230/98/151/205/102/110/200/147/118/205/95/101/258/101/118/206/94/135/206/98/100/259/124/98/219/96/91/264/129/104/196/100/130/195/103/130/202/144/104/204/86/99/316/102/104/208/110/156/200/117/101/196/146/103/214/96/118/301/98/102/211/94/134/233/100/109/223/141/112/200/122/108/266/105/103/202/103/162/200/113/113/196/126/95/248/98/105/269/113/99/217/120/139/194/93/104/195/136/135/211/103/110/269/102/98/255/99/127

ysr

输出结果：
1/2/3/4/5/6/7/8/9/10/11/12/13/14/15/16/17/18/19/20/
21/22/23/24/25/26/27/28/29/30/31/32/33/34/35/36/37/38/39/40/
41/42/43/44/45/46/47/48/49/50/51/52/53/54/55/56/57/58/59/60/
61/62/63/64/65/66/67/68/69/70/71/72/73/74/75/76/77/78/79/80/
81/82/83/84/85/86/87/88/89/90/91/92/93/94/95/96/97/98/99/100/
101/102/103/104/105/106/107/108/109/110/111/112/113/114/115/116/117/118/119/120/
121/122/123/124/125/126/127/128/129/130/131/132/133/134/135/136/137/138/139/140/
141/142/143/144/145/146/147/148/149/150/151/152/153/154/155/156/157/158/159/160/
161/162/163/164/165/166/167/168/169/170/171/172/173/174/175/176/177/178/179/180/
181/182/183/184/185/186/187/188/189/190/191/192/193/194/195/196/197/198/199/200/
202/203/204/205/206/207/208/209/210/211/212/213/214/215/216/217/218/219/220/221/
222/223/224/225/226/227/228/229/230/231/232/233/234/235/236/238/239/240/241/242/
243/244/245/246/247/248/249/250/251/252/253/254/255/256/257/258/259/260/261/262/
264/266/267/268/269/271/272/273/274/281/282/284/286/292/295/298/301/303/316/324/
329/

ysr

准备用于给合数分解因子后排序并合并相同因子的程序代码：
Private Sub Command1_Click()

Dim s
s = Trim(Text1)
s1 = paixu1(Trim(s))

Text2 = s1

End Sub

Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "*")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
    Print ak(1)
     
        For k = 1 To j1
           
             ReDim Preserve cr(1 To k)
            m = Val(ak(k))
            f(m) = ""
      Next
   
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For j = i + 1 To UBound(cr)
            If cr(i) > cr(j) Then
                temp = cr(j)
                cr(j) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next j
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & "/" & cr(i) & vbCrLf
        Else
          s104 = s104 & "/" & cr(i)
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
     paixu1 = s104
End Function

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Form1.Cls
End Sub

ysr

如下这个可调用排序程序，其实主要是用于去掉或者合并分解因子后的相同的因子并重新排列的程序，代码如下：
Private Function paixu1(a As String) As String
Dim i As Integer
Dim ak(), s105, cr(), f
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "*")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
      Print ak(n1)
    Next
   
     
        For k = 1 To j1
           
             ReDim Preserve cr(1 To k)
            m = Val(ak(k))
            f(m) = ""
      Next
   
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For j = i + 1 To UBound(cr)
            If cr(i) > cr(j) Then
                temp = cr(j)
                cr(j) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next j
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & "/" & cr(i) & vbCrLf
        Else
          s104 = s104 & "/" & cr(i)
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
     paixu1 = s104
End Function

ysr

如下程序是用于计算波动因子k的可调用程序，代码如下：

Private Function paixu12(a As String, sb As String) As String
Dim i As Integer
Dim ak(), s105, cr(), k
s103 = a
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   k = 1
   For k1 = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
      k2 = ak(n1)
      Print ak(n1)
     If k2 <> 2 And k2 < Val(sb) Then
     k = k * (k2 - 1) / (k2 - 2)
     Else
     k = k
     End If
    Next
    paixu12 = k
End Function