【正文】 第二個則是游戲剛開始，玩家沒選擇誰先開始下棋，就嘗試在棋盤上下棋，此次會彈出如下提示對話框： 第三個是游戲重置時，跳出的的提示對話框： 這三個對話框添加方法十分簡單，主要程序語句分別為： msg = MsgBox(游戲已結束，請重新開始！, 0 + 48, 警告) msg = MsgBox(請選擇誰先開始！, 0 + 48, 提示) msg = MsgBox(您確定要重新開始嗎？, vbYesNo, 提示) 就是幾行簡短的程序語句，整個游戲也變得略微豐富了些，而不是那么死板。主要程序如下圖所示： 這樣，通過兩個Label的相互交錯運動，差生連續(xù)的效果我還用了兩個label和一個計時器Timer設計了一個簡單的計時窗口，本來是準備給人限制時間的，可惜能力不夠，程序寫不好，只能退而求其次，設計了這么一個簡單的計時窗口，它會每秒運行一次。具體情況如下圖所示 滾動字幕的設計早在之前的課上就做過，所以設計這個得心易手，很快就搞定。人贏的比賽時，label1會出現(xiàn)對應的說明，情形如圖8所示： 圖8.“人”獲得勝利時窗口情形人輸?shù)舯荣悤r，情形如圖9所示 和棋時，情形如圖10所示： 圖11所示為最終游戲界面，圖12為最終設計窗口 比較圖圖112，不難發(fā)現(xiàn)最終設計的模板中比原先的多了4個Label控件和2個Timer控件。；包含9位置的勝利情況有（3,6,9）、（1,5,9）、（7,8,9）三種情況。這段程序編寫的也比較簡單，因為棋盤的1,5,9位置就可以將所有勝利的情況包括在內。在游戲進行過程中，計算機不僅僅需要下棋，還要判斷出輸贏，因為有可能棋盤未下滿，就已經有一方獲得勝利了，這時游戲就應該結束停止，而不是繼續(xù)下去。這八種情況我用了“多分支條件選擇語句”，對八種情況情況一一判斷。當“人”位置為（i，5）時，計算機會將（10i）位置占領。這就要一段判斷程序：If a(5).Tag = 0 Then sel = 5 Else sel = 1 End if 而當5位置被占后，為了設計簡單，使計算機占領位置1，接下來的落子，計算機則是隨著“人”的落子而判斷，我的設計是，計算機通過不斷計算和判斷不讓“人”先贏，即是說計算機是不讓“人”獲得勝利為主要目的，中間的過程如果玩家疏忽，計算機會獲得勝利，但是我并沒有編寫程序使計算機想方設法獲得勝利。首先明確目的，人機互奕的目的都是為了獲得勝利，所以在前兩步時，當電腦下棋時它會首先搶占5那個中間位置位置（棋盤標注如圖7所示），因為5位置獲得勝利的概率最大。這樣的話，計算機必須進行多步計算與判斷，設計時程序就比較繁多。這相當于給計算機編寫一個智能程序，使得計算機能夠和“人”進行博弈。而且，用數(shù)組也不至于因為程序繁冗而混亂。第二， 程序設計方便。數(shù)組的創(chuàng)建是通過先繪制一個Command控件，調整大小后榮國復制粘貼來得到的。它的Tag屬性這里上面已經詳細介紹了，這里就不再多提。給a(i)賦值使其有具體含義 Next iEnd Sub “棋子”的效果我們可以從圖4和圖5看到。程序如下：For i = 1 To 9 a(i).Caption = a(i).Tag = 0 39。這個發(fā)現(xiàn)讓我很興奮，這代表我們可以給Tag賦予不同的值0、1,當Tag的值為0是，Command的Click事件將會使Caption的值變?yōu)椤啊瘛?，而電腦下棋時則是先將Caption的值變?yōu)椤啊稹保c此同時將所在Command的Tag值變?yōu)?，這樣“人”就無法在電腦落子的地點繼續(xù)下棋。通過改變控件Command的Caption來達到“人”和計算機下棋的結果。下面我配合圖和文字講述下這兩個屬性在程序中的主要作用。若果沒有選擇誰先開始下棋，系統(tǒng)則彈出對話框，如圖3所示 當選擇了某一方先下棋后，程序運行，按照每人一步的原則進行下去，直至一方獲得勝利。 主要程序流程圖NoYesYesNo結束是否滿足勝利條件雙方輪流落子是否選擇誰先開始初始化開始對話框提示 由程序主流程圖，可以看出，程序剛啟動時，需要對程序進始化處理。二、設計思路與總體方案 用到哪些控件、難點分析、所使用的模塊、過程、變量、數(shù)組、自定義數(shù)據(jù)類型及其相互關系??必要時給出系統(tǒng)結構圖等圖表。(6)編寫報告：編寫設計報告書。(4)程序檢驗：對編好的程序進行測試，校對。(2)需求分析：分析系統(tǒng)需要實現(xiàn)什么樣的功能。而且有些知識課堂上并沒有講過，這就讓我們不得不自己去查詢資料，進行設計，所以，還是有一定的難度的。這個小程序可以加深我們對這學期的vb基礎知識的印象，使理論升華為實際操作，同時有助于我們培養(yǎng)我們的邏輯思維能力和解決問題的能力。.. . . .. Visual Basic課程設計報告書姓名： 學院：機電工程學院 班級：11機自A4班學號：20114819049指導老師：實訓時間：實訓地點：14號樓目 錄一、題目簡介……………………………………………………二、設計思路與總體方案………………………………………三、設計過程中遇到的主要問題與解決方案…………………四、設計中尚存的不足之處……………………………………五、