4453998918vb程序設(shè)計實驗報告

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

2、對應(yīng)的星期一星期日。提示：用select語句來實現(xiàn)。三實驗步驟4，打開vb后，建立一個命令按鈕，輸入獎學(xué)金評定，編輯代碼如下: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 一等獎學(xué)金 else msgbox 不是一等獎學(xué)金 end ifend sub5，打開vb后，建立4個lebel標(biāo)簽，4個text文本框，2個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個text文本框，1個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四實驗總結(jié)1，從此此實驗中掌握了if語句的使用.掌握情況語句的使用,以及情況語句與多分支語句的使用區(qū)別.2，寫在不同行的條件代碼要用空格加下劃線分開，有關(guān)m1,m2,m3的三個條件要用and隔開3，使用select語句時，case后的條件是字符型。實驗四 循環(huán)結(jié)構(gòu)程序設(shè)計一實驗?zāi)康?. 掌握for語句的使用。2. 掌握do語句的各種形式的使用。3. 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二實驗內(nèi)容3用單循環(huán)顯示有規(guī)律圖形，

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

7、束。提示：找出規(guī)律，第i項的分母是前一項的分母加上表示有分母項開始的計數(shù)項8求sn=a+aa+aaa+aaa+aaaaa(n個a)，其中a是一個由隨機(jī)數(shù)產(chǎn)生的19(包括1，9)中的一個正整數(shù)，n是一個由隨機(jī)數(shù)產(chǎn)生的510(包括5，10)中的一個數(shù)。例如：當(dāng)a=2，n=5時，sn=2+22+222+2222+22222。提示：為了得到不斷重復(fù)的數(shù)temp，可在循環(huán)體利用下面通項： temp=temp*10+a temp的初值為0。三實驗步驟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四實驗總結(jié)1，從此次實驗中得到的是掌握了for語句的使用,還有的是do語句的各種形式的使用,如何控制循環(huán)和防止死循環(huán)或不循環(huán)。2，學(xué)會了string函數(shù)的用法。實驗五 數(shù) 組一實驗?zāi)康?. 掌握數(shù)組的聲明、數(shù)組元素的引用。2. 掌握靜態(tài)數(shù)組和動態(tài)數(shù)組的使用差別。3. 應(yīng)用數(shù)組解決與數(shù)組有關(guān)的常用算法。二實驗內(nèi)容3隨機(jī)產(chǎn)生10個30100(包括30，100)的正整數(shù)，求最大值、最小值、平均值，并顯示整個數(shù)組的

10、值和結(jié)果。4用起泡法對10個數(shù)進(jìn)行從大到小排序，可以參考教材中的【例3-22】。6編一對已知數(shù)組a()，刪除數(shù)組中數(shù)組元素中某個元素的程序。假定數(shù)組a的值利用array函數(shù)，分別為1，6，8，3，5，9，10，2，7，4，刪除key值為10的元素。三實驗步驟3，打開vb，建立1個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個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)試過程：實時錯誤”13”,類型不匹配四實驗總結(jié)1，學(xué)會了靜態(tài)數(shù)組和動態(tài)數(shù)組的運用。2，對于array函數(shù)的添加元素和刪除元素的掌握還有一定的問題，上面的6題不會做。實驗七一實驗?zāi)康?1. 掌握常用控件的重要屬性、事件和方法。2. 掌握常用activex控件的特性，熟練應(yīng)用這些高級控件進(jìn)行編程。3. 初步掌握創(chuàng)建基于圖形用戶界面應(yīng)用程序的過程。4. 熟練掌握鍵盤事件、鼠標(biāo)事件及其事件過程的編寫技藝。5. 掌握普通拖放和ole拖放的原理，掌握實現(xiàn)拖放的方法。二實驗內(nèi)容1調(diào)試教材中的【例4-7】，體會基本控件的使用方法

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

15、lf的位置。三實驗步驟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é)號: & 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 = 清明時節(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)被移動到文本的開始位置end subprivate sub option2_click()i = 1n = 2do while n 3if (mid(text1.imemode, 1)