小時候曾經玩過塑膠做的 "智慧盤"。正方型的盤子裡有八個小正方形方塊，上面

印著1～8的數字，每個方塊佔盤子的九分之一，所以會有一個空格。玩的時候先

把方塊的排列順序弄亂，然後利用與空格移動方塊，直到數字排列由上而下呈

 1,2,3 - 4,5,6 - 7,8,9 順序就算完成。

多次在知識+裡看到有人求 "九宮格" 遊戲的 VB (或VBA) 程式 (大概是學校老師

出的題目吧?!)，我猜想所要的就是一個 3x3 智慧盤的程式。一時興起就用Excel

VBA 寫了一個，放在這裡與大家分享 (點這裡下載 -RAR壓縮)(點這裡下載-ZIP壓縮)。

 嘿~~~~玩一玩別忘了回來這裡推薦啊!

遊戲的畫面如上圖，按工作表右上的 "智慧盤" 按鈕，程式會要你輸入玩家名 (

人名)，然後遊戲視窗就出現了，按 "開始/重玩" 鈕，方快就會弄亂，並且開始

計秒。

你可以用滑鼠去點數字方塊，使它與鄰近的空格方塊互換位置。當你把移動數

字方塊恢復成上圖的排列時，就完成了。畫面會跳出上圖右邊的訊息，花費的

時間愈短，移動次數愈少，就表示你愈強。按下確定鈕，程式會把你的成績記

錄在工作表裡面，至於要不要存檔，就隨你囉！

下一篇文章裡，我再為您介紹這個遊戲程式的關鍵部份。

我不打算公開這個遊戲完整的程式碼 (這個程式不曾在知識+發表過)，因為不

想讓那些想偷懶的學生直接拿去交作業。供您下載的檔案有密碼鎖住原始碼，

尚請見諒。有興趣研究此程式原始碼的 VIP 好友，請您用悄悄話留言。