Visual Basic程序設(shè)計實驗報告

VisualBasic程序設(shè)計實驗(本科)教學(xué)大綱實驗課程名稱：VisualBasic程序設(shè)計實驗課程性質(zhì)：基礎(chǔ)必修適用專業(yè)：理工科各專業(yè)實驗總學(xué)時：48學(xué)分?jǐn)?shù)：4（含理論）教材：《VisualBasic程序設(shè)計方法》李敬有主編北京航空航天大學(xué)出版社參考書：《VisualBasic程序設(shè)計》鄧文新主編北京航空航天大學(xué)出版社一、實驗教學(xué)目標(biāo)與要求：目標(biāo)：以VisualBasic6.0中文版為語言背景，通過實驗進(jìn)一步理解程序設(shè)計的基本知識，掌握可視化程序設(shè)計的基本思想以及會用VB開發(fā)工具設(shè)計一些實用的應(yīng)用程序。重點培養(yǎng)學(xué)生的編程能力、理論聯(lián)系實際的能力、程序的調(diào)試能力及創(chuàng)新能力。要求：注意自始至終貫徹課程中所介紹的程序設(shè)計風(fēng)格，養(yǎng)成良好的編程習(xí)慣。事先預(yù)習(xí)設(shè)計好程序，上機(jī)過程中能順利完成程序的調(diào)試，獨立完成所布置的上機(jī)作業(yè)。二、實驗課程具體內(nèi)容：序號實驗項目名稱學(xué)時每組人數(shù)必做選做教學(xué)目的及主要內(nèi)容實驗類型1VB集成開發(fā)環(huán)境21必做目的:1.熟悉VB集成開發(fā)環(huán)境的組成及設(shè)置；2.掌握VB的啟動、退出方法；3.掌握VB創(chuàng)建工程的基本步驟。內(nèi)容:1.練習(xí)VB的啟動、退出方法；2.利用“視圖”菜單顯示屬性窗口、代碼窗口、工程資源管理器窗口、工具箱等；3.建立一個簡單的VB程序，運行并保存；4.通過“工具”菜單的“選項”命令設(shè)置VB環(huán)境?；静僮?基本控件41必做目的:1.掌握常用控件（標(biāo)簽、文本框、命令按鈕）的屬性、事件和方法。內(nèi)容:1.在運行窗體時，顯示“學(xué)生管理系統(tǒng)”，當(dāng)用戶單擊窗體時，顯示“歡迎使用本系統(tǒng)”，當(dāng)用戶雙擊窗體時，顯示“再見！”；2.利用兩個標(biāo)簽控件，顯示具有浮雕效果的文字；3.為窗體插入圖片并移動具有浮雕效果的文字；4.利用隨機(jī)函數(shù)對控件字體大小進(jìn)行設(shè)置。設(shè)計3順序結(jié)構(gòu)及選擇結(jié)構(gòu)61必做目的:1.掌握賦值語句“=”的使用方法；2.掌握用戶交互函數(shù)InputBox與MsgBox的使用。3.掌握Print方法與Print方法有關(guān)的函數(shù)；4.掌握IF語句的程序設(shè)計方法；5.掌握SELECTCASE語句的程序設(shè)計方法。內(nèi)容:1.設(shè)計一個計算學(xué)生成績的程序。程序功能為：用戶在3個文本框中分別輸入英語、計算機(jī)與數(shù)學(xué)成績，單擊命令按鈕后，平均成績輸出到窗體上；2.編寫一個華氏與攝氏溫度之間轉(zhuǎn)換的程序，使用的轉(zhuǎn)換公式是：F=9/5*C+32；3.判定用戶輸入的數(shù)據(jù)是正數(shù)、負(fù)數(shù)還是零；4.將百分制學(xué)生的成績轉(zhuǎn)換成5分制（“A”，“B”，“C”，“D”，“E”）。設(shè)計4循環(huán)結(jié)構(gòu)8必做目的:1.掌握while語句、do…while語句、for語句實現(xiàn)循環(huán)程序設(shè)計的方法；2.掌握循環(huán)嵌套的使用方法；3.熟悉分支結(jié)構(gòu)與循環(huán)結(jié)構(gòu)的綜合運用。內(nèi)容:1.求1~100之間所有能被7整除的數(shù)之和；2.求兩個數(shù)的最大公約數(shù)；3.求Fibonacci數(shù)列的前20項；4.求1000以內(nèi)的水仙花數(shù)；5.輸出由“*”構(gòu)成的菱形；6.求100以內(nèi)的所有素數(shù)。7.輸出九九乘法表。設(shè)計5數(shù)組81必做目的:1.掌握數(shù)組的定義規(guī)則及使用方法；2.掌握自定義類型的使用方法；3.掌握控件數(shù)組的使用方法。內(nèi)容:1.打印直角的楊輝三角；2.編程實現(xiàn)有序數(shù)組中元素的插入與刪除；3.用多種方法實現(xiàn)一組數(shù)據(jù)的排序；4.自定義一個職工類型，包含職工號、姓名和年齡，輸入n個職工的數(shù)據(jù)；要求顯示每個職工的信息；4.建立含有四個命令按鈕的控件數(shù)組，當(dāng)單擊某個命令按鈕，分別顯示不同的圖形或結(jié)束操作；6.建立一個國際象棋的棋盤。設(shè)計6函數(shù)過程及子過程81必做目的:1.掌握過程的聲明、調(diào)用以及參數(shù)的傳遞；2.掌握數(shù)組參數(shù)的使用；3.掌握字符串子過程的使用；4.掌握遞歸過程的設(shè)計方法。內(nèi)容:1.設(shè)計一個窗體(含有文本，標(biāo)簽，命令按鈕)，利用函數(shù)過程判斷輸入的數(shù)據(jù)是否為素數(shù)；2.編寫一個子過程，求一維數(shù)組中的最大數(shù)；3.編寫一個子過程，從字符串中刪除子字符串；4.用遞歸的方法，編寫求組合數(shù)的程序。設(shè)計7ActiveX控件5.921必做目的:1.掌握常用ActiveX控件的程序設(shè)計方法；2.掌握鼠標(biāo)及鍵盤的常用事件。WindowsXPVisualBasic6.0MicrosoftOfficeWord2003內(nèi)容:1.編寫一個能對列表框內(nèi)容進(jìn)行項目添加、修改和刪除操作的應(yīng)用程序；2利用單選按鈕、復(fù)選框、框架、列表框及組合框等控件編寫一個應(yīng)用程序；3.設(shè)計一個錘打紅心游戲程序。設(shè)計8界面設(shè)計41必做目的:1.掌握通用對話框的編程；2.掌握各種菜單的設(shè)計方法和多窗體的設(shè)計方法。內(nèi)容:1.用命令按鈕的Click事件顯示文件對話框，在對話框內(nèi)只顯示文本文件；2.用“字體”對話框設(shè)置文本框的字體，要求字體對話框內(nèi)出現(xiàn)刪除線、下劃線，并可控制顏色元素；3.設(shè)計一個包含菜單的窗體；4.編寫具有多個文檔界面的字處理程序，它由一個父窗口和四個子窗口組成，其中兩個已最小化。設(shè)計9文件41必做目的：1.掌握文件系統(tǒng)控件的使用；2.掌握順序文件及隨機(jī)文件的建立、打開、關(guān)閉、讀、寫的操作方法。內(nèi)容：1.在窗體上添加驅(qū)動器列表框、目錄列表框、文件列表框及通用對話框，利用文件系統(tǒng)控件打開指定文件；2.建立順序文件，并讀、寫順序文件的內(nèi)容，最后關(guān)閉文件；3.建立隨機(jī)文件，包含學(xué)生的學(xué)號、姓名、計算機(jī)成績等信息，并進(jìn)行讀、寫操作。驗證10綜合實驗21必做目的：利用VB控件、流程控制、數(shù)組、文件等知識解決一個具體問題，從而初步達(dá)到綜合應(yīng)用VB語言的能力。內(nèi)容：由學(xué)生根據(jù)所學(xué)知識，自行選擇要管理的數(shù)據(jù)，確定管理功能（功能要求：至少包含數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù)查詢等功能）。綜合第一次實驗報告課程名稱：VisualBasic程序設(shè)計實驗實驗項目：VB集成開發(fā)環(huán)境實驗室：15J13室（504）機(jī)器編號：班級：數(shù)學(xué)072姓名：姓名(學(xué)號)實驗日期：2008年3月8日目的:1.熟悉VB集成開發(fā)環(huán)境的組成及設(shè)置；2.掌握VB的啟動、退出方法；3.掌握VB創(chuàng)建工程的基本步驟。軟硬件環(huán)境： 硬件：cpu主頻：2.4GHz,內(nèi)存：256M，硬盤：80G軟件：Windows2000操作系統(tǒng)，VisualBasic6.0內(nèi)容:1.練習(xí)VB的啟動、退出方法；2.利用“視圖”菜單顯示屬性窗口、代碼窗口、工程資源管理器窗口、工具箱等；3.建立一個簡單的VB程序，運行并保存；4.通過“工具”菜單的“選項”命令設(shè)置VB環(huán)境。實驗數(shù)據(jù)記錄第二次實驗報告課程名稱：VisualBasic程序設(shè)計實驗實驗項目：基本控件實驗室：15J13室（504）機(jī)器編號：班級：姓名：實驗日期：2008年3月23日實驗?zāi)康模赫莆粘Ｓ每丶?biāo)簽、文本框、命令按鈕）的屬性、事件和方法。軟硬件環(huán)境： 硬件：主頻：2.4GHz,內(nèi)存：256M，硬盤：80G軟件：Windows2000操作系統(tǒng)，VisualBasic6.0實驗內(nèi)容:在運行窗體時，顯示“學(xué)生管理系統(tǒng)”，當(dāng)用戶單擊窗體時，顯示“歡迎使用本系統(tǒng)”，當(dāng)用戶雙擊窗體時，顯示“再見！”；操作方法：啟動VB后，創(chuàng)建一個EXE工程，在FORM1上屬性設(shè)置，將AutoRedraw設(shè)置為True.打開代碼窗口書寫代碼PrivateSubForm_Click()Print"歡迎使用本系統(tǒng)"EndSubPrivateSubForm_DblClick()Print"再見"EndSubPrivateSubForm_Load()Print"學(xué)生管理系統(tǒng)"EndSub(3)運行程序（4）保存窗體和工程2.利用兩個標(biāo)簽控件，顯示具有浮雕效果的文字；3.為窗體插入圖片并移動具有浮雕效果的文字；4.利用隨機(jī)函數(shù)對控件字體大小進(jìn)行設(shè)置。實驗數(shù)據(jù)記錄程序運行后窗體上出現(xiàn)“”單擊窗體時雙擊窗體時第三次實驗報告課程名稱：VisualBasic程序設(shè)計實驗項目：順序結(jié)構(gòu)及選擇結(jié)構(gòu)實驗室：15J11室（501）機(jī)器編號：班級：生物061姓名：姜磊(2006052011)實驗日期：2007年4月5日實驗?zāi)康模很浻布h(huán)境：硬件：主頻：2.4GHz,內(nèi)存：256M，硬盤：80G軟件：Windows2000操作系統(tǒng)，VisualBasic6.0實驗內(nèi)容:1.設(shè)計一個計算學(xué)生成績的程序。程序功能為：用戶在3個文本框中分別輸入英語、計算機(jī)與數(shù)學(xué)成績，單擊命令按鈕后，平均成績輸出到窗體上；（1）.界面設(shè)計如下，在窗體上加三個標(biāo)簽，三個文本框，一個命令按鈕，屬性設(shè)置如下表控件名屬性設(shè)置Label1Caption=”英語”Label2Caption=”計算機(jī)”Label3Caption=”數(shù)學(xué)”Text1Text=””Text2Text=””Text3Text=””Command1Caption=”平均分”（2）．代碼設(shè)計Dimyy%,xs%,jsj%,pj!PrivateSubCommand1_Click()yy=Text1.Textjsj=Text2xs=Text3pj=(yy+xs+jsj)/3Print"???ù·??a￡o",pjEndSub（3）運行（4）保存2.編寫一個華氏與攝氏溫度之間轉(zhuǎn)換的程序，使用的轉(zhuǎn)換公式是：F=9/5*C+32；3.判定用戶輸入的數(shù)據(jù)是正數(shù)、負(fù)數(shù)還是零；4.將百分制學(xué)生的成績轉(zhuǎn)換成5分制（“A”，“B”，“C”，“D”，“E”）。實驗數(shù)據(jù)記錄1．設(shè)計時界面如下運行程序，在三個文本框分別輸入成績96，98，94，單擊“平均分”按鈕后，如下圖第四次實驗報告課程名稱：VisualBasic程序設(shè)計實驗項目：循環(huán)結(jié)構(gòu)實驗室：15J11室（501）機(jī)器編號：班級：生物061姓名：姜磊(2006052011)實驗日期：2007年4月12日實驗?zāi)康模?.掌握while語句、do…while語句、for語句實現(xiàn)循環(huán)程序設(shè)計的方法；2.掌握循環(huán)嵌套的使用方法；3.熟悉分支結(jié)構(gòu)與循環(huán)結(jié)構(gòu)的綜合運用。實驗內(nèi)容:1.求1~100之間所有能被7整除的數(shù)之和；s=0Fori=1To100IfiMod7=0ThenPrintis=s+iEndIfNextPrint"100以內(nèi)能被7整數(shù)的數(shù)和是",s2.求兩個數(shù)的最大公約數(shù)；3.求Fibonacci數(shù)列的前20項；4.求1000以內(nèi)的水仙花數(shù)；5.輸出由“*”構(gòu)成的菱形；6.求100以內(nèi)的所有素數(shù)。7.輸出九九乘法表。判別一個數(shù)是否為素數(shù)'方法一:用是否除完判別Dimx%,i%,flagAsBooleanPrivateSubCommand1_Click()x=InputBox("輸入一個整數(shù)")Fori=2Tox-1IfxModi=0ThenExitForNextIfi>x-1ThenPrintx,"是素數(shù)"ElsePrintx,"不是素數(shù)"EndIfEndSub'方法二:用標(biāo)志判別Private