4453998918vb程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告

1、vb程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)三 選擇結(jié)構(gòu)程序設(shè)計(jì)一、實(shí)驗(yàn)?zāi)康?. 掌握邏輯表達(dá)式的正確書寫形式。2. 掌握單分支與雙分支條件語(yǔ)句的使用。3. 掌握多分支條件語(yǔ)句的使用。4. 掌握情況語(yǔ)句的使用及與多分支條件語(yǔ)句的區(qū)別。二實(shí)驗(yàn)內(nèi)容4. 編制程序，計(jì)算某個(gè)學(xué)生獎(jiǎng)學(xué)金的等級(jí)（假定只考慮一等獎(jiǎng)），以三門功課成績(jī)m1，m2，m3為評(píng)獎(jiǎng)依據(jù)。獎(jiǎng)學(xué)金一等獎(jiǎng)評(píng)定標(biāo)準(zhǔn)如下： (1) 平均分大于95分者。(2) 有兩門成績(jī)是100分，且第三門功課成績(jī)不低于80分者。5. 編一模擬袖珍計(jì)算器的完整程序，界面如圖2.3.1所示。要求：輸入兩個(gè)操作數(shù)和一個(gè)操作符，根據(jù)操作符決定所做的運(yùn)算。6輸入一個(gè)數(shù)字（17），用英文顯示

2、對(duì)應(yīng)的星期一星期日。提示：用select語(yǔ)句來(lái)實(shí)現(xiàn)。三實(shí)驗(yàn)步驟4，打開vb后，建立一個(gè)命令按鈕，輸入獎(jiǎng)學(xué)金評(píng)定，編輯代碼如下:private sub command1_click() dim m1!, m2!, m3! m1 = inputbox(輸入m1 的值) m2 = inputbox(輸入m2 的值) m3 = inputbox(輸入m3 的值) if (m1 + m2 + m3) / 3 95 or _ (m1 = 100 and m2 = 100 and m3 = 85 or _ m1 = 100 and m3 = 100 and m2 = 85 or _ m3 = 100 and

3、 m2 = 100 and m1 = 85) then msgbox 一等獎(jiǎng)學(xué)金 else msgbox 不是一等獎(jiǎng)學(xué)金 end ifend sub5，打開vb后，建立4個(gè)lebel標(biāo)簽，4個(gè)text文本框，2個(gè)command按鈕，如上圖。編輯代碼如下：private sub command1_click()select case trim(text3)case +text4.text = val(text1.text) + val(text2.text)case -text4.text = val(text1.text) - val(text2.text)case *text4.text =

4、 val(text1.text) * val(text2.text)case /text4.text = val(text1.text) / val(text2.text)end selectend subprivate sub command2_click()endend sub6, 打開vb后，建立1個(gè)text文本框，1個(gè)command按鈕。代碼如下：private sub command1_click()a = text1.textselect case acase 1print mondaycase 2print tuesdaycase 3print wednesdaycase 4pr

5、int thursdaycase 5print fridaycase 6print saturdaycase 7print sundayend selectend sub四實(shí)驗(yàn)總結(jié)1，從此此實(shí)驗(yàn)中掌握了if語(yǔ)句的使用.掌握情況語(yǔ)句的使用,以及情況語(yǔ)句與多分支語(yǔ)句的使用區(qū)別.2，寫在不同行的條件代碼要用空格加下劃線分開，有關(guān)m1,m2,m3的三個(gè)條件要用and隔開3，使用select語(yǔ)句時(shí)，case后的條件是字符型。實(shí)驗(yàn)四 循環(huán)結(jié)構(gòu)程序設(shè)計(jì)一實(shí)驗(yàn)?zāi)康?. 掌握f(shuō)or語(yǔ)句的使用。2. 掌握do語(yǔ)句的各種形式的使用。3. 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二實(shí)驗(yàn)內(nèi)容3用單循環(huán)顯示有規(guī)律圖形，

6、如圖4.1。提示： （1）循環(huán)體內(nèi)顯示用string函數(shù)來(lái)實(shí)現(xiàn)，找出循環(huán)控制變量與string函數(shù)內(nèi)個(gè)數(shù)的關(guān)系，即：string(i,trim(str(i)。（2）trim函數(shù)是去除字符串兩邊的空格。因?yàn)閷?shù)值i轉(zhuǎn)換成字符，系統(tǒng)自動(dòng)在數(shù)字前加符號(hào)位，正數(shù)為空格，負(fù)數(shù)為“-”；而string函數(shù)只取字符串中的第一個(gè)字符，本例中為空格，因此要利用trim函數(shù)去除空格。（3）為了使得最后一行的0顯示，如按照上面公式為1，則要對(duì)公式修改為： string(i,right( (str(i),1) 圖4.1 實(shí)驗(yàn)4.3運(yùn)行界面之一4計(jì)算k+=2912211611117141211s當(dāng)?shù)趇項(xiàng)的值10-4時(shí)結(jié)

7、束。提示：找出規(guī)律，第i項(xiàng)的分母是前一項(xiàng)的分母加上表示有分母項(xiàng)開始的計(jì)數(shù)項(xiàng)8求sn=a+aa+aaa+aaa+aaaaa(n個(gè)a)，其中a是一個(gè)由隨機(jī)數(shù)產(chǎn)生的19(包括1，9)中的一個(gè)正整數(shù)，n是一個(gè)由隨機(jī)數(shù)產(chǎn)生的510(包括5，10)中的一個(gè)數(shù)。例如：當(dāng)a=2，n=5時(shí)，sn=2+22+222+2222+22222。提示：為了得到不斷重復(fù)的數(shù)temp，可在循環(huán)體利用下面通項(xiàng)： temp=temp*10+a temp的初值為0。三實(shí)驗(yàn)步驟3，打開vb，程序代碼如下：private sub form_click()for i = 1 to 10print spc(10 - i);if i 10

8、then print string(i * 2 - 1, trim(str(i);if i = 10 then print string(i * 2 - 1, right(str(i), 1):printnext iend sub4，打開vb，程序代碼如下：private sub form_click()a = 0b = 1s = 0dob = b + as = s + 1 / ba = a + 1loop until 1 / b 0.0001print send sub8，打開vb，程序代碼如下：private sub form_click()a = int(rnd * 9 + 1)n =

9、int(rnd * 6 + 5)temp = 0s = 0for i = 1 to ntemp = temp * 10 + as = s + tempnext iprint send sub四實(shí)驗(yàn)總結(jié)1，從此次實(shí)驗(yàn)中得到的是掌握了for語(yǔ)句的使用,還有的是do語(yǔ)句的各種形式的使用,如何控制循環(huán)和防止死循環(huán)或不循環(huán)。2，學(xué)會(huì)了string函數(shù)的用法。實(shí)驗(yàn)五 數(shù) 組一實(shí)驗(yàn)?zāi)康?. 掌握數(shù)組的聲明、數(shù)組元素的引用。2. 掌握靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的使用差別。3. 應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用算法。二實(shí)驗(yàn)內(nèi)容3隨機(jī)產(chǎn)生10個(gè)30100(包括30，100)的正整數(shù)，求最大值、最小值、平均值，并顯示整個(gè)數(shù)組的

10、值和結(jié)果。4用起泡法對(duì)10個(gè)數(shù)進(jìn)行從大到小排序，可以參考教材中的【例3-22】。6編一對(duì)已知數(shù)組a()，刪除數(shù)組中數(shù)組元素中某個(gè)元素的程序。假定數(shù)組a的值利用array函數(shù)，分別為1，6，8，3，5，9，10，2，7，4，刪除key值為10的元素。三實(shí)驗(yàn)步驟3，打開vb，建立1個(gè)command按鈕，程序代碼如下：private sub command1_click()dim a(10)randomizedim sum as integer, min as integer, max as integersum = 0: min = 100: max = 30for i = 0 to 9a(i)

11、= int(30 + (71 * rnd)sum = sum + a(i)if a(i) max then max = a(i)print a(i);next iprintprint 最大值:; maxprint 最小值:; minprint 平均值:; sum / 10end sub4，打開vb，建立1個(gè)command按鈕，程序代碼如下：private sub command1_click()dim a(1 to 10) as integerrandomizeprint 排序前：;for i = 1 to 10a(i) = int(rnd * 100)print a(i);next ifor

12、 i = 1 to 10for j = i + 1 to 10if a(i) a(j) thent = a(i): a(i) = a(j): a(j) = tend ifnext jnext iprintprint 排序后：;for i = 1 to 10print a(i);next iend sub6，打開vb，程序代碼如下：private sub form_click()dim a()aa = array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)redim a(9)for i = 0 to 9if a(i) = 10 then t = a(i): a(i) = a(9

13、): a(9) = tnextredim a(8)print aaend sub調(diào)試過程：實(shí)時(shí)錯(cuò)誤”13”,類型不匹配四實(shí)驗(yàn)總結(jié)1，學(xué)會(huì)了靜態(tài)數(shù)組和動(dòng)態(tài)數(shù)組的運(yùn)用。2，對(duì)于array函數(shù)的添加元素和刪除元素的掌握還有一定的問題，上面的6題不會(huì)做。實(shí)驗(yàn)七一實(shí)驗(yàn)?zāi)康?1. 掌握常用控件的重要屬性、事件和方法。2. 掌握常用activex控件的特性，熟練應(yīng)用這些高級(jí)控件進(jìn)行編程。3. 初步掌握創(chuàng)建基于圖形用戶界面應(yīng)用程序的過程。4. 熟練掌握鍵盤事件、鼠標(biāo)事件及其事件過程的編寫技藝。5. 掌握普通拖放和ole拖放的原理，掌握實(shí)現(xiàn)拖放的方法。二實(shí)驗(yàn)內(nèi)容1調(diào)試教材中的【例4-7】，體會(huì)基本控件的使用方法

14、。2調(diào)試教材中的【例4-8】，體會(huì)基本控件的使用方法。3設(shè)計(jì)一個(gè)如圖7.1所示程序。當(dāng)用戶在“操作選項(xiàng)”框架中選定操作后，文本框發(fā)生相應(yīng)的變化，同時(shí)在“操作說(shuō)明”框架中的標(biāo)簽上顯示有關(guān)的操作說(shuō)明。圖7.1提示： (1) 在文本框中移動(dòng)光標(biāo)和選定內(nèi)容是通過設(shè)置selstart和sellength屬性實(shí)現(xiàn)的。(2) 文本框中內(nèi)容分行顯示是因?yàn)椴迦肓嘶剀嚀Q行符。回車符的ascii碼值為13，其符號(hào)常數(shù)為vbcr；換行符的ascii碼值為10，其符號(hào)常數(shù)為vblf。(3) 把光標(biāo)移動(dòng)到第三行的開始，實(shí)質(zhì)是確定文本中第二行后vbcr或vblf的位置。選定文本中的第三行，關(guān)鍵是確定第三行前后vbcr或vb

15、lf的位置。三實(shí)驗(yàn)步驟1， 打開vb，創(chuàng)建如下界面：程序代碼為：private sub command1_click()list1.additem text2.texttext3 = list1.listcountend subprivate sub command2_click()list1.removeitem list1.listindextext3 = list1.listcountend subprivate sub command3_click()list1.cleartext3 = list1.listcountend subprivate sub command4_click(

16、)endend subprivate sub form_load()with list1 .additem 北京市 .additem 上海市 .additem 天津市 .additem 江蘇省 .additem 河北省 .additem 山東省 .additem 安徽省end withtext3 = list1.listcountend subprivate sub list1_click()text1 = list1.list(list1.listindex)end subprivate sub text1_change()end sub2， 打開vb，創(chuàng)建如下界面：程序代碼為：privat

17、e sub command1_click() text3 = 學(xué)號(hào): & text1 & chr(13) + chr(10) text3 = text3 & 姓名: & text2 & chr(13) + chr(10) if option1.value = true then text3 = text3 & 性別: & 男 & chr(13) + chr(10) else text3 = text3 & 性別: & 女 & chr(13) + chr(10) end if text3 = text3 & 籍貫: & list1.text & chr(13) + chr(10) text3 =

18、 text3 & 系別: & combo1.text & chr(13) + chr(10)end sub3， 打開vb，創(chuàng)建如下界面：程序代碼為：private sub form_load()text1.text = 清明時(shí)節(jié)雨紛紛, & chr(13) + chr(10) & 路上行人欲斷魂; & chr(13) + chr(10) & 借問酒家何處有, & chr(13) + chr(10) & 牧童遙指杏花村.end subprivate sub option1_click()i = 1n = 2do while n 3if (mid(text1.imemode, 1) vblf theni = i + 1elsen = n + 1i = i + 1end iflooptext1.selstart = i - 1text1.setfocuslabel2.caption = 光標(biāo)被移動(dòng)到文本的開始位置end subprivate sub option2_click()i = 1n = 2do while n 3if (mid(text1.imemode, 1)