《VB.NET程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo)書》

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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