【正文】 算機會在9位置落子，若不是，計算機會按照原來的程序從1到9在沒有落子位置落子；上面程序已經(jīng)可以完成互奕的要求了。當人機走的步數(shù)超過2步時，計算機會首先判斷“人“在占了5位置后，下一步有沒有勝利的可能，此時人的情況有（1,5）、（2,5）、（3，5）、（4,5）、（6,5）、（7,5）、（8,5）、（9,5）、八種情況，所以此時電腦的主要任務(wù)就是堵子。下面，是計算機和“人”在進行博弈時的流程圖NoN0Yes人是否繼續(xù)落子是否滿足勝利條件開始 結(jié)束Yes雙方輪流落子對話框提示Label輸贏顯示 現(xiàn)在堆流程圖分析。在棋盤繪制好，棋子設(shè)定好的情況下，如何來實現(xiàn)下棋的目的呢？這也是這個小游戲最難的地方。這樣出來的其余八個按鈕的大小形狀都相同，方便排版。 圖5，“人”持黑子 按鈕Comamnd控件數(shù)組 在上面窗體的介紹中，我們已經(jīng)知道，棋盤是由按鈕控件Command來實現(xiàn)的。所以在程序運行之前，必須將所有Command的Tag值變?yōu)?，這樣“人”才能子在棋盤上落子，而這個事件觸發(fā)的必須很早，所以用到了form的Activate屬性，在Form_Activate)事件下編寫程序使得Command的屬性Tag的值全部變?yōu)?。，我設(shè)計的“井字棋”游戲的棋盤是由一個Command控件數(shù)組來實現(xiàn)的。隨后，判斷有沒有選擇誰先開始落子，是“人”還是計算機先。程序主要要求實現(xiàn)以下幾個功能：1. 可以進行人機相互博弈；2. 每次只能走一步棋，且落子的地方不可以繼續(xù)落子；3. 可以判斷出輸贏，并且當判斷出輸贏后，程序停止，未滿的棋盤不可以繼續(xù)落子；4. 可以選擇是電腦先走還是“人”先走；為了實現(xiàn)以上幾點可以設(shè)計程序主界面如圖1所示 這個主界面已經(jīng)可以大體上實現(xiàn)上述要求，它包括一個Command1控件數(shù)組，一個Option1控件數(shù)組，一個Label1控件，一個Command2控件和一個form1控件。(3)程序設(shè)計：根據(jù)需求分析的結(jié)果，進行界面及編程設(shè)計。題目的難度相對不高，但牽涉到眾多的知識點。.. . . .. Visual Basic課程設(shè)計報告書姓名： 學院：機電工程學院 班級：11機自A4班學號：20114819049指導老師：實訓時間：實訓地點：14號樓目 錄一、題目簡介……………………………………………………二、設(shè)計思路與總體方案………………………………………三、設(shè)計過程中遇到的主要問題與解決方案…………………四、設(shè)計中尚存的不足之處……………………………………五、參考文獻……………………………………………………六、課程設(shè)計小結(jié)………………………………………………一、題目簡介本題目旨在設(shè)計與一個可進行人機互動的小游戲，其名字為“井字棋”。而且有些知識課堂上并沒有講過，這就讓我們不得不自己去查詢資料，進行設(shè)計，所以，還是有一定的難度的。(4)程序檢驗：對編好的程序進行測試，校對。二、設(shè)計思路與總體方案 用到哪些控件、難點分析、所使用的模塊、過程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關(guān)系??必要時給出系統(tǒng)結(jié)構(gòu)圖等圖表。若果沒有選擇誰先開始下棋，系統(tǒng)則彈出對話框，如圖3所示 當選擇了某一方先下棋后，程序運行，按照每人一步的原則進行下去，直至一方獲得勝利。通過改變控件Command的Caption來達到“人”和計算機下棋的結(jié)果。程序如下：For i = 1 To 9 a(i).Caption = a(i).Tag = 0 39。它的Tag屬性這里上面已經(jīng)詳細介紹了，這里就不再多提。第二， 程序設(shè)計方便。這相當于給計算機編寫一個智能程序，使得計算機能夠和“人”進行博弈。首先明確目的，人機互奕的目的都是為了獲得勝利，所以在前兩步時，當電腦下棋時它會首先搶占5那個中間位置位置（棋盤標注如圖7所示），因為5位置獲得勝利的概率最大。當“人”位置為（i，5）時，計算機會將（10i）位置占領(lǐng)。在游戲進行過程中，計算機不僅僅需要下棋，還要判斷出輸贏，因為有可能棋盤未下滿，就已經(jīng)有一方獲得勝利了，這時游戲就應(yīng)該結(jié)束停止，而不是繼續(xù)下去。；包含9位置的勝利情況有（3,6,9）、（1,5,9）、（7,8,9）三種情況。具體情況如下圖所示 滾動字幕的設(shè)計早在之前的課上就做過，所以設(shè)計這個得心易手，很快就搞定。一是在游戲已經(jīng)有一方獲得勝利，但玩家試圖繼續(xù)在棋盤下棋時會跳出如下警告對話框： 第二個則是游戲剛開始，玩家沒選擇誰先開始下棋，就嘗試在棋盤上下棋，此次會彈出如下提示對話框： 第三個是游戲重置時，跳出的的提示對話框： 這三個對話框添加方法十分簡單，主要程序語句分別為： msg = MsgBox(游戲已結(jié)束，請重新開始！, 0 + 48, 警告) msg = MsgBox(請選擇誰先開始！, 0 + 48, 提示) msg = MsgBox(您確定要重新開始嗎？, vbYesNo, 提示) 就是幾行簡短的程序語句，整個游戲也變得略微豐富了些，而不是那么死板。只到我在資料中看到“五子棋”的代碼后突然領(lǐng)悟。若是的話，再判斷這三個位置中任一個位置的Tag值為多少，即可判斷出誰輸誰贏。在我獨立認真思考之后，我想到一個很好而且很簡便的方法。從我的設(shè)計過程中就可以很明顯的看到，在人機互奕過程中，電腦的計算判斷前提是不讓玩家先獲得勝利贏。以后再有機會的話，可以將這個小程序在完善一下。五、參考文獻1.《VB程序