vb課程設(shè)計益智類算數(shù)小游戲

1、<p><b>　　《VB課程設(shè)計》</b></p><p>　　設(shè)計題目： 益智類算數(shù)小游戲 </p><p>　　專 業(yè)： 信息管理與信息系統(tǒng) </p><p>　　班 級： 學(xué) 號： </p><p>　　學(xué)生姓名：

2、 </p><p>　　指導(dǎo)教師： </p><p><b>　　2010年7月</b></p><p><b>　　目 錄</b></p><p>　　摘 要 ： ………………………02</p><p>　

3、　第 一章 緒 論 ………………………03</p><p>　　第二章 系統(tǒng)分析 ………………………04</p><p>　　第三章 總體設(shè)計 ………………………06</p><p>　　第四章 編碼實現(xiàn) ………………………07</p><p>　　第五章 調(diào)試與測試………………………10</p>

4、;<p>　　總結(jié)： ………………………14</p><p><b>　　附錄：</b></p><p>　　1源代碼 ………………………16</p><p>　　2參考資料 ………………………34</p><p><b>　　摘要&

5、lt;/b></p><p>　　隨著軟件技術(shù)以及互聯(lián)網(wǎng)技術(shù)的不斷發(fā)展，游戲產(chǎn)業(yè)發(fā)展迅速，已經(jīng)成為經(jīng)濟增民的一個亮點。實踐是軟件開發(fā)的核心，對代碼要求精益求精，在開發(fā)的過程中，簡單設(shè)計，用測試驅(qū)動，通過重構(gòu)和迭代代碼實現(xiàn)設(shè)計。</p><p>　　Visual Basic,其中主要地介紹了Visual Basic 6.0，以及Visual Basic的編程環(huán)境。同時通過小游戲簡單介紹

6、了利用Visual Basic 6.0開發(fā)游戲的處理過程。主要介紹了24點游戲的開發(fā)，包括界面的設(shè)計和相應(yīng)的界面設(shè)計原則，還介紹了其開發(fā)環(huán)境。同時也對游戲系統(tǒng)的公共功能模塊做了闡述。</p><p>　　通過對該課題的研究設(shè)計，對如何運用Visual Basic來設(shè)計游戲有了一定程度的了解，并對如何設(shè)計游戲的構(gòu)架有所掌握。</p><p>　　關(guān)鍵詞：編程 Visual Basic 模

7、塊 算法</p><p><b>　　緒論 </b></p><p>　　可視化前臺編程的思想應(yīng)用于軟件開發(fā)過程中，指導(dǎo)開發(fā)活動的系統(tǒng)方法，它吸取了結(jié)構(gòu)化程序設(shè)計的精華，以更接近人們通常思維的方式來處理問題，是一種全新的軟件開發(fā)技術(shù)。</p><p>　　作為一種編程語言，Visual Basic很大程度推廣了可視化窗體思想。隨著計算機技術(shù)

8、的發(fā)展，VB.NET的強大展現(xiàn)出它不可替代的作用，VB的功能不僅體現(xiàn)在網(wǎng)絡(luò)方面的應(yīng)用，對于應(yīng)用程序設(shè)計、游戲設(shè)計等都能滿足需求。</p><p>　　本文針對的具體應(yīng)用，設(shè)計了VB一個小游戲。根據(jù)游戲的規(guī)則，用戶將可以和計算機進行簡單對戰(zhàn)。程序?qū)崿F(xiàn)了友好的用戶交互界面，讓用戶能很好地對游戲進行操作 </p><p>　　計算機技術(shù)的應(yīng)用正在朝著網(wǎng)絡(luò)化的方向闊步前進。VB為其提供了簡便并且

9、功能強大的編程接口。</p><p>　　開發(fā)人員生成獨立于平臺的應(yīng)用程序，用VB編寫的程序可以在許多硬件平臺上運行而不需要重新編譯。 VB最強大的是網(wǎng)絡(luò)方面的應(yīng)用，本課程設(shè)計不涉及網(wǎng)絡(luò)方面的應(yīng)用。</p><p><b>　　系統(tǒng)分析</b></p><p>　　程序用到了很多有關(guān)VB.NET的語法：</p><p>

10、　　Msgbox(Prompt[,Buttons][,Title])方法，這個方法主要用于彈出消息框，在這個程序中，你會經(jīng)?？吹竭@樣的語法，主要用于提示玩家相關(guān)的信息。</p><p>　　Prompt：消息框中的提示信息。</p><p>　　Enabled語句，這個語句在程序里主要是用于控制按鈕，標(biāo)簽等控件是否可用。</p><p>　　Val語句，這個語句主要

11、用于類型轉(zhuǎn)換，TextBox.text只支持字符串格式，而加、減、乘、除等的運算需要時數(shù)字才可以，所以要通過Val將字符串類型轉(zhuǎn)換為數(shù)字類型，讓后進行運算。</p><p>　　Buttons。顯示按鈕，是個枚舉類型MsgBoxStyle值。用來控制在對話框內(nèi)顯示的按鈕類型、數(shù)目及圖標(biāo)樣式。</p><p>　　Title。消息框的標(biāo)題。若省略，則默認為當(dāng)前的應(yīng)用程序的名稱。</p&

12、gt;<p>　　Try…catch…End try語句。</p><p>　　這是個異常處理的語法，在本程序中主要用于判斷玩家輸入的是否為字母，如果是字母或者是不正確的數(shù)字，則會被該語句捕捉到錯誤，然后拋出異常。</p><p>　　Tostring語法</p><p>　　該語法主要用于類型轉(zhuǎn)換。在次程序中，類似于x,n之類的數(shù)字類型變量無法被la

13、bel.text的字符串類型接受，所以需要用到該語法進行強制的類型轉(zhuǎn)換，將數(shù)字類型轉(zhuǎn)換為字符串類型。</p><p>　　Inputbox(prompt[,Title][,Default][,XPos][YPos])</p><p>　　Prompt。輸入框中的提示文字。</p><p>　　Title。輸入框的標(biāo)題。</p><p>　　D

14、efault。顯示在輸入文本框中的默認內(nèi)容，省略則顯示空串。</p><p>　　XPos。指定對話框左邊界和屏幕左邊界的間距。省略時對話框位于水平方向中心。</p><p>　　YPos。指定對話框上邊界和屏幕上邊界的間距。省略時對話框位于豎直方向，大約在屏幕上邊界往下三分之一的地方</p><p>　　If …else語法</p><p>

15、;　　主要用語判斷玩家的余額和輸入的數(shù)字是否超出規(guī)定的范圍。</p><p>　　Me.width的意思是該窗體的寬度。在此程序中主要是調(diào)整歡迎語句的位置。</p><p>　　Backcolor 用于改邊背景顏色。此程序主要用來改變標(biāo)簽的背景顏色。</p><p>　　在此程序中我用到了Rnd()方法，它的功能主要是在0到1之間隨機的生成個小數(shù)，再通過Int()方

16、法強制轉(zhuǎn)換為整型，就實現(xiàn)了所有數(shù)字的隨機產(chǎn)生。。</p><p>　　在設(shè)計Sub過程的時候，考慮到簡單明了，Sub開始 End Sub 結(jié)束方法都是在默認屬性中創(chuàng)建和實現(xiàn)的。我們設(shè)計的優(yōu)點是：條理清晰，容易理解，容易修改。</p><p>　　第三章 總體設(shè)計</p><p>　　一對Form1 窗體的設(shè)定,在窗體中添加LableBox,Button按鈕

17、的添加,及對整個界面布局!</p><p>　　二 在相應(yīng)的控件中添加程序,在 Button1中賦予點擊按鈕將加號給指定的標(biāo)簽label5，Button2中賦予點擊按鈕將減號給指定的標(biāo)簽label6,Button3中賦予點擊按鈕將除號給指定的標(biāo)簽label7.這樣可以實現(xiàn)符號的操作， </p><p>　　三 在開始按鈕中設(shè)置默認值 ，并將控件中的數(shù)據(jù)清空，設(shè)置按鈕不可用，及在開始按

18、鈕中隨機給一組數(shù)字在1到13之間的數(shù)，這是通過Rnd來實現(xiàn)的在這其中還需要考慮不出現(xiàn)零的情況，避免帶來不必要的麻煩。</p><p>　　四 在確認按鈕中設(shè)置程序?qū)崿F(xiàn)的過程，最主要的算法，是通過select語句來實現(xiàn)的 ，通過select語句分情況逐個實現(xiàn)可能遇到的問題 并將其成功的解決。</p><p>　　五 最后通過MsgBox語句來實現(xiàn) 輸出實現(xiàn)的運行結(jié)果。這是通過If El

19、se語句來實現(xiàn)判斷的過程。</p><p>　　六 在找不到答案的情況下或一時想不起的時候可以放棄此組數(shù)據(jù)，可以選擇放棄按鈕，放棄按鈕主要是對數(shù)據(jù)清空工作。</p><p>　　第四章 編碼實現(xiàn)</p><p>　　一 加法button1按鈕中設(shè)置</p><p>　　If Label5.Text = "" Th

20、en</p><p>　　Label5.Text = "+"</p><p>　　ElseIf Label6.Text = "" Then</p><p>　　Label6.Text = "+"</p><p>　　ElseIf Label7.Text = ""

21、Then</p><p>　　Label7.Text = "+"</p><p>　　ElseIf Button1.Enabled = False Then</p><p><b>　　End If</b></p><p>　　減法Button2按鈕中設(shè)置 </p><p>

22、;　　If Label5.Text = "" Then</p><p>　　Label5.Text = "-"</p><p>　　ElseIf Label6.Text = "" Then</p><p>　　Label6.Text = "-"</p><p>　

23、　ElseIf Label7.Text = "" Then</p><p>　　Label7.Text = "-"</p><p>　　ElseIf Button1.Enabled = False Then</p><p><b>　　End If</b></p><p>　　除法

24、Button3按鈕中設(shè)置 </p><p>　　If Label5.Text = "" Then</p><p>　　Label5.Text = "/"</p><p>　　ElseIf Label6.Text = "" Then</p><p>　　Label6.Text = &q

25、uot;/"</p><p>　　ElseIf Label7.Text = "" Then</p><p>　　Label7.Text = "/"</p><p>　　ElseIf Button1.Enabled = False Then</p><p><b>　　End If&l

26、t;/b></p><p>　　乘法Button4按鈕中設(shè)置</p><p>　　If Label5.Text = "" Then</p><p>　　Label5.Text = "*"</p><p>　　ElseIf Label6.Text = "" Then</p&

27、gt;<p>　　Label6.Text = "*"</p><p>　　ElseIf Label7.Text = "" Then</p><p>　　Label7.Text = "*"</p><p>　　ElseIf Button1.Enabled = False Then</p&g

28、t;<p><b>　　End If</b></p><p>　　二 開始按鈕中設(shè)置</p><p>　　Label1.Text = Int(13 * Rnd() + 1)</p><p>　　Label2.Text = Int(13 * Rnd() + 1)</p><p>　　Label3.Text

29、 = Int(13 * Rnd() + 1)</p><p>　　Label4.Text = Int(13 * Rnd() + 1)</p><p>　　Button4.Enabled = True</p><p>　　Button3.Enabled = True</p><p>　　Button2.Enabled = True</p&

30、gt;<p>　　Button1.Enabled = True</p><p>　　Button8.Enabled = True</p><p>　　Button9.Enabled = True</p><p>　　Label5.Text = ""</p><p>　　Label6.Text = "

31、"</p><p>　　Label7.Text = ""</p><p>　　三 在確認按鈕中設(shè)置</p><p>　　Dim a As Integer</p><p>　　Select Case Label5.Text</p><p><b>　　Case "+&q

32、uot;</b></p><p>　　a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) + Val(Label4.Text)</p><p>　　Case "-" a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) -

33、Val(Label4.Text)</p><p>　　Case "/" a = Val(Label1.Text) + Val(Label2.Text) + Val(Label3.Text) / Val(Label4.Text)</p><p>　　Case "*" a = Val(Label1.Text) + Val(Label2.Text) +

34、Val(Label3.Text) * Val(Label4.Text)</p><p>　　End Select</p><p>　　四 在放棄按鈕中設(shè)置</p><p>　　Button9.Enabled = False</p><p>　　Button8.Enabled = False</p><p>　　Bu

35、tton4.Enabled = False</p><p>　　Button3.Enabled = False</p><p>　　Button2.Enabled = False</p><p>　　Button1.Enabled = False</p><p>　　Label1.Text = ""</p>

36、<p>　　Label2.Text = ""</p><p>　　Label3.Text = ""</p><p>　　Label4.Text = ""</p><p>　　Label5.Text = ""</p><p>　　Label6.Text =

37、 ""</p><p>　　Label7.Text = "" </p><p>　　第五章 調(diào)試與測試</p><p>　　一 控件布置及相關(guān)的設(shè)置：</p><p>　　二 控件中的源代碼的實現(xiàn)</p><p><b>　　三 程序的試運行</b>&

38、lt;/p><p><b>　　總結(jié)語：</b></p><p>　　作為率先推廣前臺編程思想的語言，VB卻不是革命性的東西，所有現(xiàn)有的 VB 的思想都是繼承自其他的語言和技術(shù)，沒有什么革命的地方。但是 VB 在真正推動可視化前臺編程思想方面是功不可沒的。使用 VB 編程，你無需考慮到向后兼容什么語言的問題，它是重新建立的語言，你在掌握這門語言之前，你必須將自己的編程思想

39、由過程編程徹底轉(zhuǎn)向編程，因為每個 VB 程序，你編寫任何 VB 程序，你都不自覺的在構(gòu)造一個模塊，過程。</p><p>　　相對于另一門面向?qū)ο蟮恼Z言C++而言，VB 在面向?qū)ο蟮呢瀼胤矫嬉?C++ 徹底。有人說“C++ 是打著面向?qū)ο蟮幕献樱芍^程編程的勾當(dāng)”或許不是言過其辭，C++繼承了C的面向過程的一些特性，而VB幾乎都用了面向?qū)ο蟮乃枷雭韺崿F(xiàn)程序。但是無論是 c++ 還是 VB都有可能走過程編程的老

40、路， VB 降低的過程編寫的可能性，但是如果你沒有具備面編程思想，你還是可能走面向過程的老路的。</p><p>　　程序中生成了幾個對象，均為較簡單的對象，而卻難免會步入面向過程的老路，但這看似是卻是難免的：實現(xiàn)游戲規(guī)則，就要把過程寫出來。 </p><p>　　最近接觸了許多軟件工程方面的知識，深深感到程序設(shè)計要走的路之漫長。</p><p>　　理解

41、課程設(shè)計如果想要做好，絕不是一朝一夕的事。</p><p>　　本次設(shè)計的每一個階段：系統(tǒng)分析、總體設(shè)計、編碼實現(xiàn)、調(diào)試與測試，都是我在不斷學(xué)習(xí)的情況下完成的。而在這些過程中不斷體會軟件設(shè)計的各個步驟、各個環(huán)節(jié)，又轉(zhuǎn)到不斷學(xué)習(xí)中去。</p><p>　　古語有云“工欲善其事，必先利其器”，當(dāng)初朦朦朧朧地寫了代碼，就體會到學(xué)習(xí)VB仍然是處于初步階段，遠遠不夠“善其事”。只是VB的學(xué)習(xí)是要不斷

42、把所學(xué)和所用結(jié)合的，一次課程設(shè)計可以體會到知識的不足，而后補充所需的知識，再進行實踐，再發(fā)現(xiàn)不足，如此不斷，才能慢慢體會這門語言的精髓。</p><p>　　再如軟件設(shè)計。毋庸置疑，本次課程設(shè)計只是讓我“摸一下軟件設(shè)計”。如專家所說，軟件文檔的編寫是應(yīng)當(dāng)占了軟件設(shè)計的90%的時間精力的，文檔寫好了，隨便一個程序員都能做出軟件來。可見軟件文檔的重要性。對于只是“了解軟件工程” 的我們來說，編寫文檔莫過于一件痛苦的事

43、――并沒有系統(tǒng)地學(xué)習(xí)過，卻要一點一點地用出來。洋洋灑灑的一本書，不禁為要走的路之漫長艱辛感慨不已。但是倘若是真的有興趣有毅力，這些應(yīng)當(dāng)不在話下。</p><p>　　是故，本次課程設(shè)計帶給我的不僅僅是為未來打基礎(chǔ)這么簡單的收獲，更多的是一種認識。小至一門課程、一門語言，大至一門專業(yè)、一段人生，若不是熱情主動刻苦地學(xué)習(xí)，將一無所獲。</p><p><b>　　附錄：</b&

44、gt;</p><p><b>　　1源代碼 </b></p><p>　　Public Class Form1</p><p>　　Inherits System.Windows.Forms.Form</p><p>　　#Region " Windows 窗體設(shè)計器生成的代碼 "</p&g

45、t;<p>　　Public Sub New()</p><p>　　MyBase.New()</p><p>　　'該調(diào)用是 Windows 窗體設(shè)計器所必需的。</p><p>　　InitializeComponent()</p><p>　　'在 InitializeComponent() 調(diào)用之后添加任

46、何初始化</p><p><b>　　End Sub</b></p><p>　　'窗體重寫 dispose 以清理組件列表。</p><p>　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)</p><p>　　If

47、disposing Then</p><p>　　If Not (components Is Nothing) Then</p><p>　　components.Dispose()</p><p><b>　　End If</b></p><p><b>　　End If</b></p>

48、;<p>　　MyBase.Dispose(disposing)</p><p><b>　　End Sub</b></p><p>　　'Windows 窗體設(shè)計器所必需的</p><p>　　Private components As System.ComponentModel.IContainer</p>

49、<p>　　'注意: 以下過程是 Windows 窗體設(shè)計器所必需的</p><p>　　'可以使用 Windows 窗體設(shè)計器修改此過程。</p><p>　　'不要使用代碼編輯器修改它。</p><p>　　Friend WithEvents Label1 As System.Windows.Forms.Label</

50、p><p>　　Friend WithEvents Label2 As System.Windows.Forms.Label</p><p>　　Friend WithEvents Label3 As System.Windows.Forms.Label</p><p>　　Friend WithEvents Label4 As System.Windows.Forms

51、.Label</p><p>　　Friend WithEvents Label5 As System.Windows.Forms.Label</p><p>　　Friend WithEvents Label6 As System.Windows.Forms.Label</p><p>　　Friend WithEvents Label7 As System.Wi

52、ndows.Forms.Label</p><p>　　Friend WithEvents Label16 As System.Windows.Forms.Label</p><p>　　Friend WithEvents Button1 As System.Windows.Forms.Button</p><p>　　Friend WithEvents Butto

53、n2 As System.Windows.Forms.Button</p><p>　　Friend WithEvents Button3 As System.Windows.Forms.Button</p><p>　　Friend WithEvents Button4 As System.Windows.Forms.Button</p><p>　　Friend

54、 WithEvents Button7 As System.Windows.Forms.Button</p><p>　　Friend WithEvents Button8 As System.Windows.Forms.Button</p><p>　　Friend WithEvents Button9 As System.Windows.Forms.Button</p>

55、<p>　　Friend WithEvents Label8 As System.Windows.Forms.Label</p><p>　　<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()</p><p>　　Dim resources As System.Res

56、ources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))</p><p>　　Me.Label1 = New System.Windows.Forms.Label</p><p>　　Me.Label2 = New System.Windows.Forms.Label</p>&

57、lt;p>　　Me.Label3 = New System.Windows.Forms.Label</p><p>　　Me.Label4 = New System.Windows.Forms.Label</p><p>　　Me.Label5 = New System.Windows.Forms.Label</p><p>　　Me.Label6 = New

58、 System.Windows.Forms.Label</p><p>　　Me.Label7 = New System.Windows.Forms.Label</p><p>　　Me.Label16 = New System.Windows.Forms.Label</p><p>　　Me.Button1 = New System.Windows.Forms.B

59、utton</p><p>　　Me.Button2 = New System.Windows.Forms.Button</p><p>　　Me.Button3 = New System.Windows.Forms.Button</p><p>　　Me.Button4 = New System.Windows.Forms.Button</p>&l

60、t;p>　　Me.Button7 = New System.Windows.Forms.Button</p><p>　　Me.Button8 = New System.Windows.Forms.Button</p><p>　　Me.Button9 = New System.Windows.Forms.Button</p><p>　　Me.Label8

61、= New System.Windows.Forms.Label</p><p>　　Me.SuspendLayout()</p><p><b>　　'</b></p><p><b>　　'Label1</b></p><p><b>　　'</b>

62、</p><p>　　Me.Label1.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label1.Font = New System.Drawing.Font("宋體", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUn

63、it.Point, CType(134, Byte))</p><p>　　Me.Label1.Location = New System.Drawing.Point(56, 56)</p><p>　　Me.Label1.Name = "Label1"</p><p>　　Me.Label1.Size = New System.Drawing.

64、Size(56, 56)</p><p>　　Me.Label1.TabIndex = 0</p><p>　　Me.Label1.Text = "Label1"</p><p>　　Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p><

65、p><b>　　'</b></p><p><b>　　'Label2</b></p><p><b>　　'</b></p><p>　　Me.Label2.BackColor = System.Drawing.Color.Transparent</p>

66、<p>　　Me.Label2.Font = New System.Drawing.Font("宋體", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label2.Location = New System.Drawing

67、.Point(168, 56)</p><p>　　Me.Label2.Name = "Label2"</p><p>　　Me.Label2.Size = New System.Drawing.Size(56, 56)</p><p>　　Me.Label2.TabIndex = 1</p><p>　　Me.Label

68、2.Text = "Label2"</p><p>　　Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p><p><b>　　'</b></p><p><b>　　'Label3</b><

69、/p><p><b>　　'</b></p><p>　　Me.Label3.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label3.Font = New System.Drawing.Font("宋體", 24.0!, System.Drawin

70、g.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label3.Location = New System.Drawing.Point(272, 56)</p><p>　　Me.Label3.Name = "Label3"</p><

71、;p>　　Me.Label3.Size = New System.Drawing.Size(56, 48)</p><p>　　Me.Label3.TabIndex = 2</p><p>　　Me.Label3.Text = "Label3"</p><p>　　Me.Label3.TextAlign = System.Drawing.C

72、ontentAlignment.MiddleCenter</p><p><b>　　'</b></p><p><b>　　'Label4</b></p><p><b>　　'</b></p><p>　　Me.Label4.BackColor =

73、System.Drawing.Color.Transparent</p><p>　　Me.Label4.Font = New System.Drawing.Font("宋體", 24.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p&

74、gt;　　Me.Label4.Location = New System.Drawing.Point(392, 56)</p><p>　　Me.Label4.Name = "Label4"</p><p>　　Me.Label4.Size = New System.Drawing.Size(56, 48)</p><p>　　Me.Label4

75、.TabIndex = 3</p><p>　　Me.Label4.Text = "Label4"</p><p>　　Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p><p><b>　　'</b></p>&

76、lt;p><b>　　'Label5</b></p><p><b>　　'</b></p><p>　　Me.Label5.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label5.Font = New System.Drawi

77、ng.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label5.Location = New System.Drawing.Point(128, 72)</p><p>　　Me.La

78、bel5.Name = "Label5"</p><p>　　Me.Label5.Size = New System.Drawing.Size(24, 23)</p><p>　　Me.Label5.TabIndex = 4</p><p>　　Me.Label5.Text = "Label5"</p><

79、p>　　Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p><p><b>　　'</b></p><p><b>　　'Label6</b></p><p><b>　　'</b>

80、</p><p>　　Me.Label6.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label6.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsU

81、nit.Point, CType(134, Byte))</p><p>　　Me.Label6.Location = New System.Drawing.Point(232, 72)</p><p>　　Me.Label6.Name = "Label6"</p><p>　　Me.Label6.Size = New System.Drawin

82、g.Size(24, 23)</p><p>　　Me.Label6.TabIndex = 5</p><p>　　Me.Label6.Text = "Label6"</p><p>　　Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p>&l

83、t;p><b>　　'</b></p><p><b>　　'Label7</b></p><p><b>　　'</b></p><p>　　Me.Label7.BackColor = System.Drawing.Color.Transparent</p>

84、<p>　　Me.Label7.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label7.Location = New System.Draw

85、ing.Point(344, 72)</p><p>　　Me.Label7.Name = "Label7"</p><p>　　Me.Label7.Size = New System.Drawing.Size(24, 23)</p><p>　　Me.Label7.TabIndex = 6</p><p>　　Me.La

86、bel7.Text = "Label7"</p><p>　　Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter</p><p><b>　　'</b></p><p><b>　　'Label16</b>

87、</p><p><b>　　'</b></p><p>　　Me.Label16.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label16.Font = New System.Drawing.Font("宋體", 24.0!, System.

88、Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label16.Location = New System.Drawing.Point(480, 56)</p><p>　　Me.Label16.Name = "Label16"</p

89、><p>　　Me.Label16.Size = New System.Drawing.Size(80, 48)</p><p>　　Me.Label16.TabIndex = 15</p><p>　　Me.Label16.Text = "=24"</p><p>　　Me.Label16.TextAlign = Syste

90、m.Drawing.ContentAlignment.MiddleCenter</p><p><b>　　'</b></p><p><b>　　'Button1</b></p><p><b>　　'</b></p><p>　　Me.Button1

91、.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Button1.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))<

92、;/p><p>　　Me.Button1.Location = New System.Drawing.Point(96, 176)</p><p>　　Me.Button1.Name = "Button1"</p><p>　　Me.Button1.Size = New System.Drawing.Size(56, 32)</p>&

93、lt;p>　　Me.Button1.TabIndex = 16</p><p>　　Me.Button1.Text = "+"</p><p><b>　　'</b></p><p><b>　　'Button2</b></p><p><b>　

94、　'</b></p><p>　　Me.Button2.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Button2.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System

95、.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Button2.Location = New System.Drawing.Point(184, 176)</p><p>　　Me.Button2.Name = "Button2"</p><p>　　Me.Button2.S

96、ize = New System.Drawing.Size(56, 32)</p><p>　　Me.Button2.TabIndex = 17</p><p>　　Me.Button2.Text = "-"</p><p><b>　　'</b></p><p><b>　　

97、9;Button3</b></p><p><b>　　'</b></p><p>　　Me.Button3.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Button3.Font = New System.Drawing.Font("宋體&qu

98、ot;, 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Button3.Location = New System.Drawing.Point(272, 176)</p><p>　　Me.Button3.Name = &quo

99、t;Button3"</p><p>　　Me.Button3.Size = New System.Drawing.Size(64, 32)</p><p>　　Me.Button3.TabIndex = 18</p><p>　　Me.Button3.Text = "*"</p><p><b>　　

100、'</b></p><p><b>　　'Button4</b></p><p><b>　　'</b></p><p>　　Me.Button4.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.

101、Button4.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Button4.Location = New System.Drawing.Point(368,

102、 176)</p><p>　　Me.Button4.Name = "Button4"</p><p>　　Me.Button4.Size = New System.Drawing.Size(64, 32)</p><p>　　Me.Button4.TabIndex = 19</p><p>　　Me.Button4.Te

103、xt = "/"</p><p><b>　　'</b></p><p><b>　　'Button7</b></p><p><b>　　'</b></p><p>　　Me.Button7.BackColor = System.D

104、rawing.Color.Transparent</p><p>　　Me.Button7.Font = New System.Drawing.Font("宋體", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　

105、　Me.Button7.Location = New System.Drawing.Point(56, 288)</p><p>　　Me.Button7.Name = "Button7"</p><p>　　Me.Button7.Size = New System.Drawing.Size(88, 64)</p><p>　　Me.Button

106、7.TabIndex = 22</p><p>　　Me.Button7.Text = "開始"</p><p><b>　　'</b></p><p><b>　　'Button8</b></p><p><b>　　'</b>&l

107、t;/p><p>　　Me.Button8.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Button8.Font = New System.Drawing.Font("宋體", 21.75!, System.Drawing.FontStyle.Regular, System.Drawing.Graphi

108、csUnit.Point, CType(134, Byte))</p><p>　　Me.Button8.Location = New System.Drawing.Point(192, 288)</p><p>　　Me.Button8.Name = "Button8"</p><p>　　Me.Button8.Size = New Syste

109、m.Drawing.Size(80, 64)</p><p>　　Me.Button8.TabIndex = 23</p><p>　　Me.Button8.Text = "確認"</p><p><b>　　'</b></p><p><b>　　'Button9</

110、b></p><p><b>　　'</b></p><p>　　Me.Button9.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Button9.Font = New System.Drawing.Font("宋體", 21.75!, S

111、ystem.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Button9.Location = New System.Drawing.Point(352, 288)</p><p>　　Me.Button9.Name = "Button9&q

112、uot;</p><p>　　Me.Button9.Size = New System.Drawing.Size(80, 56)</p><p>　　Me.Button9.TabIndex = 24</p><p>　　Me.Button9.Text = "放棄"</p><p><b>　　'</

113、b></p><p><b>　　'Label8</b></p><p><b>　　'</b></p><p>　　Me.Label8.BackColor = System.Drawing.Color.Transparent</p><p>　　Me.Label8.Font

114、= New System.Drawing.Font("宋體", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))</p><p>　　Me.Label8.Location = New System.Drawing.Point(584, 264)</p&

115、gt;<p>　　Me.Label8.Name = "Label8"</p><p>　　Me.Label8.Size = New System.Drawing.Size(176, 104)</p><p>　　Me.Label8.TabIndex = 25</p><p>　　Me.Label8.Text = "游戲說明

116、 ： 點擊開始會隨機生成四個1—13之間的數(shù)字，通過加減乘除運算使得結(jié)果等于24！祝你好運"</p><p><b>　　'</b></p><p><b>　　'Form1</b></p><p><b>　　'</b></p><p>　　

117、Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)</p><p>　　Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)</p><p>　　Me.ClientSize = N

118、ew System.Drawing.Size(752, 365)</p><p>　　Me.Controls.Add(Me.Label8)</p><p>　　Me.Controls.Add(Me.Button9)</p><p>　　Me.Controls.Add(Me.Button8)</p><p>　　Me.Controls.Add(

119、Me.Button7)</p><p>　　Me.Controls.Add(Me.Button4)</p><p>　　Me.Controls.Add(Me.Button3)</p><p>　　Me.Controls.Add(Me.Button2)</p><p>　　Me.Controls.Add(Me.Button1)</p>

120、;<p>　　Me.Controls.Add(Me.Label16)</p><p>　　Me.Controls.Add(Me.Label7)</p><p>　　Me.Controls.Add(Me.Label6)</p><p>　　Me.Controls.Add(Me.Label5)</p><p>　　Me.Contro

121、ls.Add(Me.Label4)</p><p>　　Me.Controls.Add(Me.Label3)</p><p>　　Me.Controls.Add(Me.Label2)</p><p>　　Me.Controls.Add(Me.Label1)</p><p>　　Me.Name = "Form1"</p

122、><p>　　Me.Text = "游戲"</p><p>　　Me.ResumeLayout(False)</p><p><b>　　End Sub</b></p><p>　　#End Region</p><p>　　Private Sub Button7_Click(By

123、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click</p><p>　　Label1.Text = Int(13 * Rnd() + 1)</p><p>　　Label2.Text = Int(13 * Rnd() + 1)</p><p>　　Label3

124、.Text = Int(13 * Rnd() + 1)</p><p>　　Label4.Text = Int(13 * Rnd() + 1)</p><p>　　Button1.Enabled = True</p><p>　　Button2.Enabled = True</p><p>　　Button3.Enabled = True&l

125、t;/p><p>　　Button4.Enabled = True</p><p>　　Button8.Enabled = True</p><p>　　Button9.Enabled = True</p><p>　　Label5.Text = ""</p><p>　　Label6.Text = &