【正文】 比賽時(shí)，label1會(huì)出現(xiàn)對(duì)應(yīng)的說(shuō)明，情形如圖8所示： 圖8.“人”獲得勝利時(shí)窗口情形人輸?shù)舯荣悤r(shí)，情形如圖9所示 和棋時(shí)，情形如圖10所示： 圖11所示為最終游戲界面，圖12為最終設(shè)計(jì)窗口 比較圖圖112，不難發(fā)現(xiàn)最終設(shè)計(jì)的模板中比原先的多了4個(gè)Label控件和2個(gè)Timer控件。這樣，不僅僅是寫(xiě)出了判斷輸贏的程序，而且十分簡(jiǎn)潔，別人看的話也是一目了然。這段時(shí)間翻的vb書(shū)可以跟期末考試之前一學(xué)期翻的vb一樣多了。在起初設(shè)計(jì)階段遇到很多困難，程序代碼出錯(cuò)，輸入出錯(cuò)，遺漏語(yǔ)句，if語(yǔ)句嵌套邏輯不合理等等，但在自己的不斷檢查和修改下，最終完成了整個(gè)程序的設(shè)計(jì)。男孩子都是比較愛(ài)玩的，我也不例外。計(jì)算機(jī)會(huì)首先選擇最中間位置落子，若中間已被人落子，計(jì)算機(jī)會(huì)在第一格中落子 If a(5).Tag = 0 Then sel = 5 Else sel = 1 End If Else For i = 1 To 9 If a(i).Tag = 0 Then sel = i Exit For End If Next i For i = 1 To 9 Step 2 If a(i).Tag = 0 Then sel = i Exit For End If Next i For i = 1 To 9 If i = 5 Then 39。是狼就要練好牙，是羊就要練好腿。 課程設(shè)計(jì)最終還是完成了，在這個(gè)炎熱的季節(jié)里，收獲的成果的確讓我感到一陣清涼，有機(jī)會(huì)的話，真心想嘗試更高級(jí)一點(diǎn)的程序設(shè)計(jì)，雖然vb我掌握的還不夠深不夠多，但是我感興趣，興趣是最好的老師嘛。三個(gè)流程圖不不是很復(fù)雜，但對(duì)我這個(gè)相當(dāng)于從零開(kāi)始的人來(lái)說(shuō)，也著實(shí)花費(fèi)一番功夫。在主體上插入具體的小程序，還是比較容易的，慢工出細(xì)活，尤為重要的是需要投入相當(dāng)一部分精力去精益求精，這樣你的成果才不會(huì)是毛糙的。從我的設(shè)計(jì)過(guò)程中就可以很明顯的看到，在人機(jī)互奕過(guò)程中，電腦的計(jì)算判斷前提是不讓玩家先獲得勝利贏。一是在游戲已經(jīng)有一方獲得勝利，但玩家試圖繼續(xù)在棋盤下棋時(shí)會(huì)跳出如下警告對(duì)話框： 第二個(gè)則是游戲剛開(kāi)始，玩家沒(méi)選擇誰(shuí)先開(kāi)始下棋，就嘗試在棋盤上下棋，此次會(huì)彈出如下提示對(duì)話框： 第三個(gè)是游戲重置時(shí)，跳出的的提示對(duì)話框： 這三個(gè)對(duì)話框添加方法十分簡(jiǎn)單，主要程序語(yǔ)句分別為： msg = MsgBox(游戲已結(jié)束，請(qǐng)重新開(kāi)始！, 0 + 48, 警告) msg = MsgBox(請(qǐng)選擇誰(shuí)先開(kāi)始！, 0 + 48, 提示) msg = MsgBox(您確定要重新開(kāi)始嗎？, vbYesNo, 提示) 就是幾行簡(jiǎn)短的程序語(yǔ)句，整個(gè)游戲也變得略微豐富了些，而不是那么死板。當(dāng)“人”位置為（i，5）時(shí)，計(jì)算機(jī)會(huì)將（10i）位置占領(lǐng)。它的Tag屬性這里上面已經(jīng)詳細(xì)介紹了，這里就不再多提。二、設(shè)計(jì)思路與總體方案 用到哪些控件、難點(diǎn)分析、所使用的模塊、過(guò)程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關(guān)系??必要時(shí)給出系統(tǒng)結(jié)構(gòu)圖等圖表。題目的難度相對(duì)不高，但牽涉到眾多的知識(shí)點(diǎn)。，我設(shè)計(jì)的“井字棋”游戲的棋盤是由一個(gè)Command控件數(shù)組來(lái)實(shí)現(xiàn)的。在棋盤繪制好，棋子設(shè)定好的情況下，如何來(lái)實(shí)現(xiàn)下棋的目的呢？這也是這個(gè)小游戲最難的地方。包含1置的勝利情況有（1,2,3）、（1,4,7）、（1,5,9）三種情況；包含5位置的勝利情況有（1,5,9）、（2,5,8）、（3,5,6）、（4,5,6）四種情況。前文中已經(jīng)提到用Command的Tag值來(lái)表示棋子，所以我們對(duì)于任意一個(gè)shuying（x,y,z）判斷是否a(x).Tag = a(y).Tag = a(z).Tag。對(duì)于這個(gè)情況，我尚未想到解決方法，嘗試了幾次均以失敗告終，這也是這個(gè)程序的另外一個(gè)不足之處吧。但是不代表成果是完美的。我看來(lái)，我已經(jīng)將自己的思路想法和設(shè)計(jì)過(guò)程很圓滿的表達(dá)出來(lái)了。電腦不能在這個(gè)格子上落子 sum = sum + 1 39。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無(wú)能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。設(shè)置一個(gè)表達(dá)式用來(lái)存儲(chǔ)程序中需要的額外數(shù)據(jù)，0代表人 Next i = If Option1(0).Value = True Then Call diannao End IfEnd SubPrivate Sub Form_Load() For i = 1 To 9 Set a(i) = Command1(i 1) 39。這些都不是很難。我做事喜歡迅速的完成而不是拖拉，所以連續(xù)兩個(gè)晚上弄的比較晚。本來(lái)，我也準(zhǔn)備給這個(gè)游戲設(shè)計(jì)三個(gè)難度“Easy”、“Normal”、“Hard”，可惜做的過(guò)程中發(fā)現(xiàn)，要實(shí)現(xiàn)這個(gè)目標(biāo)，程序就要做大的改動(dòng)，而且一改動(dòng)我也沒(méi)辦法還原，還使得原本正常的程序出現(xiàn)錯(cuò)誤而運(yùn)行不了，所以后來(lái)就放棄了。這個(gè)真心是困擾我很久，而且沒(méi)用很好的辦法解決。Case 1 “人”有沒(méi)有占了（2,3）、（4,7）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在1位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；Case 2 “人”有沒(méi)有占了（1,3）位置，若是的話，計(jì)算機(jī)會(huì)在2位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；Case 3 “人”有沒(méi)有占了（1,2）、（6,9）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在3位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；Case 4 “人”有沒(méi)有占了（1,7）、（4,6）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在4位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；Case 6 “人”有沒(méi)有占了（3,9）位置，若是的話，計(jì)算機(jī)會(huì)在6位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；Case 7 “人”有沒(méi)有占了（1,4）、（8,9）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在7位置落子，若不是，計(jì)算機(jī)會(huì)按照原來(lái)的程序從1到9在沒(méi)有落子位置落子；