【正文】 真的很興奮。比較苦難的是在報(bào)告中將自己的這次課程設(shè)計(jì)思路可以很好地表達(dá)出來。我從下午三點(diǎn)回到宿舍便開始寫報(bào)告書，連晚飯都沒出去吃一直弄到現(xiàn)在近12點(diǎn)，還剩小結(jié)未完成。而最終成果也實(shí)現(xiàn)了設(shè)計(jì)的目的要求。大體上完成了要求，但是功能、界面都還不是很完善。以后再有機(jī)會(huì)的話，可以將這個(gè)小程序在完善一下。在我獨(dú)立認(rèn)真思考之后，我想到一個(gè)很好而且很簡便的方法。只到我在資料中看到“五子棋”的代碼后突然領(lǐng)悟。具體情況如下圖所示 滾動(dòng)字幕的設(shè)計(jì)早在之前的課上就做過，所以設(shè)計(jì)這個(gè)得心易手，很快就搞定。在游戲進(jìn)行過程中，計(jì)算機(jī)不僅僅需要下棋，還要判斷出輸贏，因?yàn)橛锌赡芷灞P未下滿，就已經(jīng)有一方獲得勝利了，這時(shí)游戲就應(yīng)該結(jié)束停止，而不是繼續(xù)下去。首先明確目的，人機(jī)互奕的目的都是為了獲得勝利，所以在前兩步時(shí)，當(dāng)電腦下棋時(shí)它會(huì)首先搶占5那個(gè)中間位置位置（棋盤標(biāo)注如圖7所示），因?yàn)?位置獲得勝利的概率最大。第二， 程序設(shè)計(jì)方便。程序如下：For i = 1 To 9 a(i).Caption = a(i).Tag = 0 39。若果沒有選擇誰先開始下棋，系統(tǒng)則彈出對(duì)話框，如圖3所示 當(dāng)選擇了某一方先下棋后，程序運(yùn)行，按照每人一步的原則進(jìn)行下去，直至一方獲得勝利。(4)程序檢驗(yàn)：對(duì)編好的程序進(jìn)行測試，校對(duì)。.. . . .. Visual Basic課程設(shè)計(jì)報(bào)告書姓名： 學(xué)院：機(jī)電工程學(xué)院 班級(jí)：11機(jī)自A4班學(xué)號(hào)：20114819049指導(dǎo)老師：實(shí)訓(xùn)時(shí)間：實(shí)訓(xùn)地點(diǎn)：14號(hào)樓目 錄一、題目簡介……………………………………………………二、設(shè)計(jì)思路與總體方案………………………………………三、設(shè)計(jì)過程中遇到的主要問題與解決方案…………………四、設(shè)計(jì)中尚存的不足之處……………………………………五、參考文獻(xiàn)……………………………………………………六、課程設(shè)計(jì)小結(jié)………………………………………………一、題目簡介本題目旨在設(shè)計(jì)與一個(gè)可進(jìn)行人機(jī)互動(dòng)的小游戲，其名字為“井字棋”。(3)程序設(shè)計(jì)：根據(jù)需求分析的結(jié)果，進(jìn)行界面及編程設(shè)計(jì)。隨后，判斷有沒有選擇誰先開始落子，是“人”還是計(jì)算機(jī)先。所以在程序運(yùn)行之前，必須將所有Command的Tag值變?yōu)?，這樣“人”才能子在棋盤上落子，而這個(gè)事件觸發(fā)的必須很早，所以用到了form的Activate屬性，在Form_Activate)事件下編寫程序使得Command的屬性Tag的值全部變?yōu)?。這樣出來的其余八個(gè)按鈕的大小形狀都相同，方便排版。下面，是計(jì)算機(jī)和“人”在進(jìn)行博弈時(shí)的流程圖NoN0Yes人是否繼續(xù)落子是否滿足勝利條件開始 結(jié)束Yes雙方輪流落子對(duì)話框提示Label輸贏顯示 現(xiàn)在堆流程圖分析。Case 1 “人”有沒有占了（2,3）、（4,7）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在1位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 2 “人”有沒有占了（1,3）位置，若是的話，計(jì)算機(jī)會(huì)在2位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 3 “人”有沒有占了（1,2）、（6,9）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在3位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 4 “人”有沒有占了（1,7）、（4,6）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在4位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 6 “人”有沒有占了（3,9）位置，若是的話，計(jì)算機(jī)會(huì)在6位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 7 “人”有沒有占了（1,4）、（8,9）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在7位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 8 “人”有沒有占了（7,9）、位置，若是的話，計(jì)算機(jī)會(huì)在8位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；Case 9 “人”有沒有占了（3,6）、（7,8）兩個(gè)位置，若是的話，計(jì)算機(jī)會(huì)在9位置落子，若不是，計(jì)算機(jī)會(huì)按照原來的程序從1到9在沒有落子位置落子；上面程序已經(jīng)可以完成互奕的要求了。我的設(shè)計(jì)中最上面的兩個(gè)重疊在一起的Label是用來滾動(dòng)顯示歡迎語、贊美語和鼓勵(lì)語的。這個(gè)真心是困擾我很久，而且沒用很好的辦法解決。這個(gè)輸贏判斷程序的流程圖如下：開始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)一方獲得勝利而棋盤未滿時(shí)，未滿的棋盤不可以繼續(xù)落子對(duì)于這個(gè)問題，我也曾一度迷惘不知如何解決，也詢問過老師，也未能很好的得到解決。本來，我也準(zhǔn)備給這個(gè)游戲設(shè)計(jì)三個(gè)難度“Easy”、“Normal”、“Hard”，可惜做的過程中發(fā)現(xiàn)，要實(shí)現(xiàn)這個(gè)目標(biāo)，程序就要做大的改動(dòng)，而且一改動(dòng)我也沒辦法還原，還使得原本正常的程序出現(xiàn)錯(cuò)誤而運(yùn)行不了，所以后來就放棄了。借了些書看看，也在網(wǎng)上不斷地查詢資料。我做事喜歡迅速的完成而不是拖拉，所以連續(xù)兩個(gè)晚上弄的比較晚。本來以為程序設(shè)計(jì)結(jié)束，便萬事大吉了，可惜當(dāng)我在完成設(shè)計(jì)說明書時(shí)，也搞得焦頭爛額。這些都不是很難。雖然玩過不少游戲，但是，玩自己設(shè)計(jì)的小游戲還真的是頭一遭。設(shè)置一個(gè)表達(dá)式用來存儲(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。中間的以優(yōu)先考慮，不需要再次判斷