或者添加壹個子程序。
石開群島
對於i = 9到0步長-1
wt = 1
當wt & gt0.1
ra = Int(Rnd() * 10)
選擇案例ra
案例0
單元格(1，2)。挑選
案例1
單元格(1，1)。挑選
案例2
單元格(2，1)。挑選
案例3
單元格(3，1)。挑選
案例4
細胞(3，2)。挑選
案例5
細胞(3，3)。挑選
案例6
細胞(3，4)。挑選
案例7
細胞(2，4)。挑選
案例8
單元格(1，4)。挑選
案例9
單元格(1，3)。挑選
結束選擇
申請。等待(現在+時間值(" 0:00:01") * wt)
wt = wt * 0.8
環
c = 11 - i
單元格(c，7) = i
myMsgbox " " & amp《還剩幾秒鐘》& amp“-”& amp；我，1，“提示”，64
然後
末端接頭
Sub my msgbox(我的提示為字符串，時間為整數，我的標題為字符串，按鈕為整數)'自動關閉對話框。
CreateObject("Wscript。殼”)。彈出我的提示，時間，我的標題，按鈕
末端接頭