將圖片(8)調暗為圖片
Dim ImageID(8)為整數
私有子命令1_Click()
將I標註為整數
Dim Temp(8)為整數
Dim選擇整數形式的數字
對於i = 0到8
溫度(i) = i
然後
隨機化(計時器)
對於i = 8到0步長-1
ChosenNumber = Int(i * Rnd)
ImageID(8 - i) = Temp(ChosenNumber)
Temp(ChosenNumber) = Temp(i)
然後
對於i = 0到8
圖片1(i)。Picture = pic(ImageID(i))
如果ImageID(i) = 8，則XPosition = i
然後
開始=真
MoveTimes = 0
末端接頭
私有子窗體_Load()
將I標註為整數
對於i = 0到8
設置pic(i) = Picture1(i)。畫
然後
末端接頭