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

Private Sub cmdStart_Click()
Dim i As Integer‘定义i为整形变量
For i = 0 To 4’i从0 到 4 进行5次循环
If option1(i).Value Then‘如果选中了第i+1注（单选框第一到第五注是option1（0） 到option1（4））
Exit For’如果满足，退出for循环
End If‘结束判断
Next’for循环的结束语句
base = i * 7‘上面利用一个循环把你选中的第几注赋值给了i 此时把i*7赋值给变量base cmdStop.Enabled = True’把停职按钮的可用性变为true 即让停止按钮可用
cmdStart.Enabled = False‘让开始按钮不可用
cmdAuto.Enabled = False‘让自动按钮不可用
cmdStop.SetFocus’让停止按钮获得焦点（就是那一圈围着按钮的特别细的虚线）
start = True’令变量start的逻辑属性为真
Do While start‘这是一个do loop循环 如果start为真就一直循环
Randomize Timer’让随机数每次都不一样，
i = Rnd() * 6‘让i取1到6的随机数
lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))
'这里lblNum(i + base).Caption 指的是第几个幸运号码框，base是之前判定了的你选的第几注乘以了6（每行6个），也就是从第几行开始，i是随机的，后面的代码trim是去掉两边的空格，str是把内容改为字符串格式，int是取整，后面那个没看太懂，个人觉得这块有错，
DoEvents‘转让控制权，以便让操作系统处理其它的事件
If auto Then’如果auto为真（就是点了自动按钮）
If Timer - sTime > sDiff Then‘这缺少相应的在通用声明区的定义语句，看不太懂
Exit Do’跳出do loop循环
End If‘结束判断
End If’结束判断
Loop
End Sub
Private Sub cmdStop_Click()’停止按钮的单击事件
cmdStop.Enabled = False‘停止按钮不可用
i = 0’让i=0
Do While True‘do loop循环，这个循环判定条件一直是真，通过内部的结束循环语句来结束循环
lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))’同之前的
i = i + 1‘i从0开始依次累加
If i = 7 Then
Exit Do’如果i=7 结束循环
End If
p = Rnd / 5‘在0 到0.2中随机取值
N = Timer’n为系统计时器数值
Do While Timer - N < p‘
Randomize Timer
r = Rnd() * (6 - i) + i’让r在i到6-i间随机取值
lblNum(r + base).Caption = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents‘转让控制权，以便让操作系统处理其它的事件
Loop
Loop
start = False‘start属性变为false
cmdStart.Enabled = True’开始按钮可用
cmdAuto.Enabled = True‘自动按钮可用
cmdStart.SetFocus‘开始按钮得到焦点
End Sub
Private Sub Form_Load()’窗体加载事件
cmdStop.Enabled = False‘停止按钮不可用
For i = 0 To 34
lblNum(i).Caption = ""
Next’把34个数值全清空
End Sub
Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)‘lblNum的鼠标按下事件
Dim r As Integer
If (Not start) And (Not auto) Then’如果没开始，没点自动
r = Index Mod 7‘index意思是第几个，从0开始，比如第一行的第二个index就是1，第二行的第一个index就是7. mod 7 就是对7 取余取出来的数值表示他是这一行的第几个。
manu = True’令menu为真
Do While manu
lblNum(Index) = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents‘转让控制权，以便让操作系统处理其它的事件
Loop
End If
End Sub
Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
manu = False‘鼠标松开时，menu为假，停止上面鼠标按下事件当中的循环。
End Sub
你这个代码有不少没定义的东西，第一个过程前面是通用声明区，里面应该会有几个定义的内容，不过你没发上来，所以有些东西暂时解释不了。
而且这里没有那个“自动”按钮的代码。
水平有限 还望采纳。

如何下载彩票走势图

去彩神通软件
。走势图一堆堆的。就怕你不会用，我用到现在还有很多东西不会用

完美国际 完美活动助手"旺财"在那??

我记得在城西那个小院子里就是做石头任务的那个，要是不对你就从完美百科里面查找有一项是查NPC的

梦见一捆纸钱放水里拎起来就融化了什么意思

一场空梦，无谓，纸钱而已

梦见小孩跟我一起睡觉什么意思

你喜欢小孩呗

上一篇：年龄婚配相克表(十二属相婚配表相克)

下一篇：微信塔罗牌占卜可信吗(塔罗占卜我在他心里吗)