Question

一个“彩票选号小助手”的Visual Basic（VB）的程序代码。下面是设计界面，求高人逐字逐句解释代码

Option Explicit
Private 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

Answer 1

急着用么？能不能等等我到暑假给你解释？在期末考期间呢，没时间逐字逐句啊

Answer 2

你还不如提出要求，让别人帮你做。改程序比写程序难多了。

Answer 3

逐字解释，莫说50分，就是50￥也不稀罕，50$可以考虑