【正文】 對消除的函數(shù)進行記錄，最后就可以得出用戶的分數(shù)，用if 語句對分數(shù)判斷，達到一定的積分就可以升級到下一個檔次。通過課程設計，學生能達到具備設計功能較為復雜的Windows應用程序的能力。同時，在汪老師的身上我學得到很多實用的知識，在次我表示感謝！同時，對給過我?guī)椭乃型瑢W再次表示忠心的感謝！都是很有意義的。這次課程設計終于順利完成了，在設計中遇到了很多編程問題，通過老師和同學的幫住都順利解決了。通過這次課程設計使我懂得了理論與實際相結合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結合起來，從理論中得出結論，才能真正為社會服務，從而提高自己的實際動手能力和獨立思考的能力。因此作為二十一世紀的大學來說掌握VB的開發(fā)技術是十分重要的。False Width = 480 End以上的代碼來實現(xiàn)繼續(xù)功能2）Begin Image9 Height = 480 Left = 5880 MouseIcon = :B960 MousePointer = 99 39。False Height = 480 Left = 4680 MouseIcon = :BF74 MousePointer = 99 39。 （9）游戲菜單選項的設計及功能實現(xiàn)。 （7）游戲速度的自由選擇。 （5）俄羅斯方塊的自動消行功能。 （3）俄羅斯方塊的旋轉。 俄羅斯方塊游戲設計的主要步驟為以下幾個方面： （1）游戲界面的設計。同時，通過課程設計，培養(yǎng)學生自主學習和獨立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要的一環(huán) VB在實際生活中的應用Visual Basic(簡稱VB)程序設計語言的基本概念和語法結構以及常用控件的使用,并通過大量的例子介紹VB程序設計的方法和技巧,內容包括:VB程序設計基礎、對象及VB應用程序的建立、數(shù)據(jù)的輸入與輸出、基本的控制結構、數(shù)組和過程的程序設計、常用控件的使用、界面設計、圖形操作、文件、,堅持語言為程序設計服務的原則,注重實用性. 在教學的安排上,采用由淺到深、循序漸進的結構,做到通俗易懂,既有針對初學者的基本知識的介紹,也有針對已經(jīng)掌握VB程序基本設計方法的學生對高層次內容的要求,將程序設計語言、可視化的面向對象編程技術、編程方法的訓練,讓學生學會分析問題并快速掌握面向對象的程序、界面設計、數(shù)據(jù)庫技術的設計技巧,培養(yǎng)學生的動手能力和開發(fā)應用程序的能力 1. ,達到最加有趣的游戲! 游戲是用來給大家娛樂的，所以要能在使用的過程中給大家?guī)砜鞓?，消除大家的疲勞，所以我們在游戲中添加了漂亮的場景和動聽的音樂，設置了過關升級的功能，激發(fā)大家的娛樂激情。課 程 大 作 業(yè) 報 告課程名稱： vb程序設計（自學） 課程編號： 作業(yè)內容： VB制作俄羅斯方塊 專 業(yè)： 計算機 目 錄 1 課程大作業(yè)設計的目的 1 VB在實際生活的應用 1 1 俄羅斯方塊的題目描述 1 俄羅斯方塊設計思想 1 2 界面設計 3 俄羅斯方塊的功能實現(xiàn) 3 6 VB課程大作業(yè)設計的目的本課程設計以《程序設計簡明教程》課程為基礎，目的是進一步培養(yǎng)學生綜合應用VB的各種編程知識和技巧進行程序設計的能力。通過課程設計，學生能達到具備設計功能較為復雜的Windows應用程序的能力。 從游戲的基本玩法出發(fā)，主要就是俄羅斯方塊的形狀和旋轉，我們在設計中在一個圖片框中構造了一個4*4的網(wǎng)狀小塊，由這些小塊組合成新的形狀，每四個小塊連接在一起就可以構造出一種造型，因此我們總共設計了7中造型，每種造型又可以通過旋轉而變化出2到4種形狀，利用隨機函數(shù)在一個欲覽窗體中提前展示形狀供用戶參考，然后將展示的形狀復制到游戲窗體中進行擺放，在游戲窗體中用戶就可以使用鍵盤的方向鍵來控制方塊的運動，然后利用遞歸語句對每一行進行判斷，如果有某行的方塊是滿的，則消除這行的方塊，并且使上面的方塊自由下落，其中，方塊向下的速度是有時鐘控件控制的，在游戲中，用戶也可以使用向下鍵加快下落速度，定義一個變量，對消除的函數(shù)進行記錄，最后就可以得出用戶的分數(shù)，用if 語句對分數(shù)判斷，達到一定的積分就可以升級到下一個檔次。 （2）俄羅斯方塊的造型。 （4）俄羅斯方塊的運動情況（包括向左，向右和向下）。 （6）游戲級別的自由選擇。 （8）游戲得分的計算。界面是以自己的照片為背景然后一個游戲方框和一個游戲輔助方框,再加上一些游戲所需的開始、暫停、退出等按鈕1）Enabled = 0 39。Custom Picture = :C3B6 ToolTipText = 續(xù)繼CTRL+J Top = 2475 Visible = 0 39。Custom Picture = :BC6A ToolTipText = 退出CTRL+X Top = 2475 Width = 480以上的程序代碼實現(xiàn)退出功能3）Private Sub Image3_Click()OPE_ClickEnd Sub以上的程序代碼實現(xiàn)“開始”功能4）Private Sub Image8_Click()Gotog_ClickEnd Sub以上的程序代碼實現(xiàn)“暫停/繼續(xù)”功能5）Private Sub Image7_Click()ENDG_ClickEnd Sub以上的程序代碼實現(xiàn)“停止”功能6）Private Sub Image9_Click()Exite_ClickEnd Sub以上的程序代碼實現(xiàn)“退出”功能7）Private Sub Image5_Click()If jB 40 ThenjB = jB + 1End IfIf jB 1 Then = True = True = True = TrueElse = False = False = False = FalseEnd IfIf jB 40 Then = True = True = True = TrueElse = False = False = False = FalseEnd IfENDG_ClickEnd SubPrivate Sub Image6_Click()If jB 1 ThenjB = jB 1End If If jB 1 Then = T