vb課程設(shè)計(jì)--九格游戲

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：22 大?。?53.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩21頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　VB課程設(shè)計(jì)　　摘要: 　　隨著計(jì)算機(jī)的普及和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展，人們的娛樂生活越來越豐富，一些小游戲也逐漸成為了人們休閑娛樂生活的一部分。九格是一種老少皆宜、容易上手的益智類小游戲。本游戲采用Visual Basic編程語言完成了該程序的編寫，實(shí)現(xiàn)了游戲功

2、能。　　關(guān)鍵詞： Visual Basic 小游戲益智 　　Abstract:　　With the popularity of computer and network technology development, People’s entertainment is

3、 more and more rich. Some games have gradually become part of people’s leisure life. Nine grid is an all ages, easy to use puzzle game. The game uses Visual Basic programming language to complete the preparation process

4、to achieve the game features.　　Keywords: Visual Basic Small games Puzzle　　一、程序原理　　本游戲采用Visual Basic 編程語言進(jìn)行游戲編程。Visual Basic是由美國微軟公司于199

5、1年開發(fā)的一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計(jì)語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，動態(tài)鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、

6、快速地開發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。　　在VB中必須熟知以下VB專用術(shù)語。　　控件——簡單的說，控件就是構(gòu)成或者說建造Visual Basic應(yīng)用程序的圖形化工具，包括窗體、按鈕、復(fù)選框、列表框、數(shù)據(jù)控件、表格控件和圖片控件等等...。　　事件——由用戶或操作系統(tǒng)引發(fā)的動作。事件的

7、示例有擊鍵、單擊鼠標(biāo)(Click)、雙擊鼠標(biāo)(DblClick)、一段時間的限制，或從端口接收數(shù)據(jù)。　　方法——嵌入在對象定義中的程序代碼，它定義對象怎樣處理信息并響應(yīng)某事件。例如，數(shù)據(jù)庫對象有打開紀(jì)錄集并從一個記錄移動到另一個記錄的方法程序的基本元素，它含有定義其特征的屬性，定義其任務(wù)和識別它可以響應(yīng)的事件的方法?？丶痛绑w是Visual Basic中所有對象的示例。&

8、lt;p>　　對象——一個控件、窗體等都可被看作一個對象。　　過程——為完成某些特定的任務(wù)而編寫的代碼段，過程通常用于響應(yīng)特定的事件，也可以當(dāng)作應(yīng)用程序的用戶自定義函數(shù)來使用。　　屬性——屬性是組成用戶界面的各對象的性質(zhì)的具體描述。例如上述“對象”中所提到的尺寸、位置、顏色、寬度、高度等等都稱為控件的屬性。屬性決定對象的外觀，有時也決定對象的行為

9、。對象的屬性絕大部分是VB中已經(jīng)事先定義好的，但也有的屬性是需要在應(yīng)用過程中才去定義的。屬性即可為對象提供數(shù)據(jù)，也能從對象取回信息。　　二、窗體介紹　　本程序只有一個窗體。　　1.當(dāng)程序未運(yùn)行時

10、　　圖1　　窗體中包含：游戲窗口（Form）、游戲提示說明（Label）、　　游戲顯示（Picture）、秒數(shù)控制（Timer）、　　時間顯示（text）　　游戲說明窗口：&

11、lt;/p>　　圖2　　2.當(dāng)程序運(yùn)行時　　在游戲選項(xiàng)中，包含開始游戲、游戲模式、退出游戲三種選擇。在游戲模式中選擇人機(jī)游戲則如圖所示：　　圖2&l

12、t;p>　　這時游戲者自動選擇的是X，電腦選擇的是0。在限時5秒內(nèi)進(jìn)行游戲，否則電腦勝利。下圖是游戲者勝利時的窗體顯示。　　圖3　　3.在游戲模式中選擇雙人游戲，可以兩個人一起玩。在5秒內(nèi)誰先排成一條直線，則誰勝利。若兩個人都沒有排成一條直線，則平局。

13、　　圖4　　三、程序調(diào)試　　源代碼寫完后，對程序進(jìn)行調(diào)試運(yùn)行，要求變量聲明，對可能出現(xiàn)的幾種錯誤，如：編輯時錯誤、編譯時錯誤、運(yùn)行時錯誤、邏輯錯誤，進(jìn)行修改，調(diào)試，運(yùn)行，直至程序能正常運(yùn)行。　　但是在一些細(xì)節(jié)方面仍然需要完善，比如在游戲中可以加入一些聲音的

14、提示，在游戲完成和失敗的時候可以彈出一些小的Flash動畫等等?？偟膩碚f本次設(shè)計(jì)在功能上已經(jīng)基本達(dá)到要求，其他細(xì)節(jié)方面有待以后完善。　　四、收獲體會　　Visual Basic 語言是以結(jié)構(gòu)化Basic語言為基礎(chǔ)，以事件驅(qū)動為運(yùn)行機(jī)制。它的誕生標(biāo)志著元件設(shè)計(jì)和開發(fā)的新時代的開始。VB具有面向?qū)ο罂梢暬O(shè)計(jì)工具，是事件

15、驅(qū)動的編程機(jī)制，同時也提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境。　　從Visual basic 語言的學(xué)習(xí)到編程，當(dāng)時很想自己能夠熟練的進(jìn)行程序編輯，工程上的軟件編輯。隨著Visual basic 語言的學(xué)習(xí)才逐漸發(fā)現(xiàn)這理想想要實(shí)現(xiàn)的難度。對我而言學(xué)習(xí)編程，不僅能夠幫自己解決在生活中可能遇到的一些問題；自己設(shè)計(jì)一些小游戲還可以給自己帶來一些樂趣。同時也為自己在尋找理想工作添加重要的砝碼。所以，我覺得

16、在學(xué)習(xí)VB是我們要明確學(xué)習(xí)的目的。另外我覺得個人的數(shù)學(xué)基礎(chǔ)，思維邏輯能力對VB的學(xué)習(xí)有著至關(guān)重要的影響。而在學(xué)習(xí)的過程中最重要的就是理解，正如老師在課上經(jīng)常對我們所講的，不要始終照搬書上已有的代碼，要學(xué)會理解、掌握編程的思想與方法，這樣才能融會貫通，只有在理解方法的基礎(chǔ)上學(xué)習(xí)才是最有效的學(xué)習(xí)。Visual Basic 語言的學(xué)習(xí)要多實(shí)踐，多交流。掌握編程方法必須在編程實(shí)際工作中去實(shí)踐和體會。在學(xué)習(xí)初期要經(jīng)常自己動手設(shè)計(jì)程序，不要拘泥于固

17、定的思維方式，遇到問題要多想幾種解決方案。而這也要求與同學(xué)多多的交流，畢竟每個人的思維方法不同，角度各異。通過交流可以不斷的吸收他人的長處，豐富編程實(shí)踐，從而提高自己的水平。親自動手實(shí)踐試創(chuàng)造性思維應(yīng)用的體現(xiàn)，也是培養(yǎng)邏輯思維　　五、致謝　　在這次完成VB課程設(shè)計(jì)的過程中，我深刻意識到VB在實(shí)際應(yīng)用中的重要性。感謝老

18、師在這一學(xué)期辛勤教導(dǎo)。老師在課堂上認(rèn)真詳細(xì)的講解使我對VB有非常深刻的理解。通過這一學(xué)期的學(xué)習(xí)及這次VB課程設(shè)計(jì)，我基本掌握了VB知識。感謝同學(xué)還有朋友給了我很大的幫助，沒有他們的幫助，我也不能很順利完成這次論文，在此對他們給予我最真心的感謝！這次的課程設(shè)計(jì)對我的學(xué)習(xí)有很大的提高，使我在今后找工作中又有了一個有力砝碼。　　六、參考文獻(xiàn)

19、　　[1] 劉炳文.精通Visual Basic 6.0中文版.北京：電子工業(yè)出版社，1999年7月　　[2] 田文勝，劉陽，學(xué)勤. Visual Basic編程指南..北京：清華大學(xué)出版社，2003年2月　　[3] 王祖衛(wèi)，李偉.Visual Basic 程序設(shè)計(jì).天津：南開大學(xué)出版社，2004年<

20、/p>　　[4] 牛又奇,孫建國.新編Visual Basic程序設(shè)計(jì)教程.蘇州：蘇州大學(xué)出版社，2004年1月　　[5] 范曉平編著. Visual Basic 6.0軟件開發(fā)項(xiàng)目實(shí)訓(xùn). 北京：海洋出版社.2002　　[6] 唐兵、李桂花等編著. Visual Basic中文版程序設(shè)計(jì)教程.北京

21、：機(jī)械工業(yè)出版社　　[7] 松橋工作室編著.深入淺出Visual Basic 6.0程序設(shè)計(jì).北京：中國鐵道出版社　　附錄：源程序代碼　　Dim topLeft As Integer　　Dim topMiddle As Integer

22、　　Dim topRight As Integer　　Dim midLeft As Integer　　Dim center As Integer　　Dim midRight As Integer　　Dim bottomLeft A

23、s Integer　　Dim bottomMiddle As Integer　　Dim bottomRight As Integer　　Dim xScore As Integer　　'X贏的次數(shù)<

24、p>　　Dim oScore As Integer　　'O贏的次數(shù)　　Dim draw As Integer　　'平局次數(shù)　　Dim turnTime As Single&l

25、t;/p>　　'游戲時間　　Dim maxTime As Single　　'游戲允許的最大時間　　Dim onePlayer As Boolean　　'單人模式則為true</

26、p>　　Dim xTurn As Boolean　　'如果X's為ture則為true　　Dim gameOver As Boolean　　'如果游戲結(jié)束則為true，除非某一方贏。　　Private Sub mnuEx

27、it_Click()　　'退出游戲　　End　　End Sub　　Private Sub mnuNewGame_Click()

28、　　If Val(txtTimeLimit.Text) > 0 Then　　maxTime = Val(txtTimeLimit.Text)　　Else　　txtTimeLimit.Text = maxTime

29、　　End If　　pic1.Cls　　pic2.Cls　　pic3.Cls　　pic4.Cls<

30、;/b>　　pic5.Cls　　pic6.Cls　　pic7.Cls　　pic8.Cls&

31、lt;p>　　pic9.Cls　　topLeft = 0　　topMiddle = 0　　topRight = 0　　midLeft = 0　　center = 0

32、　　midRight = 0　　bottomLeft = 0　　bottomMiddle = 0　　bottomRight = 0　　xTurn = True　　gameOver = False</p&g

33、t;　　lblMesg = "X下子"　　pic1.FontSize = 8　　pic2.FontSize = 8　　pic3.FontSize = 8　　pic4.FontSize = 8

34、;　　pic5.FontSize = 8　　pic6.FontSize = 8　　pic7.FontSize = 8　　pic8.FontSize = 8　　pic9.FontSize = 8　　tmrTimer.Enabled

35、= True　　turnTime = 0　　Dim i As Integer　　For i = 1 To 9　　taken(i) = False　　Next i<

36、p>　　End Sub　　Private Sub Form_Load()　　Randomize　　topLeft = 0　　topMiddle = 0

37、;　　topRight = 0　　midLeft = 0　　center = 0　　midRight = 0　　bottomLeft = 0　　bottomMiddle = 0　　bott

38、omRight = 0　　xTurn = True　　gameOver = True　　lblMesg = "開始新游戲"　　lblPlayers.Caption = "人機(jī)游戲"　　one

39、Player = True　　txtTimeLimit.Text = 5　　maxTime = Val(txtTimeLimit.Text)　　turnTime = 0　　xScore = 0　　oScore = 0</p&

40、gt;　　draw = 0　　lblX.Caption = "X贏: " + Str(xScore)　　lblO.Caption = "O贏: " + Str(oScore)　　lblDraw.Caption =

41、"平局: " + Str(draw)　　Dim i As Integer　　For i = 1 To 9　　taken(i) = False　　Next i

42、;　　End Sub　　Private Sub pic1_Click()　　If Not gameOver Then　　If topLeft = 0 Then　　taken(1) = True　　turnTim

43、e = 0　　If xTurn Then　　pic1.Print " ";　　pic1.FontSize = 36　　pic1.Print "X"　　xTurn = False<

44、/p>　　topLeft = 1　　If Not TTT Then　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer The

45、n　　Call compPlay　　End If　　Else　　pic1.Print " ";　　pic1.FontSize = 3

46、6　　pic1.Print "O"　　xTurn = True　　topLeft = 2　　If Not TTT Then　　lblMesg = "X下子"<p

47、>　　End If　　End If　　End If　　End If　　End Sub</b

48、>　　Private Sub pic2_Click()　　If Not gameOver Then　　If topMiddle = 0 Then　　taken(2) = True　　turnTime = 0

49、;　　If xTurn Then　　pic2.Print " ";　　pic2.FontSize = 36　　pic2.Print "X"　　xTurn = False<p&

50、gt;　　topMiddle = 1　　If Not TTT Then　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then

51、　　Call compPlay　　End If　　Else　　pic2.Print " ";　　pic2.FontSize = 36

52、　　pic2.Print "O"　　xTurn = True　　topMiddle = 2　　If Not TTT Then　　lblMesg = "X下子"<b&

53、gt;　　End If　　End If　　End If　　End If　　End Sub</p

54、>　　Private Sub pic3_Click()　　If Not gameOver Then　　If topRight = 0 Then　　taken(3) = True　　turnTime = 0

55、;　　If xTurn Then　　pic3.Print " ";　　pic3.FontSize = 36　　pic3.Print "X"　　xTurn = False　　topRig

56、ht = 1　　If Not TTT Then　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then

57、Call compPlay　　End If　　Else　　pic3.Print " ";　　pic3.FontSize = 36

58、pic3.Print "O"　　xTurn = True　　topRight = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If&l

59、t;/b>　　End If　　End If　　End If　　End Sub<p&g

60、t;　　Private Sub pic4_Click()　　If Not gameOver Then　　If midLeft = 0 Then　　taken(4) = True　　turnTime = 0　　If xTurn Th

61、en　　pic4.Print " ";　　pic4.FontSize = 36　　pic4.Print "X"　　xTurn = False　　midLeft = 1

62、;　　If Not TTT Then　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay&l

63、t;/p>　　End If　　Else　　pic4.Print " ";　　pic4.FontSize = 36　　pic4.Print &quo

64、t;O"　　xTurn = True　　midLeft = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If</p&g

65、t;　　End If　　End If　　End If　　End Sub　　Private Sub

66、pic5_Click()　　If Not gameOver Then　　If center = 0 Then　　taken(5) = True　　turnTime = 0　　If xTurn Then<

67、;p>　　pic5.Print " ";　　pic5.FontSize = 36　　pic5.Print "X"　　xTurn = False　　center = 1　　If N

68、ot TTT Then　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay

69、;　　End If　　Else　　pic5.Print " ";　　pic5.FontSize = 36　　pic5.Print "O"

70、;　　xTurn = True　　center = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If<b&

71、gt;　　End If　　End If　　End If　　End Sub　　Private Sub pic6_Click()</p&

72、gt;　　If Not gameOver Then　　If midRight = 0 Then　　taken(6) = True　　turnTime = 0　　If xTurn Then　　pic6.Prin

73、t " ";　　pic6.FontSize = 36　　pic6.Print "X"　　xTurn = False　　midRight = 1　　If Not TTT Then<

74、/p>　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay　　End

75、 If　　Else　　pic6.Print " ";　　pic6.FontSize = 36　　pic6.Print "O"　　x

76、Turn = True　　midRight = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If　　End If&l

77、t;/b>　　End If　　End If　　End Sub　　Private Sub pic7_Click()

78、;　　If Not gameOver Then　　If bottomLeft = 0 Then　　taken(7) = True　　turnTime = 0　　If xTurn Then　　pic7.Print "

79、 ";　　pic7.FontSize = 36　　pic7.Print "X"　　xTurn = False　　bottomLeft = 1　　If Not TTT Then&

80、lt;p>　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay　　End If</b

81、>　　Else　　pic7.Print " ";　　pic7.FontSize = 36　　pic7.Print "O"　　xTurn = Tr

82、ue　　bottomLeft = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If　　End If

83、;　　End If　　End If　　End Sub　　Private Sub pic8_Click()　　If N

84、ot gameOver Then　　If bottomMiddle = 0 Then　　taken(8) = True　　turnTime = 0　　If xTurn Then　　pic8.Print " &quo

85、t;;　　pic8.FontSize = 36　　pic8.Print "X"　　xTurn = False　　bottomMiddle = 1　　If Not TTT Then<

86、p>　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay　　End If

87、;　　Else　　pic8.Print " ";　　pic8.FontSize = 36　　pic8.Print "O"　　xTurn = True&

88、lt;/p>　　bottomMiddle = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If　　End If

89、　　End If　　End If　　End Sub　　Private Sub pic9_Click()　　If No

90、t gameOver Then　　If bottomRight = 0 Then　　taken(9) = True　　turnTime = 0　　If xTurn Then　　pic9.Print " "

91、;　　pic9.FontSize = 36　　pic9.Print "X"　　xTurn = False　　bottomRight = 1　　If Not TTT Then<p&g

92、t;　　lblMesg = "O下子"　　End If　　If Not gameOver And onePlayer Then　　Call compPlay　　End If&l

93、t;/p>　　Else　　pic9.Print " ";　　pic9.FontSize = 36　　pic9.Print "O"　　xTurn = True<

94、/p>　　bottomRight = 2　　If Not TTT Then　　lblMesg = "X下子"　　End If　　End If<

95、/p>　　End If　　End If　　End Sub　　Private Function TTT() As Boolean

96、If topLeft = 1 _　　And topMiddle = 1 _　　And topRight = 1 _　　Or midLeft = 1 _　　And center = 1 _　　And midRight = 1 _&l

97、t;/p>　　Or bottomLeft = 1 _　　And bottomMiddle = 1 _　　And bottomRight = 1 _　　Or topLeft = 1 _　　And midLeft = 1 _

98、　　And bottomLeft = 1 _　　Or topMiddle = 1 _　　And center = 1 _　　And bottomMiddle = 1 _　　Or topRight = 1 _　　A

99、nd midRight = 1 _　　And bottomRight = 1 _　　Or topLeft = 1 _　　And center = 1 _　　And bottomRight = 1 _　　Or topRight =

100、1 _　　And center = 1 _　　And bottomLeft = 1 Then　　gameOver = True　　xScore = xScore + 1　　lblX.Caption = "X贏: &quo

101、t; + Str(xScore)　　lblMesg.Caption = "X贏!"　　ElseIf topLeft = 2 _　　And topMiddle = 2 _　　And topRight = 2 _

102、　Or midLeft = 2 _　　And center = 2 _　　And midRight = 2 _　　Or bottomLeft = 2 _　　And bottomMiddle = 2 _　　And bottomRig

103、ht = 2 _　　Or topLeft = 2 _　　And midLeft = 2 _　　And bottomLeft = 2 _　　Or topMiddle = 2 _　　And center = 2 _

104、　　And bottomMiddle = 2 _　　Or topRight = 2 _　　And midRight = 2 _　　And bottomRight = 2 _　　Or topLeft = 2 _

105、　　And center = 2 _　　And bottomRight = 2 _　　Or topRight = 2 _　　And center = 2 _　　And bottomLeft = 2 Then　　gameOver =

106、 True　　oScore = oScore + 1　　lblO.Caption = "O贏: " + Str(oScore)　　lblMesg.Caption = "O贏!" 　　ElseIf allFull Then</p

107、>　　gameOver = True　　lblMesg.Caption = "平局!"　　draw = draw + 1　　lblDraw.Caption = "平局: " + Str(draw)<

108、b>　　End If　　TTT = gameOver　　End Function　　Private Function allFull() As Boolean　　If topLeft = 0 _　　Or

109、topMiddle = 0 _　　Or topRight = 0 _　　Or midLeft = 0 _　　Or center = 0 _　　Or midRight = 0 _　　Or bottomLeft = 0 _</p

110、>　　Or bottomMiddle = 0 _　　Or bottomRight = 0 Then　　allFull = False　　Else　　allFull = True<

111、;p>　　End If　　End Function　　Private Sub compPlay()　　Select Case compWinPosition　　Case 1

112、;　　Call pic1_Click　　Case 2　　Call pic2_Click　　Case 3　　Call pic3_Click<p&g

113、t;　　Case 4　　Call pic4_Click　　Case 5　　Call pic5_Click　　Case 6<p&g

114、t;　　Call pic6_Click　　Case 7　　Call pic7_Click　　Case 8　　Call pic8_Click

115、;　　Case 9　　Call pic9_Click　　Case 0　　'如果平局　　Dim choice As Integer

116、;　　Do　　choice = Int(Rnd * 9) + 1　　Loop Until Not taken(choice) 　　Select Case choice　　Case 1</p&

117、gt;　　Call pic1_Click　　Case 2　　Call pic2_Click　　Case 3　　Call pic3_Click<p

118、>　　Case 4　　Call pic4_Click　　Case 5　　Call pic5_Click　　Case 6<p

119、>　　Call pic6_Click　　Case 7　　Call pic7_Click　　Case 8　　Call pic8_Click<b&

120、gt;　　Case 9　　Call pic9_Click　　End Select　　End Select　　xTurn = True　　If Not gameOver Then<p

121、>　　lblMesg.Caption = "X下子"　　End If　　End Sub　　Private Sub tmrTimer_Timer()　　If Not gam

122、eOver Then　　lblTime.Caption = "Time: " + FormatNumber(turnTime, 1)　　turnTime = turnTime + 0.1　　End If　　If t

123、urnTime >= maxTime Then　　lblTime.Caption = "Time: " + FormatNumber(maxTime, 1)　　gameOver = True　　tmrTimer.Enabled = False

124、If xTurn Then　　oScore = oScore + 1　　lblO.Caption = "O贏: " + Str(oScore)　　lblMesg.Caption = "O贏!"　　Else</

125、b>　　xScore = score + 1　　lblX.Caption = "X贏: " + Str(xScore)　　lblMesg.Caption = "X贏!"　　End If&l

126、t;/p>　　End If　　End Sub　　Private Function compWinPosition() As Integer　　If topLeft = 0 And (topMiddle = 2

127、_　　And topRight = 2 _　　Or center = 2 _　　And bottomRight = 2 _　　Or midLeft = 2 _　　And bottomLeft = 2) Then

128、　　compWinPosition = 1　　ElseIf topMiddle = 0 _　　And (topLeft = 2 _　　And topRight = 2 _　　Or center = 2 _

129、And bottomMiddle = 2) Then　　compWinPosition = 2　　ElseIf topRight = 0 _　　And (topLeft = 2 _　　And topMiddle = 2 _　　Or

130、 bottomLeft = 2 _　　And center = 2 _　　Or midRight = 2 _　　And bottomRight = 2) Then　　compWinPosition = 3　　ElseIf midL

131、eft = 0 _　　And (topLeft = 2 _　　And bottomLeft = 2 _　　Or center = 2 _　　And midRight = 2) Then　　compWinPosition = 4&l

132、t;/p>　　ElseIf center = 0 _　　And (topLeft = 2 _　　And bottomRight = 2 _　　Or bottomLeft = 2 _　　And topRight = 2 _

133、　　Or topMiddle = 2 _　　And bottomMiddle = 2 _　　Or midLeft = 2 _　　And midRight = 2) Then　　compWinPosition = 5

134、;　　ElseIf midRight = 0 _　　And (topRight = 2 _　　And bottomRight = 2 _　　Or midLeft = 2 _　　And center = 2) Then　　compW

135、inPosition = 6　　ElseIf bottomLeft = 0 _　　And (topLeft = 2 _　　And midLeft = 2 _　　Or center = 2 _　　And topRight = 2 _

136、　　Or bottomMiddle = 2 _　　And bottomRight = 2) Then　　compWinPosition = 7　　ElseIf bottomMiddle = 0 _　　And (topMiddle

137、= 2 _　　And center = 2 _　　Or bottomLeft = 2 _　　And bottomRight = 2) Then　　compWinPosition = 8　　ElseIf bottomRight =

138、0 _　　And (topLeft = 2 _　　And center = 2 _　　Or topRight = 2 _　　And midRight = 2 _　　Or bottomLeft = 2 _&l

139、t;p>　　And bottomMiddle = 2) Then　　compWinPosition = 9　　Else　　compWinPosition = xWinPosition　　End If</b

140、>　　End Function　　Private Function xWinPosition() As Integer　　If topLeft = 0 _　　And (topMiddle = 1 _　　And topRigh

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計(jì)--九格游戲

文檔簡介

溫馨提示

最新文檔

評論

vb課程設(shè)計(jì)--九格游戲

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載