《VB.NET程序設計實驗指導書》

1、vb.net程序設計實驗指導書信息技術系實驗一 vb.net 程序設計初步一、實驗目的：1、熟悉vb.net程序開發(fā)環(huán)境，了解vb.net應用程序的基本框架結構。2、掌握windows form的事件處理機制，以及如何在運行期創(chuàng)建控件。3、初步掌握vb.net的基本編程方法和技巧。二、實驗內容及步驟：1、 編寫一程序運行界面如下：要求：單擊“開始”按鈕，在文本框中顯示紅色“hello world!”；單擊“清屏”按鈕，則文本框中不顯示任何信息；單擊“結束”按鈕，則退出運行。思考：如何能夠在程序運行時，窗體中的某個按鈕不顯示。2、 編寫一個對輸入字符進行轉換的程序。轉換規(guī)則為：將其中的大寫字母轉

2、換成小寫字母，小寫字母轉換成大寫字母，空格不轉換，其余轉換成“*”。要求每輸入一個字符馬上進行判斷和轉換。程序運行界面如下：提示：對textbox1_keypress 事件過程進行編碼如下：3、 編寫一個對數(shù)據(jù)進行過濾的程序。要求在文本框中輸入數(shù)據(jù)，當按tab鍵時表示輸入結束，對于輸入正確的數(shù)據(jù)，顯示“正確”信息；對輸入的非數(shù)字數(shù)據(jù)顯示“錯誤，請再輸入！”信息，同時清除文本框中的內容，并使焦點重新回到文本框。提示：(1）“按tab鍵時表示輸入結束”所使用的事件過程為textbox1_lostfocus( )(2）判斷文本框中的內容是否為數(shù)字：isnumeric(textbox1.text)(3

3、) 使焦點重新回到文本框：textbox1. focus ( )實驗二 vb.net 順序結構一、實驗目的：1、掌握vb.net輸入輸出語句的應用。2、掌握賦值語句的應用。二、實驗內容及步驟：1美元兌換人民幣計算提示：1）將字符串轉換為單精度數(shù)的函數(shù)為csng。 2）圖中的顯示為在匯率為8.099時的計算結果。 3）運算結果顯示為2位，可用格式輸出函數(shù)format：format (expressionlist, #.#)。2計算輸入數(shù)的階乘。 利用inputbox輸入整數(shù)，求其階乘。提示：將數(shù)值轉換為字符的函數(shù)為cstr。注意：此題不要做成求10的階乘，要能求出任何輸入的數(shù)的階乘。3. 計算4

4、個數(shù)的和及平均值從鍵盤上輸入4個數(shù)，計算并輸出這4個數(shù)的和及平均值。通過inputbox函數(shù)輸入數(shù)據(jù)，在窗體上用標簽顯示和及平均值。4. 密碼驗證程序創(chuàng)建2個窗體，在第一個窗體中，點擊“進入”按鈕，用inputbox實現(xiàn)口令輸入框，當輸入的密碼為888時，顯示第二個窗體，密碼錯誤時，用msgbox提示錯誤信息。提示：1、創(chuàng)建窗體form2的方法：“項目”“添加windows窗體”“打開”。2、在vb.net中，窗體是一個類，在程序代碼中如想使用窗體，必須先將其實例化。在本例中，創(chuàng)建完窗體form2后，在程序中使用它，必須先將其實例化，定義一個form2的實例，如dim formsecond a

5、s new form2，然后再對其使用。實驗三 選擇結構程序設計一、實驗目的：1、掌握單分支、雙分支條件與多分支條件語句的使用。2、掌握情況語句的使用及與多分支條件語句的區(qū)別。二、實驗內容及步驟：1、計算銷售提成用文本框輸入銷售額，用ifelse結構計算銷售提成。sale=1000，不提；1,000sale=5,000，提成為sale*5%；5,000sale10,000時，除按上面的額度提成外，超過10,000的部分提10。2、所得稅計算 1）收入在2000元以內，免征。2）收入20004000元，超過2000元的部分納稅3。3）收入超過4000元時，在20004000元之間的部分納稅3，超

6、過4000元的部分納稅4。4）當收入達50000元或超過時，在20004000元之間的部分，納稅3，400050000元的部分納稅4，超過50000元的部分納稅為5。3、教材p103習題14：隨機生成50100的20個數(shù)，分別顯示其中最大的數(shù)、最小的數(shù)和平均值。提示：1、使用form_click()事件過程； 2、隨機生成50100的數(shù)：int(rnd*（10050+1）+50)4、 教材p284實驗1：在購買某物品時，若所花的錢x在下述范圍內，所付錢y按照對應折扣支付：xx10000.9x1000= x 20000.8x2000= x=3000提示：用多分支結構實現(xiàn)，注意計算公式和條件表達式

7、的正確書寫。5、教材p284實驗2：編寫程序，輸入上網時間，計算上網費用，計算方法如下：30元基數(shù)=50小時同時為了鼓勵多上網，每月收費最多不能150元。實驗四 循環(huán)結構程序設計一、實驗目的：1、掌握for循環(huán)語句、do循環(huán)語句以及while循環(huán)語句的使用。2、熟悉累加、連乘、求素數(shù)、求最大值及最小值的算法。二、實驗內容及步驟：1、分別利用for和do循環(huán)語句求1!+2!+n!的值。提示：1、使用form_click()事件過程； 2、利用inputbox函數(shù)輸入n的值； 3、利用msgbox過程輸出結果。2、 參照教材p88例題4.13，分別實現(xiàn)呈下三角和上三角的九九乘法表。3、教材p287

8、實驗5： 編寫程序，要求顯示出所有的水仙花數(shù)。所謂的水仙花數(shù)，是指一個3位數(shù)，其各位數(shù)字立方和等于該數(shù)字本身。例如：153是水仙花數(shù)。提示：方法有兩種：（1）利用三重循環(huán)，將3個數(shù)字連成一個3位數(shù)進行判斷； （2）利用單循環(huán)將一個3位數(shù)逐位分離后進行判斷。4、求s= a + aa + aaa + + aaaaa （n 個 a），其中a 是一個由隨機數(shù)產生的1-9（包括1，9）中的一個正整數(shù)，n 是一個由隨機數(shù)產生的5-10（包括5、10）中的一個數(shù)。例如：當 a =2 ，n =5 時，s = 2 + 22 + 222 + 2222 + 22222.提示： 為了得到不斷重復a 的 n 位數(shù) te

9、mp ，可用如下程序段實現(xiàn)：temp = 0 for i = 1 to ntemp = temp *10 + a next i實驗五 數(shù)組一、實驗目的：1、掌握數(shù)組的聲明、數(shù)組元素的應用。2、掌握靜態(tài)數(shù)組、動態(tài)數(shù)組的使用差別。3、應用數(shù)組解決與數(shù)組有關的常用算法。二、實驗內容及步驟：1、運動成績排序。某單位開運動會，共有10人參加男子100米短跑，運動員號和成績如下：207號 14.5秒 077號 15.1秒156號 14.2秒 231號 14.7秒453號 15.2秒 276號 13.9秒096號 15.7秒 122號 13.7秒339號 14.9秒 302號 14.5秒2、排列銷售業(yè)績，有

10、如下公司的銷售額，要求按照由多到少進行排序。公司聯(lián)想方正同方dell紫光神舟銷售額(億元)19.514.917.13、 已知數(shù)組a( )的值分別為1，6，8，3，5，9，10，2，7，4，刪除key值為10的元素。提示：刪除數(shù)組元素，必須分三個步驟完成。首先查找到要刪除的元素，然后從下一個元素到最后一個元素依次往前移位，最后利用redim preserve語句將數(shù)組大小減1。實驗六 vb.net 過程（1）一、實驗目的：1、掌握函數(shù)過程和子過程的定義和調用方法。2、掌握形參、實參的對應關系。3、掌握值傳遞和地址傳遞的傳遞方式。4、掌握變量、過程的作用域。二、實驗內容及步

11、驟：1 求最大值編寫一過程，求三個數(shù)的最大值；在窗體中輸入三個數(shù)，在按鈕的事件過程中調用該過程，求出最大值。2求階乘編寫一過程，求一個數(shù)的階乘；在窗體中輸入三個數(shù)，在按鈕的事件過程中調用過程求出三個數(shù)的階乘后，再相加，sum=a!+b!+c!3. 求偶數(shù)的倒數(shù)和編寫一過程，求從2開始到某個偶數(shù)的倒數(shù)和；在窗體中輸入一個偶數(shù)，在按鈕的事件過程中調用該過程，求出從2開始到所求的偶數(shù)的倒數(shù)和。s=4排序編寫一過程，實現(xiàn)數(shù)組元素的排序；在按鈕的事件過程中，隨機生成10個1100的數(shù)存放在數(shù)組中，調用該過程，將10個數(shù)由小到大排列起來。提示：1) 定義過程，將數(shù)組作為形參，如：sub bubblesor

12、t(byref array() as double)2) 調用過程，將數(shù)組作為實參，如：bubblesort(array) 3）求數(shù)組的上界： ubound( array)實驗七 vb.net 過程（2）一、實驗目的：1、掌握函數(shù)過程和子過程的定義和調用方法。2、掌握數(shù)制轉換、加密解密以及查找等常用算法。二、實驗內容及步驟：1查找參考教材例題，編寫一過程，利用二分查找法實現(xiàn)在已知數(shù)組2,4,1,6,8,10,9,11,7,5,3中查找某個數(shù)的功能。2. 數(shù)制轉換參考教材例題，編寫一過程，實現(xiàn)非十進制數(shù)轉換成十進制數(shù)的功能；在文本框中輸入一個非十進制數(shù)及其制式，單擊按鈕，調用該過程，將此非十進制

13、數(shù)轉化成十進制數(shù)。3解密參考教材例題，編寫一過程，實現(xiàn)將已加密的字符串解密的功能。4. 教材實驗六第1題編寫一個子過程procmin（a( ),mina），求一維數(shù)組a中的最小值mina。主調程序隨機產生10個-300-400之間的數(shù)，顯示產生的數(shù)組中各元素；調用procmin子過程，顯示出數(shù)組中的最小值。5. 教材實驗六第5題編寫一個子過程maxlength（s，maxword），在已知的字符串s中，找出最長的單詞maxword。假定字符串s內只含有字母和空格，空格分隔不同的單詞。6. 教材實驗六第6題編寫一個函數(shù)過程ish（n），對于已知正整數(shù)n，判斷該數(shù)是否是回文數(shù)，函數(shù)的返回值是布爾型

14、。主調程序每輸入一個數(shù)，調用ish函數(shù)過程，然后在label3框顯示輸入的數(shù)，對于是回文數(shù)顯示一個“”。提示：（1） 所謂回文數(shù)是指順讀和倒讀數(shù)字相同，即最高位與最低位相同，次高位與次低位相同，以此類推。當只有一位數(shù)時，也認為是回文數(shù)。（2） 回文數(shù)的求法，只要對輸入的數(shù)（按字符串類型處理），利用mid函數(shù)從兩邊往中間比較，若不相同，就不是回文數(shù)。實驗八 常用控件一、實驗目的：1、掌握選擇性控件（單選按鈕、復選框、列表框、組合框）、滾動條控件、時鐘控件、超鏈接控件的使用。2、理解選擇性控件的作用、計時器事件的意義。二、實驗內容及步驟：1. 教材p296第3題 在窗體中加入兩個列表框，右邊列表框

15、中項目按照字母順序升序排列。當雙擊某個項目時，該項目從所在的列表框中刪除，添加到另一個列表框中。2在窗體中加入兩個列表框，兩個按鈕，實現(xiàn)如下圖所示功能。選中左側列表框中的項目，點擊“”按鈕，相應項目移到右側列表框中。點擊“”按鈕，左側列表框中內容全部移到右側列表框中?！啊?，“3人的各depcode分別有多少職員；14） 查詢person表中職員姓名中姓“劉”的職員姓名、所在部門編碼；15） 查詢職員姓名中姓“劉”的職員姓名、所在部門名稱、部門領導；10）查詢所有depcode為01或者02的職員編碼、職員姓名、所在部門編碼、部門名稱、部門領導。8、 insert into 插入一條新記錄 在表

16、person中，用insert into語句插入一條記錄：999，周杰倫，01，歌手9、update更新一條記錄 將上題中新增記錄中的“周杰倫”更改為“孫燕姿”。10、delete刪除一條記錄注意：delete語句使用時一定要加條件，否則整個表的記錄將全被刪除。 將上面新增的personcode為999的記錄刪除。11、 視圖建立在企業(yè)管理器中，基于person表建立視圖v_person.。實驗十三 vb.net連接sql server2000數(shù)據(jù)庫一、實驗目的：1、掌握vb.net與sql server 2000的連接方法。2、掌握動態(tài)連接數(shù)據(jù)庫的方法。二、實驗內容及步驟：1、datagri

17、d顯示數(shù)據(jù)庫表的內容在窗體上添加按鈕和datagrid控件，點擊按鈕，能夠顯示對應的sql server數(shù)據(jù)庫表中的內容。數(shù)據(jù)庫采用northwind，表為products。2、組合框、列表框數(shù)據(jù)綁定 在窗體中建立組合框和列表框，與數(shù)據(jù)庫products連接，利用sqldataadapter1控件建立數(shù)據(jù)集dataset11，與控件綁定。列表框中顯示產品的單價，組合框顯示產品的名字。1) 在窗體中添加一個組合框(combobox)控件，命名為“cmbproductname”，一個列表框(listbox)控件，命名為lstunitprice。2) 打開服務器資源管理器，右擊“數(shù)據(jù)連接”，選擇“添

18、加連接”命令，將彈出“數(shù)據(jù)鏈接屬性”對話框，在“選擇或輸入服務器名稱”中輸入服務器名稱，此處輸入“(local)”。如下圖進行選擇，然后單擊“確定”按鈕。3) 已經建立數(shù)據(jù)庫連接后，單擊數(shù)據(jù)連接下的節(jié)點展開該節(jié)點，如下圖：4) 將表products拖到窗體上，這時在窗體form1上的底部自動添加兩個控件：sqlconnection1和sqldataadapter1，此時界面設計，如下圖：5) 單擊sqldataadapter1控件，在屬性窗口的下方，點擊“生成數(shù)據(jù)集”命令，彈出“生成數(shù)據(jù)集”對話框，如下圖：6) 單擊“確定”按鈕，在窗體底部增加了一個dataset11控件。7) 在窗體上添加按

19、鈕，雙擊按鈕，為click事件編寫代碼：8) 運行結果如下：如果在組合框中選擇某個產品，那么列表框中，相應產品的單價會自動被選定，反之亦然。實驗十四 sql server2000綜合應用一、實驗目的：1、掌握建立數(shù)據(jù)庫表，表中添加數(shù)據(jù)的方法；2、使用sql語句在查詢分析器中對數(shù)據(jù)庫中記錄進行操作；3、掌握vb.net與sql server 2000的連接方法。二、實驗內容及步驟：前提：用企業(yè)管理器新建名稱為自己名字的數(shù)據(jù)庫，在此數(shù)據(jù)庫下進行以下操作：(1)在查詢分析器中，使用create table語句建立數(shù)據(jù)庫表表名： person各字段定義如下：personcode：varchar(8)

20、，不允許為空，主鍵；personname：varchar(10) ，不允許為空；depcode：varchar(12) ，不允許為空；personprop：varchar(10) ，允許為空。(2) 在企業(yè)管理器中建立數(shù)據(jù)庫表表名：customer字段含義：cuscode： 客戶編號（主關鍵字）；cusname： 客戶名稱；cusabbname： 客戶簡稱；salesperson： 專營業(yè)務員。(3) 在企業(yè)管理器中錄入數(shù)據(jù)在person表和customer表中分別錄入數(shù)據(jù)。注意：customer表中salesperson的數(shù)據(jù)要與person表中的personcode一致。(4) 在查詢分析器中，使用select語句進行查詢16） 查詢person表中personcode、personname字段的記錄；17） 查詢person表中perso