【正文】 1］羅偉其，姚國祥，羅勇輝，等 . 信息大系統(tǒng)的信息集成結(jié)構(gòu)模型實習與實現(xiàn) [J]. 計算機工程與應用， 2021， 37(2)： 911. ［ 2］方陸明 . 森林資源信息管理網(wǎng)絡(luò)化 [M]. 北京：科學出版社， 2021， 12： 6982. 信息工程學院 課 程 大 作 業(yè) 報 告 課程名稱： vb程序設(shè)計 課程編號： 作業(yè)內(nèi)容： VB制作俄羅斯方塊 目 錄 ............................................... 1 課程大作業(yè)設(shè)計的目的 .............................................. 1 VB在實際生活的應用 ................................................ 1 ................................... 1 俄羅斯方塊的題目描述 .............................................. 1 俄羅斯方塊設(shè)計思想 ................................................ 1 ........................................... 2 界面設(shè)計 .......................................................... 3 俄羅斯方塊的功能實現(xiàn) .............................................. 3 ............................................................ 6 VB課程大作業(yè)設(shè)計的目的 本課程設(shè)計以《程序設(shè)計簡明教程》課程為基礎(chǔ)，目的是進一步培養(yǎng)學生綜合應用 VB的各種編程知識和技巧進行程序設(shè)計的能力。在設(shè)計的過程中遇到問題，可以說得是困難重重，這畢竟第一次做的，難免會遇到過各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固，比如說控件的一些問題，通過這次課程設(shè)計之后，一定把以前所學過的知識重新溫故。Custom Picture = 方塊 .frx:BC6A ToolTipText = 退出 CTRL+X Top = 2475 Width = 480 以上的程序代碼實現(xiàn) 退出 功能 3） Private Sub Image3_Click() OPE_Click End Sub 以上的程序代碼實現(xiàn) “ 開始 ” 功能 4） Private Sub Image8_Click() Gotog_Click End Sub 以上的程序代碼實現(xiàn) “ 暫停 /繼續(xù) ” 功能 5） Private Sub Image7_Click() ENDG_Click End Sub 以上的程序代碼實現(xiàn) “ 停止 ” 功能 6） Private Sub Image9_Click() Exite_Click End Sub 以上的程序代碼實現(xiàn) “ 退出 ” 功能 7） Private Sub Image5_Click() If jB 40 Then jB = jB + 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click End Sub Private Sub Image6_Click() If jB 1 Then jB = jB 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click PrI End Sub 以上的程序代碼實現(xiàn)“速度級別的增加 /減少”功能 45. 課程設(shè)計是培養(yǎng)學生綜合運用所學知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實際問題 ,鍛煉實踐能力的重要環(huán)節(jié) ,是 對學生實際工作能力的具體訓練和考察過程 .隨著科學技術(shù)發(fā)展的日新日異，單片機已經(jīng)成為當今計算機應用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。 界面是以自己的照片為背景然后一個游戲方框和一個游戲輔助方框 ,再加上一些游戲所需的開始、暫停、退出等按鈕 1） Enabled = 0 39。 （ 6）游戲級別的自由選擇。 （ 2）俄羅斯方塊的造型。通過課程設(shè)計，學生能達到具備設(shè)計功能較為復雜的 Windows應用程序的能力。 這次課程設(shè)計終于順利完成了，在設(shè)計中遇到了很多編程問題，通過老師和同學的幫住都順利解決了。因此作為二十一世紀的大學來說掌握 VB的開發(fā)技術(shù)是十分重要的。False Height = 480 Left = 4680 MouseIcon = 方塊 .frx:BF74 MousePointer = 99 39。 （ 7）游戲速度的自由選擇。 （ 3）俄羅斯方塊 的旋轉(zhuǎn)。同時，通過課程設(shè)計，培養(yǎng)學生自主學習和獨立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要的一環(huán) VB在實際生活中的應用 Visual Basic(簡稱 VB)程序設(shè)計語言的基本概念和語法結(jié)構(gòu)以及常用控件 的使用 ,并通過大量的例子介紹 VB程序設(shè)計的方法和技巧 ,內(nèi)容包括 :VB程序設(shè)計基礎(chǔ)、對象及 VB應用程序的建立、數(shù)據(jù)的輸入與輸出、基本的控制結(jié)構(gòu)、數(shù)組和過程的程序設(shè)計、常用控件的使用、界面設(shè)計、圖形操作、文件、數(shù)據(jù)庫技術(shù)等 .在這些內(nèi)容的講解中 ,堅持語言為程序設(shè)計服務(wù)的原則 ,注重實用性 . 在教學的安排上 ,采用由淺到深、循序漸進的結(jié)構(gòu) ,做到通俗易懂 ,既有針對初學者的基本知識的介紹 ,也有針對已經(jīng)掌握 VB程序基本設(shè)計方法的學生對高層次內(nèi)容的要求 ,將程序設(shè)計語言、可視化的面向?qū)ο缶幊碳夹g(shù)、上機訓練有機地融為一體 .突出 VB的基本語法、編程方法的訓練 ,讓學生學會分析問題并快速掌握面向?qū)ο蟮某绦?、界面設(shè)計、數(shù)據(jù)庫技術(shù)的設(shè)計技巧 ,培養(yǎng)學生的動手能力和開發(fā)應用程序的能力 1. 運行游戲時 .界面隨機的產(chǎn)生不同形狀的方塊 ,游戲者通過自己的操作使方塊進行合理的堆積 .如果每層達到飽合狀態(tài)的時候會自動消除 .然后游戲有規(guī)則的進行加分 .分數(shù)達到一定的階段 .游戲的級別也會越來越高 .然后方塊下降的速度也會隨之慢慢加快 .以迎合游戲者的挑戰(zhàn) ,達到最加有趣的游戲 ! 羅斯方塊的設(shè)計思想 游戲是用來給大家娛樂的，所以要能在使用的過程中給大家?guī)砜鞓?，消除大家的疲勞，所以我們在游戲中添加了漂亮的場景和動聽的音樂，設(shè)置了過關(guān)升級的功能，激發(fā)大家的娛樂激情。通過課程設(shè)計，學生能達到具備設(shè)計功能較為復雜的 Windows應用程序的能力。 （ 2）俄羅斯方塊的造型。 （ 6）游戲級別的自由選擇。 界面是以自己的照片為背景然后一個游戲方框和一個游戲輔助方框 ,再加上一些游戲所需的開始、暫停、退出等按鈕 1） Enabled = 0 39。Custom Picture = 方塊 .frx:BC6A ToolTipText = 退出 CTRL+X Top = 2475 Width = 480 以上的程序代碼實現(xiàn) 退出 功能 3） Private Sub Image3_Click() OPE_Click End Sub 以上的程序代碼實現(xiàn) “ 開始 ” 功能 4） Private Sub Image8_Click() Gotog_Click End Sub 以上的程序代碼實現(xiàn) “ 暫停 /繼續(xù) ” 功能 5） Private Sub Image7_Click() ENDG_Click End Sub 以上的程序代碼實現(xiàn) “ 停止 ” 功能 6） Private Sub Image9_Click() Exite_Click End Sub 以上的程序代碼實現(xiàn) “ 退出 ” 功能 7） Private Sub Image5_Click() If jB 40 Then jB = jB + 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click End Sub Private Sub Image6_Click() If jB 1 Then jB = jB 1 End If If jB 1 Then = True = True 減 .Enabled = True 減 .Visible = True Else = False = False 減 .Enabled = False 減 .Visible = False End If If jB 40 Then = True = True 加 .Enabled = True 加 .Visible = True Else = False = False 加 .Enabled = False 加 .Visible = False End If ENDG_Click PrI End Sub 以上的程序代碼實現(xiàn)“速度級別的增加 /減少”功能 44. 課程設(shè)計是培養(yǎng)學生綜合運用所學知識 ,發(fā)現(xiàn) ,提出 ,分析和解決實際問題 ,鍛煉實踐能力的重要環(huán)節(jié) ,是對學生實際工作能力的具體訓練和考察過程 .隨著科學技術(shù)發(fā)展的日新日異，單片機已經(jīng)成為當今計算機應用中空前活躍的領(lǐng)域， 在生活中可以說得是無處不在。在設(shè)計的過程中遇到問題，可以說得是困難重重，這畢竟第一次做的，難免會遇到過各種各樣的問題，同時在設(shè)計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學過的知識理解得不夠深刻，掌握得不夠牢固，比如說控件的一些問題，通過這次課程設(shè)計之后，一定把以前所學過的知識重新溫故。 參考文獻： （若有，請附?。? ［數(shù)字］作者 1，作者 2. 文獻名稱［ J］ . 期刊名，時間，卷（期）：初始頁碼 結(jié)束頁碼 . ［數(shù)字］作者 1，作者 2. 書名［ M］ . 地點：出版社，出版年份 ，月 . ［ 1］羅偉其，姚國祥，羅勇輝，等 . 信息大系統(tǒng)的信息集成結(jié)構(gòu)模型實習與實現(xiàn) [J]. 計算機工程與應用， 2021， 37(2)： 911. ［ 2］方陸明 . 森林資源信息管理網(wǎng)絡(luò)化 [M]. 北京：科學出版社， 2021， 12： 6982.