【文章內容簡介】 的忍受時間的需要。不得不 減小深度， 所以 絕大部分都采用 深度為 2 的檢索 ，很明顯深度越低 系統(tǒng)的智力也相對的降低，需要代價的。 本程序的一個主要特點是 ，采用了高效的優(yōu)化方法，使得 在相同的搜索規(guī)模中所花費的計算時間大幅度的減小。 響應時間明顯得到 提高。 即使 搜索深度達到4 的時候，其響應時間在絕大部分的情況下還是可以接受的。 結構設 計的一條基本原理就是程序應該模塊化，也就是一個大程序應該由許多規(guī)模適中的模塊按合理的層次結構組織而成?？傮w設計階段的第二項主要任務就是設計軟件的結構，也就是確定程序由哪些模塊組成以及模塊間的關系。通常用層次圖或結構圖描繪軟件的結構。 系統(tǒng)模型 選擇操作 調用 單 機模式 系統(tǒng)功能 用戶 主界面 The genral stf(1mpoyidvc,uh)0jb。5wT8 結構圖 五．代碼分析 這個階段的任務還不是編寫程序，而是設計出程序的詳細規(guī)格說明。這 種規(guī)格說明的作用很類似于其他工程領域中工程師經常使用的工程藍圖，它們應該包含必要的細節(jié)，程序員可以根據它們寫出實際的程序代碼。 下面對該次設計中的主要代碼進行做個分析： 初始化賦值系統(tǒng) Sub initplayenvironment() = .\music\ () theplayflag = True //游戲有效 = False //游戲狀態(tài)標簽不顯示 () //清空 picturebox1 的內容 yuandian(130, 130) //調用繪圖函數繪制當前電腦先走的位置 Dim i, j, m, n As Integer For i = 0 To 9 For j = 0 To 9 table(i, j) = 0 Next Next //桌面初始化 For i = 0 To 191 pflag(i) = True cflag(i) = True 界面模塊 用戶 人機模塊 初級模塊 中級模塊 高級模塊 The genral stf(1mpoyidvc,uh)0jb。5wT9 Next //獲勝標志初始化 table(4, 4) = 1 //由于我們設定電腦先手，并下了 4，4 位所以將其值設為 1 初始化獲勝組合 n = 0 For i = 0 To 9 For j = 0 To 5 For m = 0 To 4 pwin(j + m, i, n) = True cwin(j + m, i, n) = True Next n = n + 1 Next Next For i = 0 To 9 For j = 0 To 5 For m = 0 To 4 pwin(i, j + m, n) = True cwin(i, j + m, n) = True Next n = n + 1 Next Next For i = 0 To 5 For j = 0 To 5 For m = 0 To 4 pwin(j + m, i + m, n) = True cwin(j + m, i + m, n) = True Next n = n + 1 Next Next 重新設定玩家的獲勝標志 由于電腦 已下了 4， 4 位所以我們需要重新設定玩家的獲勝標志 For i = 0 To 5 The genral stf(1mpoyidvc,uh)0jb。5wT10 For j = 9 To 4 Step 1 For m = 0 To 4 pwin(j m, i + m, n) = True cwin(j m, i + m, n) = True Next n = n + 1 Next Next For i = 0 To 191 If pwin(4, 4, i) = True Then pflag(i) = False End If Next End Sub 處理鼠標事件 模塊名稱 : themousedown 描述 :此函數主要實行以下功能： （ 1） 判定當前游戲標志是否有效。 （ 2） 將實際坐標轉化成虛擬坐標。 （ 3） 繪制玩家的棋子。 （ 4） 執(zhí)行檢查獲勝函數。 （ 5） 執(zhí)行電腦算法函數。 Sub themousedown(ByVal x As Integer, ByVal y As Integer) If theplayflag = False Then Exit Sub End If //檢查游戲狀態(tài)是否有效 Dim i, j As Integer The genral stf(1mpoyidvc,uh)0jb。5wT11 Dim zhx, zhy As Integer zhx = Int((x 10) / 30) zhy = Int((y 10) / 30) For i = 0 To 9 For j = 0 To 9 If table(zhx, zhy) 。 0 Then Exit Sub End If Next Next //檢查當前鼠標點擊的格子是否有效 Dim mycolor As Color Dim g As g = mycolor = Dim brush1 As = New SolidBrush(mycolor) (brush