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

1、<p><b>　　《VB課程設(shè)計(jì)》</b></p><p>　　設(shè)計(jì)題目： 益智類算數(shù)小游戲 </p><p>　　專 業(yè)： 信息管理與信息系統(tǒng) </p><p>　　班 級(jí)： 學(xué) 號(hào)： </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è)計(jì) ………………………06</p><p>　　第四章 編碼實(shí)現(xiàn) ………………………07</p><p>　　第五章 調(diào)試與測(cè)試………………………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)濟(jì)增民的一個(gè)亮點(diǎn)。實(shí)踐是軟件開發(fā)的核心，對(duì)代碼要求精益求精，在開發(fā)的過(guò)程中，簡(jiǎn)單設(shè)計(jì)，用測(cè)試驅(qū)動(dòng)，通過(guò)重構(gòu)和迭代代碼實(shí)現(xiàn)設(shè)計(jì)。</p><p>　　Visual Basic,其中主要地介紹了Visual Basic 6.0，以及Visual Basic的編程環(huán)境。同時(shí)通過(guò)小游戲簡(jiǎn)單介紹

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

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

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

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

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

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

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

13、bel.text的字符串類型接受，所以需要用到該語(yǔ)法進(jìn)行強(qiáng)制的類型轉(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。顯示在輸入文本框中的默認(rèn)內(nèi)容，省略則顯示空串。</p><p>　　XPos。指定對(duì)話框左邊界和屏幕左邊界的間距。省略時(shí)對(duì)話框位于水平方向中心。</p><p>　　YPos。指定對(duì)話框上邊界和屏幕上邊界的間距。省略時(shí)對(duì)話框位于豎直方向，大約在屏幕上邊界往下三分之一的地方</p><p>　　If …else語(yǔ)法</p><p>

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

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

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

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

19、se語(yǔ)句來(lái)實(shí)現(xiàn)判斷的過(guò)程。</p><p>　　六 在找不到答案的情況下或一時(shí)想不起的時(shí)候可以放棄此組數(shù)據(jù)，可以選擇放棄按鈕，放棄按鈕主要是對(duì)數(shù)據(jù)清空工作。</p><p>　　第四章 編碼實(shí)現(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>　　三 在確認(rèn)按鈕中設(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)試與測(cè)試</p><p>　　一 控件布置及相關(guān)的設(shè)置：</p><p>　　二 控件中的源代碼的實(shí)現(xiàn)</p><p><b>　　三 程序的試運(yùn)行</b>&

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

39、由過(guò)程編程徹底轉(zhuǎn)向編程，因?yàn)槊總€(gè) VB 程序，你編寫任何 VB 程序，你都不自覺(jué)的在構(gòu)造一個(gè)模塊，過(guò)程。</p><p>　　相對(duì)于另一門面向?qū)ο蟮恼Z(yǔ)言C++而言，VB 在面向?qū)ο蟮呢瀼胤矫嬉?C++ 徹底。有人說(shuō)“C++ 是打著面向?qū)ο蟮幕献?，干著過(guò)程編程的勾當(dāng)”或許不是言過(guò)其辭，C++繼承了C的面向過(guò)程的一些特性，而VB幾乎都用了面向?qū)ο蟮乃枷雭?lái)實(shí)現(xiàn)程序。但是無(wú)論是 c++ 還是 VB都有可能走過(guò)程編程的老

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

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

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

43、――并沒(méi)有系統(tǒng)地學(xué)習(xí)過(guò)，卻要一點(diǎn)一點(diǎn)地用出來(lái)。洋洋灑灑的一本書，不禁為要走的路之漫長(zhǎng)艱辛感慨不已。但是倘若是真的有興趣有毅力，這些應(yīng)當(dāng)不在話下。</p><p>　　是故，本次課程設(shè)計(jì)帶給我的不僅僅是為未來(lái)打基礎(chǔ)這么簡(jiǎn)單的收獲，更多的是一種認(rèn)識(shí)。小至一門課程、一門語(yǔ)言，大至一門專業(yè)、一段人生，若不是熱情主動(dòng)刻苦地學(xué)習(xí)，將一無(wú)所獲。</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è)計(jì)器生成的代碼 "</p&g

45、t;<p>　　Public Sub New()</p><p>　　MyBase.New()</p><p>　　'該調(diào)用是 Windows 窗體設(shè)計(jì)器所必需的。</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è)計(jì)器所必需的</p><p>　　Private components As System.ComponentModel.IContainer</p>

49、<p>　　'注意: 以下過(guò)程是 Windows 窗體設(shè)計(jì)器所必需的</p><p>　　'可以使用 Windows 窗體設(shè)計(jì)器修改此過(guò)程。</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 = "確認(rèn)"</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 = "游戲說(shuō)明

116、 ： 點(diǎn)擊開始會(huì)隨機(jī)生成四個(gè)1—13之間的數(shù)字，通過(guò)加減乘除運(yùn)算使得結(jié)果等于24！祝你好運(yùn)"</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 = &