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，上述鼠標按下事件中的循環停止。
末端接頭
僅此而已，望采納。