【正文】 ying（x,y,z）判斷是否a(x).Tag = a(y).Tag = a(z).Tag。因?yàn)榍拔奶岬絋ag值為1是“人”贏，Tag值是0則電腦贏。這個輸贏判斷程序的流程圖如下：開始sum=1shuying (x,y,z)sum=sum+1（x,y,z）Noa(x).Tag=a(y).Tag=a(z).Tag玩家贏YesSum=9?No電腦贏YesYes和棋a(x).Tag=1Noa(x).Tag=1?YesNoNo結(jié)束：當(dāng)一方獲得勝利而棋盤未滿時，未滿的棋盤不可以繼續(xù)落子對于這個問題，我也曾一度迷惘不知如何解決，也詢問過老師，也未能很好的得到解決。在一方獲得勝利或和棋之后，無論棋盤是否滿了，都將所有Command的Tag值設(shè)為除0、1之外的任何一個數(shù)，這樣，當(dāng)一方勝利或和棋，點(diǎn)擊Command都不會出現(xiàn)繼續(xù)“下棋”的情況，我所使用的程序如下： For i = 0 To 8 Command1(i).Tag = 2 Next i這樣，就很容易的把問題解決了四、設(shè)計(jì)中尚存的不足之處VB是我這學(xué)期新接觸到的一門課程，而且周課時也不是很多，課堂上學(xué)到的知識畢竟有限，所以最后設(shè)計(jì)的成果也不盡完美。電腦走的每一步基本上都是堵玩家的路，所以玩家要獲得勝利，十分困難。本來，我也準(zhǔn)備給這個游戲設(shè)計(jì)三個難度“Easy”、“Normal”、“Hard”，可惜做的過程中發(fā)現(xiàn)，要實(shí)現(xiàn)這個目標(biāo)，程序就要做大的改動，而且一改動我也沒辦法還原，還使得原本正常的程序出現(xiàn)錯誤而運(yùn)行不了，所以后來就放棄了。，所以，有這種情況存在：當(dāng)電腦可以先獲得勝利時，因?yàn)橥婕以谙乱徊揭矊@得勝利時，這是電腦反而會繼續(xù)堵玩家的路而不是自己先獲得勝利。對于這個情況，我尚未想到解決方法，嘗試了幾次均以失敗告終，這也是這個程序的另外一個不足之處吧。由于計(jì)算機(jī)編程知識只學(xué)了些皮毛，很多次我在編程時不斷調(diào)試卻依然出這樣那樣的毛病，可能是無意中拼寫錯誤，但有些確實(shí)是因?yàn)椴涣私鈜b的某些較為冷僻用法所致。借了些書看看，也在網(wǎng)上不斷地查詢資料。我會借助以后的時間繼續(xù)去加工的，我需要的是學(xué)以致用。編寫程序是個有條理的邏輯過程，首先必須有個大致的思路，整體的規(guī)劃出來，首先將主體程序編寫出來，后再是分步地去具體完成。思維調(diào)動是件另人愉快的事情，而我們應(yīng)該去學(xué)會享受腦力勞動的過程，哪怕是一次次地失利。我做事喜歡迅速的完成而不是拖拉，所以連續(xù)兩個晚上弄的比較晚。經(jīng)過測試程序，能在電腦上完美的運(yùn)行。但是不代表成果是完美的。通過這次課程設(shè)計(jì)，我不僅鞏固了課堂所學(xué)的vb知識，而且還將其運(yùn)用到了真正的實(shí)踐中，真正體驗(yàn)到了自己來設(shè)計(jì)一個小游戲成功后的愉悅感。本來以為程序設(shè)計(jì)結(jié)束，便萬事大吉了，可惜當(dāng)我在完成設(shè)計(jì)說明書時，也搞得焦頭爛額。課程報(bào)告的的最大難處是要寫滿15頁，沒完成之前我真的認(rèn)為這很難完成，打算要不要湊頁數(shù)，一張圖占個一張紙？但是我還是放棄這個想法，既然要做，不求做到最好，但至少讓自己滿意，課程設(shè)計(jì)老師不是為了讓我們交這個不少于200行的程序和不少于15頁的報(bào)告，如果是這個目的，課程設(shè)計(jì)也沒這個必要，最終到是我們可以從中學(xué)到知識，這才是主要目的。報(bào)告中最棘手的肯定要算流程圖的繪制了，說實(shí)話，word繪圖的方法我已經(jīng)王的差不多了，為了畫好流程圖不得不又一次翻書，重頭再來。當(dāng)最后一個流程圖畫好后，我終于松了一口氣。這些都不是很難。因?yàn)橐?guī)定報(bào)告中不能出現(xiàn)連續(xù)5行以上的代碼，所以我不得不自己組織語句，將寫好的代碼用自己的話表達(dá)出來，這是個不小的工程啊，本來打字速度就不是很快，不得不慢慢碼字。我看來，我已經(jīng)將自己的思路想法和設(shè)計(jì)過程很圓滿的表達(dá)出來了。這次課程設(shè)計(jì)也提起了我對軟件編程的興趣，雖然我不是計(jì)算機(jī)專業(yè)的，但這門課程還是深深地吸引了我。雖然玩過不少游戲，但是，玩自己設(shè)計(jì)的小游戲還真的是頭一遭。雖然這個游戲是我自己設(shè)計(jì)出來，但是我也贏不了我設(shè)計(jì)的那個“計(jì)算機(jī)”，這讓我很遺憾。所以，最后也只能這樣了。最后，我想要說，這次設(shè)計(jì)，我很滿意！附錄：程序代碼Dim sel As IntegerDim sum As IntegerDim x As IntegerDim a(9) As CommandButtonPrivate Sub Command2_Click()Dim msg As Integer msg = MsgBox(您確定要重新開始嗎？, vbYesNo, 提示) If msg = 6 Then Call Form_Activate 39。設(shè)置一個表達(dá)式用來存儲程序中需要的額外數(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。○●If Option1(0).Value = False And _ Option1(1).Value = False Then msg = MsgBox(請選擇誰先開始！, 0 + 48, 提示)End IfIf Option1(0).Value = True Or _ Option1(1).Value = True Then n = Index + 1 39。電腦不能在這個格子上落子 sum = sum + 1 39。返回程序判斷是否有相同顏色的三子在一條直線上 If = Then Call diannao End If End If If = 您 + 輸了！ Then msg = MsgBox(游戲已結(jié)束，請重新開始！, 0 + 48, 警告) End If If = 您 + 贏了！ Then msg = MsgBox(游戲已結(jié)束，請重新開始！, 0 + 48, 警告) End If If = 和棋 Then msg = MsgBox(游戲已結(jié)束，請重新開始！, 0 + 48, 警告) End IfEnd IfEnd SubPrivate Sub diannao() sum = sum + 1 If sum = 2 Then 39。中間的以優(yōu)先考慮，不需要再次判斷 i = i + 1 End If If a(i).Tag = 0 Then 39。多分支條件選擇語句，使電腦不斷堵子 Case 1 If (a(2