Visualbasic游戏
Dim i As Integer“”将I定义为整数变量。
对于i = 0到4，I从0到4循环5次。
如果选项1 (i)。如果选择了注释i+1，则值为“Then”(单选框中的第一个到第五个注释是选项1(0)到选项1(4))。
如果是，退出for循环。
End If ' '结束判断
Next'for循环的End语句
Base = i * 7 ' '上面用一个循环把你选择的音符数赋给I，此时i * 7赋给变量base cmdStop。Enabled = True“暂停按钮的可用性变为True，也就是说，停止按钮变为可用。
CmdStart。Enabled = False ' '使开始按钮不可用。
CmdAuto。Enabled = False ' '使自动按钮不可用。
让停止按钮获得焦点(即按钮周围特别细的虚线)
' Start = True '使变量Start的逻辑属性为True。
这是一个Do循环。如果start为true，它将一直循环。
让随机数每次都不一样，
I = Rnd() * 6 ' '让我从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转移控制，以便操作系统可以处理其他事件。
如果auto为真(即单击auto按钮)
如果Timer-sTime & gt；在通用声明区缺少相应的定义语句，所以我不能很好地理解。
退出t跳出do循环的循环。
End If ' '结束判断
不要结束审判。
环
末端接头
Private Sub cmdStop_Click()'停止按钮的Click事件。
CmdStop。Enabled = False“”停止按钮不可用。
我=0 '让我= 0
Do While True'do loop循环循环，循环判断条件始终为真，循环由内部end loop语句结束。
Llbnum (I+base)。caption = trim(str(int(rnd()* IIF(I = 6，5，10))和之前一样。
I = I+1' I从0开始累加。
如果i = 7，那么
如果i=7，则不结束循环。
如果…就会结束
P = Rnd/5”取0到0.2之间的随机值。
N = Timer'n是系统定时器值。
当定时器-N & lt；p '
随机化计时器
r = Rnd()*(6-i)+我让r取一个从I到6-I的随机值。
lblNum(r + base)。caption = Trim(Str(Int(Rnd()* IIf(r = 6，5，10)))
DoEvents转移控制，以便操作系统可以处理其他事件。
环
环
“start = false”start属性变为false。
CmdStart。“Enabled = True”开始按钮可用。
CmdAuto。Enabled = True ' '自动按钮可用。
CmdStart。SetFocus ' '开始按钮获得焦点。
末端接头
私有子窗体_Load()'窗体加载事件
CmdStop。Enabled = False“”停止按钮不可用。
对于i = 0到34
lblNum(i)。标题= " "
清除所有34个值。
末端接头
private sublbnum _ mousedown(index为整数，button为整数，shift为整数，x为single，y为single)' lblnum的鼠标按下事件。
将r标注为整数
If(不启动)和(不自动)如果它不启动就不会自动启动。
R = Index Mod 7'index表示哪个数，从0开始。例如，第一行的第二个索引是1，第二行的第一个索引是7。mod 7是通过取7的余数得到的值，以表示它是这一行中的哪个数字。
Manu = True使菜单为真。
做的时候manu
LBL num(Index)= Trim(Str(Int(Rnd()* IIf(r = 6，5，10)))
DoEvents转移控制，以便操作系统可以处理其他事件。
环
如果…就会结束
末端接头
Private Sub lblNum_MouseUp(Index为整数，Button为整数，Shift为整数，X为Single，Y为Single)
Manu = False ' '释放鼠标时，菜单为False，上述鼠标按下事件中的循环停止。
末端接头
仅此而已，望采纳。