明天vb答辩，代码不懂，小妹妹在此求大神帮忙，本人镇楼

Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, j As Integer, d As Integer Dim a As String d = 1 For i = 0 To 34 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i'1-7排序并去初重复aa: For i = 1 To 6 For j = 0 To i If Val(Text1(j).Text) > Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 0 To 6 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 1 For i = 0 To 6 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo aa End If Next j'7-14排序并去处重复bb:
For i = 8 To 13
For j = 7 To i
If Val(Text1(j).Text) < Val(Text1(i).Text) Then
a = Text1(i).Text
Text1(i).Text = Text1(j).Text
Text1(j).Text = a
End If
Next j
Next i
For j = 7 To 13
If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then
d = 15
For i = 7 To 13
Text1(i).Text = Mid$(GenNnm, d, 2)
d = d + 2
Next i
GoTo bb

End If Next j'14-21排序并去处重复cc: For i = 15 To 20 For j = 14 To i If Val(Text1(j).Text) < Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 14 To 20 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 29 For i = 14 To 20
求大神，求翻译，很急的。翻译出来小女子必粉。