求大神帮我解释一段vb代码,感激不尽,是彩票选号小助手的
发布网友
发布时间：2022-04-26 23:31
共2个回答
热心网友
时间：2022-06-20 04:22
Private Sub command1_Click()
N = -1
For i = 0 To 4
N = N + 1
If option1(i).Value = True Then Exit For
End If
Next i
Dim a(1 To 7) As Integer
For i = 0 To N
For j = 1 To 7
Randomizea(j) = Int(Rnd * 35 + 1)'随机生成号码
Next j
For k = 1 To 7
For m = k + 1 To 7
If a(k) = a(m) Then v = Int(Rnd * 35 + 1)
Do While v = a(1) Or v = a(2) Or v = a(3) Or v = a(4) Or v = a(5) Or v = a(6) Or v = a(7)
v = Int(Rnd * 35 + 1)
Loop
a(k) = v'发现重复的号码，重新生成
End If
Next m
Next k
For k = 1 To 7
For m = k + 1 To 7
If a(k) > a(m) Then
X = a(k)
a(k) = a(m)
a(m) = X
End If
Next m
Next k
Text1(i) = Format(a(1), "00")
Text2(i) = Format(a(2), "00")
Text3(i) = Format(a(3), "00")
Text4(i) = Format(a(4), "00")
Text5(i) = Format(a(5), "00")
Text6(i) = Format(a(6), "00")
Text7(i) = Format(a(7), "00")
Next i'设置输出格式
End Sub
追问能帮我解释下每句的意思吗
热心网友
时间：2022-06-20 04:23
劲很快就认出了一个球员，广州粤海的邱光朔，大概是希望能够有机会做一次成功的传中球，毕竟那个在甲B联赛里很进过一些球的过气中锋在禁区里还是比较有威胁。
并且看皮球划出的弧线和力量，它还会落在禁区里靠进小禁区的地方；
