版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
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語句,這個語句在程序里主要是用于控制按鈕,標簽等控件是否可用。</p><p> Val語句,這個語句主要
11、用于類型轉(zhuǎn)換,TextBox.text只支持字符串格式,而加、減、乘、除等的運算需要時數(shù)字才可以,所以要通過Val將字符串類型轉(zhuǎn)換為數(shù)字類型,讓后進行運算。</p><p> Buttons。顯示按鈕,是個枚舉類型MsgBoxStyle值。用來控制在對話框內(nèi)顯示的按鈕類型、數(shù)目及圖標樣式。</p><p> Title。消息框的標題。若省略,則默認為當前的應(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。輸入框的標題。</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 用于改邊背景顏色。此程序主要用來改變標簽的背景顏色。</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中賦予點擊按鈕將加號給指定的標簽label5,Button2中賦予點擊按鈕將減號給指定的標簽label6,Button3中賦予點擊按鈕將除號給指定的標簽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ū)ο蟮幕献?,干著過程編程的勾當”或許不是言過其辭,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> 古語有云“工欲善其事,必先利其器”,當初朦朦朧朧地寫了代碼,就體會到學(xué)習(xí)VB仍然是處于初步階段,遠遠不夠“善其事”。只是VB的學(xué)習(xí)是要不斷
42、把所學(xué)和所用結(jié)合的,一次課程設(shè)計可以體會到知識的不足,而后補充所需的知識,再進行實踐,再發(fā)現(xiàn)不足,如此不斷,才能慢慢體會這門語言的精髓。</p><p> 再如軟件設(shè)計。毋庸置疑,本次課程設(shè)計只是讓我“摸一下軟件設(shè)計”。如專家所說,軟件文檔的編寫是應(yīng)當占了軟件設(shè)計的90%的時間精力的,文檔寫好了,隨便一個程序員都能做出軟件來??梢娷浖臋n的重要性。對于只是“了解軟件工程” 的我們來說,編寫文檔莫過于一件痛苦的事
43、――并沒有系統(tǒng)地學(xué)習(xí)過,卻要一點一點地用出來。洋洋灑灑的一本書,不禁為要走的路之漫長艱辛感慨不已。但是倘若是真的有興趣有毅力,這些應(yī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 = &
溫馨提示
- 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)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- vb課程設(shè)計--制作小游戲
- vb課程設(shè)計-- 基于vb語言的賽車小游戲
- 畢業(yè)論文-開發(fā)小型益智類游戲
- 掃雷小游戲課程設(shè)計
- 益智類游戲節(jié)目之蹊徑崛起和衰落
- 教育益智類玩具畢業(yè)設(shè)計
- 《猜拳小游戲》課程設(shè)計報告
- c語言小游戲課程設(shè)計
- java課程設(shè)計報告-掃雷小游戲
- 打飛機小游戲-java課程設(shè)計
- java課程設(shè)計-21點小游戲
- vb打字游戲課程設(shè)計報告
- vb課程設(shè)計報告---打字游戲
- vb課程設(shè)計拼圖游戲
- [vb畢設(shè)]簡單小游戲設(shè)計
- android課程設(shè)計連連看小游戲
- 數(shù)字系統(tǒng)課程設(shè)計--挑戰(zhàn)迷宮小游戲
- android課程設(shè)計報告--猜數(shù)字小游戲
- vb課程設(shè)計--九格游戲
- vb課程設(shè)計報告--拼圖游戲
評論
0/150
提交評論