好了，程序代碼我解釋的很清楚了。如果還是不懂，可以加我Q問我。[代碼] EventForm 1。定時器1。定時器//根據定時周期執行事件。
s = form 1 . slider 1 . value+1//這句話的意思是設定難度。為什麽+1？因為在開始的時候，滑塊的值是0。如果不加1，那麽進度條就不完了-1//為什麽要設置在這裏？它和子程序中的變量是壹樣的。壹定要註意，否則就是空值。
表格1。ProgressBar 1。value = I//這句話是讓進度條等於I這樣我們就可以把I加到進度條上就可以走了，因為我們加了I，我們就把它放在時鐘裏了。
i = i + S
如果我& gt= 100然後//進度條到最後的時候讓他初始化，也就是I=1四個箭頭是隨機的。
i = 1
稱四箭隨機()
如果…就會結束
結束事件
事件表單1。Load //初始化設置時間周期。
表單1。定時器1。啟用=真
//默認定時器已經啟動，所以應該先停止。
表格1。定時器1。interval = 100//設置定時器周期的間隔(單位:ms)。
表單1。ProgressBar1。值= 100
隨機//初始化隨機學生
稱四箭隨機()
//If Form1。Slider1。那麽值= 1
//S = 1
//ElseIf FORM1。Slider1。那麽值= 2
//S = 2
//
//結束If
延遲100
結束事件
子四箭隨機()
form 1 . label 1 . caption = MID("←→←→"，1+6 * RND+1，1)//如果妳不懂這個，沒有
延時100 //如果要註冊這個延時，壹定要加，因為隨機數是要計算的，而且表格剛加載的時候，讓它隨機加四，有時候會是空白的，不會出現。
form 1 . label 2 . caption = mid("←→←→"，1+6 * RND+1，1)//必須用這種格式寫值，不能更改。如果妳改變他們，妳會犯錯誤。我只是說了這個理由。
延遲100
form 1 . label 3 . caption = mid("←→←→"，1+6 * rnd+1，1)//這樣做的作用是讓四個箭頭隨機變化。流程能在這裏進行是因為我們意識到重啟時會調用進度條。
延遲100
表單1。label 4 . Caption = MID("↑↓↓→↑↓→"，1+6 * rnd + 1，1)
末端接頭
事件表單1。ComboBox1。選擇更改
select case form 1 . combobox 1 . listindex//下面是當用戶選擇壹個星號時，如果選擇發生變化，將執行的代碼。當SELECT為壹星時，設滑塊等於1，2星為2。
案例1
表格1。滑塊1。value = 1//設滑塊分別為壹顆星時等於1。
案例2
form 1 . slider 1 . value = 2//2壹顆星是2。
案例3
表格1。滑塊1。Value = 3//3壹顆星是3。
案例4
form 1 . slider 1 . value = 3//4星是4。
結束選擇
結束事件[/code]嗯，是10: 00和10: 00。這個程序已經完整編碼了，註釋非常清楚。其他的就不用我說了。自己找，不懂就問我。[代碼] EventForm 1。定時器1。定時器//根據定時周期執行事件。
選擇案例表單1。列表框1。列表索引
案例0
我是壹條魚。Play("c:\我是壹條魚。mp3 "，0)
案例1
Id=老鼠愛吃米飯。Play("c:\ Mouse愛大米。mp3 "，0)
案例2
Id=QQ愛。玩(" c:\QQ愛。mp3 "，0) //播放列表框中的歌曲，選擇播放哪壹首。
案例3
Id=網戀。玩(" c:\網戀。mp3 "，0)
結束選擇
s = form 1 . slider 1 . value+1//這句話的意思是設定難度。為什麽+1？因為剛開始的時候，滑塊的值是0，所以如果不加1，進度條是不會結束的——1。
表格1。ProgressBar 1。value = I//這句話是讓I等於進度條，這樣我們把I加到進度條上就走了，因為我們把I加進去，我們把它放在時鐘裏。
i = i + S
如果form1。復選框1。那麽值= 1
表單1。Label1.caption = "OK "
延遲30
表單1。Label2.caption = "確定"
延遲30
form 1 . label 3 . caption = " OK "//這四行是自動按鍵的代碼。
延遲30
表單1。Label4.caption= "確定"
如果…就會結束
如果form1.label4.caption = "OK "那麽//如果第四個箭頭沒問題，說明壹切都按對了。如果妳按下空格鍵，好就會出現。
如果form1。選項框1。那麽值= 1
form 1 . label 5 . caption = " good "//這句話的意思是如果選擇了自動輔助，就不用按空格了。
a=0
i = 1
稱四箭隨機()
如果…就會結束
kk = GetLastKey()
如果KK =“32”那麽
表單1。Label5.caption = "好"
a=0
i = 1
稱四箭隨機()
如果…就會結束
如果…就會結束
如果我& gt= 100然後//進度條到最後的時候讓他初始化，也就是I=1四個箭頭是隨機的。
i = 1
表格1。label5。caption = " MISS "//這句話的意思是，如果進度完成，沒有按下鍵，就會錯過。
稱四箭隨機()
如果…就會結束
結束事件
事件表單1。Load //初始化設置時間周期。
表單1。Label5.caption = "分數"
表單1。定時器1。啟用=真
//默認定時器已經啟動，所以應該先停止。
表格1。定時器1。interval = 100//設置定時器周期的間隔(單位:ms)。
表單1。ProgressBar1。值= 100
隨機//初始化隨機學生
稱四箭隨機()
//If Form1。Slider1。那麽值= 1
//S = 1
//ElseIf FORM1。Slider1。那麽值= 2
//S = 2
//
//結束If
延遲100
結束事件
子四箭隨機()
form 1 . label 1 . caption = MID("←→←→"，1+6 * RND+1，1)//如果妳不懂這個，沒有
延時100 //如果要註冊這個延時，壹定要加，因為隨機數是要計算的，而且表格剛加載的時候，讓它隨機加四，有時候會是空白的，不會出現。
form 1 . label 2 . caption = mid("←→←→"，1+6 * RND+1，1)//必須用這種格式寫值，不能更改。如果妳改變他們，妳會犯錯誤。我只是說了這個理由。
延遲100
form 1 . label 3 . caption = mid("←→←→"，1+6 * rnd+1，1)//這樣做的作用是讓四個箭頭隨機變化。流程能在這裏進行是因為我們意識到重啟時會調用進度條。
延遲100
表單1。label 4 . Caption = MID("↑↓↓→↑↓→"，1+6 * rnd + 1，1)
末端接頭
事件表單1。ComboBox1。選擇更改
select case form 1 . combobox 1 . listindex//下面是當用戶選擇壹個星號時，如果選擇發生變化，將執行的代碼。當SELECT為壹星時，設滑塊等於1，2星為2。
案例1
表格1。滑塊1。value = 1//設滑塊分別為壹顆星時等於1。
案例2
form 1 . slider 1 . value = 2//2壹顆星是2。
案例3
表格1。滑塊1。Value = 3//3壹顆星是3。
案例4
form 1 . slider 1 . value = 3//4星是4。
結束選擇
結束事件
子左()
選擇案例a
案例0
如果form1。Label1。Caption = form1。按鈕2 .標題
form 1 . label 1 . caption = " OK "//本來想讓他變紅，但是鍵的QUI不那麽穩定。他沒有顏色屬性，我只好寫壹個OK。
a = 1
如果…就會結束
案例1
如果form1。Label2.Caption = form1。按鈕2 .標題
form 1 . label 2 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 2
如果…就會結束
案例2
如果form1。Label3.Caption = form1。按鈕2 .標題
form 1 . label 3 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 3
如果…就會結束
案例3
如果form1。Label4.Caption = form1。按鈕2 .標題
form 1 . label 4 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 0
如果…就會結束
結束選擇
末端接頭
Sub()
選擇案例a
案例0
如果form1。Label1。Caption = form1。按鈕1。標題然後
form 1 . label 1 . caption = " OK "//本來想讓他變紅，但是鍵的QUI不那麽穩定。他沒有顏色屬性，我只好寫壹個OK。
a = 1
如果…就會結束
案例1
如果form1。Label2.Caption = form1。按鈕1。標題然後
form 1 . label 2 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 2
如果…就會結束
案例2
如果form1。Label3.Caption = form1。按鈕1。標題然後
form 1 . label 3 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 3
如果…就會結束
案例3
如果form1。Label4.Caption = form1。按鈕1。標題然後
form 1 . label 4 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 0
如果…就會結束
結束選擇
末端接頭
Sub()
選擇案例a
案例0
如果form1。Label1。Caption = form1。按鈕3 .標題
form 1 . label 1 . caption = " OK "//本來想讓他變紅，但是鍵的QUI不那麽穩定。他沒有顏色屬性，我只好寫壹個OK。
a = 1
如果…就會結束
案例1
如果form1。Label2.Caption = form1。按鈕3 .標題
form 1 . label 2 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 2
如果…就會結束
案例2
如果form1。Label3.Caption = form1。按鈕3 .標題
form 1 . label 3 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 3
如果…就會結束
案例3
如果form1。Label4.Caption = form1。按鈕3 .標題
form 1 . label 4 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 0
如果…就會結束
結束選擇
末端接頭
右下()
選擇案例a
案例0
如果form1。Label1。Caption = form1。按鈕4 .標題
form 1 . label 1 . caption = " OK "//本來想讓他變紅，但是鍵的QUI不那麽穩定。他沒有顏色屬性，我只好寫壹個OK。
a = 1
如果…就會結束
案例1
如果form1。Label2.Caption = form1。按鈕4 .標題
form 1 . label 2 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 2
如果…就會結束
案例2
如果form1。Label3.Caption = form1。按鈕4 .標題
form 1 . label 3 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 3
如果…就會結束
案例3
如果form1。Label4.Caption = form1。按鈕4 .標題
form 1 . label 4 . caption = " OK "//我本來想讓他在這裏變紅，但是關鍵的QUI不是那麽穩定。他沒有顏色屬性，我只能寫OK。
a = 0
如果…就會結束
結束選擇
末端接頭
事件表單1。按鈕2 .單擊
調用left()//不用說，這是調用相應的按鍵操作。
結束事件
事件表單1。按鈕1。點擊
呼叫()
結束事件
事件表單1。按鈕3 .單擊
向下調用()
結束事件
事件表單1。按鈕4 .單擊
向右調用()
結束事件
事件表單1。按鈕5 .單擊
form 1 . option box 1 . value = 0//不用說，取消空格。