Visualbasic程序實驗報告

1、實驗一、vb集成開發(fā)環(huán)境的使用班級：工商管理081班 學號： 姓名： 課程名計算機程序設計(vb)任課教師實驗目的1 熟悉vb集成開發(fā)環(huán)境；2 理解屬性、方法、事件的概念；3 掌握程序設計的基本步驟。實驗內(nèi)容1啟動vb，創(chuàng)建一個應用程序，要求在屏幕上顯示“歡迎您使用visual basic”和“輸入您的姓名”，在文本框輸入姓名。2窗體上設計三個命令按鈕和一個文本框，三個命令按鈕分別用于在窗體上顯示一行文本、清除顯示和退出應用程序。實驗步驟1.1) 創(chuàng)建一個標準exe工程2) 將form1的caption改為“歡迎您使用visual basic”3) 添加一個標簽label14) 將其capti

2、on設為“輸入您的姓名”5) 添加一個文本框text12.1) 創(chuàng)建一個標準exe工程2) 添加三個命令按鈕，將其caption屬性分別改為顯示，清除，退出3) 雙擊顯示按鈕，寫入代碼：print”lets begin to study visual basic!”4) 雙擊清除按鈕，寫入代碼：cls5) 雙擊退出按鈕，寫入代碼：exit實驗心得與小結了解了vb集成開發(fā)環(huán)境、基本掌握程序設計的步驟和基本理解了屬性、方法、事件的概念。實驗二、順序程序設計班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握賦值語句的正確書寫格式；2.

3、掌握常用函數(shù)的使用；3.掌握inputbox和msgbox的使用。實驗內(nèi)容1.輸入半徑，計算圓周長和面積。2.利用計算機解決“雞兔同籠問題”。實驗步驟1.1) 創(chuàng)建一個四個標簽：label1, label2, label3, label42) 創(chuàng)建二個文本框：text1.text23) 創(chuàng)建三個命令按鈕command1, command2,command3 源碼如下：private sub command1_click()dim x, y as singledim c as stringx = text1.texty = text2.textc = (x + y) * 2label1.capt

4、ion = label4.caption = 矩形的周長為： + cend subprivate sub command2_click()dim x, y as singledim s as stringx = text1.texty = text2.texts = x * ylabel1.caption = label4.caption = 矩形的面積為： + send subprivate sub command3_click()text1.text = text2.text = label4.caption = label1.caption = 請輸入矩形的長和寬end sub2.1)

5、創(chuàng)建二個命令按鈕,名稱為c1,c2，其屬性分別為“輸入”，“計算”2) 創(chuàng)建一個標簽label1源程序如下：dim a!, b!private sub c1_click()a = inputbox(請輸入一個數(shù))b = inputbox(請再輸入一個數(shù))end subprivate sub c2_click()dim c!c = a + blabel1.caption = cend sub實驗心得與小結基本掌握賦值語句的正確書寫格式、常用函數(shù)的使用、inputbox和msgbox的使用；感覺學習vb越來越有味了。實驗三、選擇結構程序設計班級：工商管理081 學號：20089910129 姓名：

6、 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握邏輯表達式的正確書寫形式；2.掌握單分支與雙分支條件語句的使用。實驗內(nèi)容1.編寫程序，輸入任意一個自然數(shù)，判斷該數(shù)的奇偶性。要求進行合法性檢查。2.從鍵盤輸入三個數(shù)，判斷能否構成三角形。如果能構成三角形，則計算三角形的面積。實驗步驟1.1) 創(chuàng)建二個標簽label1，label22) 創(chuàng)建一個文本框text13) 創(chuàng)建三個命令按鈕command1,command2,command3源程序如下：private sub command1_click()dim a as integera = text1.textif a mod 2 = 0 t

7、henlabel2.caption = 你輸入的是偶數(shù)elselabel2.caption = 你輸入的是奇數(shù)end ifend subprivate sub command3_click()text1.text = label2.caption = end sub2.1) 創(chuàng)建一個標簽label1，label22) 創(chuàng)建三個文本框text1，text2,text33) 創(chuàng)建三個命令按鈕command1源程序如下:private sub command1_click()dim a%, b%, c%dim d as double, f as doublea = text1.textb = tex

8、t2.textc = text3.textif a + b c and a + c b and b + c a thend = (a 2 + b 2 - c 2) / (2 * a * b)f = 1 / 2 * a * b * sqr(1 - d 2)label2.caption = 能構成三角形，且面積為： + str(f)elselabel2.caption = 不能構成三角形end ifend sub實驗心得與小結基本掌握了邏輯表達式的正確書寫形式，基本掌握了單分支與雙分支條件語句的使用。對vb編程有了進一步的理解。實驗四、選擇結構程序設計班級：工商管理081班 學號：20089910

9、129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1. 掌握多分支條件語句的使用；2. 設計選擇結構程序。實驗內(nèi)容1.分別用elseif和case語句設計程序，實現(xiàn)將百分制成績轉換為等級制成績功能，并輸出。2.編一模擬袖珍計算器程序。要求：隨機產(chǎn)生兩個操作數(shù)和一個操作符，輸出計算的結果。實驗步驟1.1) 創(chuàng)建一個標簽label12) 創(chuàng)建三個文本框text1,text2.text33) 創(chuàng)建一個命令按鈕command源程序如下:private sub command1_click()dim a!, b!, c!a = text1.textb = text2.textc = text

10、3.textif a = 0 and b = 0 thenlabel1.caption = x為任意數(shù)elseif a = 0 thenlabel1.caption = c / belseif b 2 - 4 * a * c = 90label1.caption = 優(yōu)秀case is = 80label1.caption = 良好case is = 70label1.caption = 中等case is = 60label1.caption = 及格case elselabel1.caption = 不及格end selectend sub實驗心得與小結大體掌握了多分支條件語句的使用；學會

11、了設計選擇結構程序。感覺vb的程序編的越來越長了。實驗五、循環(huán)結構程序設計班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握for語句的使用；2.掌握do語句的使用；3.掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。實驗內(nèi)容1.編寫程序求出100以內(nèi)能被5或7整除的自然數(shù)的和。2.我國現(xiàn)有人口13億。設年增長率為1%，編寫程序，計算多少年后增加到20億。3.設計程序，求出s=1+(1+2)+(1+2+3)+(1+2+3+n)的值。實驗步驟1.1）創(chuàng)建兩個命令按鈕command1，command22）程序如下： 被5整除的自然數(shù)的和的

12、情況：private sub command1_click()dim i as integer, n as integer, s as integerfor i = 1 to 100if i mod 5 = 0 thenn = n + 1s = s + iend ifnext iprint 1100自然數(shù)中能被5整除的數(shù)據(jù)的個數(shù)為： & nprint 以及它們的和為： & send sub被7整除的自然數(shù)的和的情況：private sub command1_click()dim i as integer, n as integer, s as integerfor i = 1 to 100if

13、 i mod 7 = 0 thenn = n + 1s = s + iend ifnext iprint 1100自然數(shù)中能被7整除的數(shù)據(jù)的個數(shù)為： & nprint 以及它們的和為： & send sub2.1) 創(chuàng)建一個命令按鈕command1,將其caption屬性改為“計算”2）源程序如下：private sub command1_click()dim a!, b!doa = a + 1b = 13 * (1 + 0.01) aloop while b = 20print aend sub3.1) 創(chuàng)建一個文本框text12) 創(chuàng)建一個標簽label13) 創(chuàng)建一個命令按鈕comman

14、d1源程序如下：private sub command1_click()dim a%, s%a = text1.textfor i = 1 to afor j = 1 to is = s + jnextnextlabel1.caption = send sub實驗心得與小結掌握了for語句的使用；掌握了do語句的使用；掌握了如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。感覺vb程序也是一種語言。實驗六、數(shù)組班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握數(shù)組的聲明、基本輸入輸出的方法。2.掌握數(shù)組的簡單算法。實驗內(nèi)容1.隨機產(chǎn)生10個

15、30100的正整數(shù)，求最大值、最小值和平均值，并顯示整個數(shù)組和結果。2.查找數(shù)組中元素。實驗步驟1) 創(chuàng)建一個命令按鈕command1,將其caption屬性改為“計算”源程序如下：private sub command1_click()dim a%(1 to 10), max%, min%, ave%, total%for i = 1 to 10a(i) = rnd() * 71 + 30total = total + a(i)nextfor i = 1 to 10print a(i);nextmax = a(1)for i = 2 to 10if max a(i) thenmin = a(

16、i)end ifnextprintprint 最小值是： & minave = total / 10print 平均值是： & aveend sub2) 創(chuàng)建一個命令按鈕command1,將其caption屬性改為“計算”源程序如下：private sub command1_click()dim a%(1 to 10), b%(1 to 5)for i = 1 to 10a(i) = rnd() * 71 + 30nextfor i = 1 to 10print a(i);nextfor i = 1 to 5b(i) = a(i)a(i) = a(11 - i)a(11 - i) = b(i)

17、nextprintprint 調(diào)換上述數(shù)組中的元素后for i = 1 to 10print a(i);nextend sub實驗心得與小結掌握了數(shù)組的聲明、基本輸入輸出的方法；數(shù)組的簡單算法。感覺vb編程難度越來越大了。實驗七、循環(huán)結構程序設計班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握多重循環(huán)的執(zhí)行規(guī)律。2.設計多重循環(huán)應用程序。實驗內(nèi)容1.編寫程序，輸出30以內(nèi)滿足勾股定理的整數(shù)組合。2.編寫程序，求出100300間的所有素數(shù)。實驗步驟1.1) 創(chuàng)建一個命令按鈕command1，其屬性值改為“計算”2）源程序如下:p

18、rivate sub command1_click()dim a%, b%, c%for a = 1 to 30for b = a to 30for c = 1 to 30if a 2 + b 2 = c 2 thenprint a, b, cend ifnextnextnextend sub2.1) 創(chuàng)建一個命令按鈕command1，其屬性值改為“輸出100300間的所有素數(shù)”2）源程序如下:private sub command1_click()for i = 100 to 300for j = 2 to fix(sqr(i)if i mod j = 0 thenexit forelsei

19、f i mod j 0 and j = fix(sqr(i) thenprint iend ifnextnextend sub實驗心得與小結基本掌握了多重循環(huán)的執(zhí)行規(guī)律，學會了設計簡單的多重循環(huán)應用程序。感覺多重循環(huán)很有用，可以使編程簡單很多。實驗八、常用控件班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機程序設計(vb)任課教師實驗目的1.掌握選擇性控件的屬性、事件、方法。2.掌握列表框和組合框的相關的屬性、事件、方法。實驗內(nèi)容1.設計一“點菜”程序。程序實現(xiàn)從“飯店菜單”中點菜，點好后單擊確定按鈕，列出選定的“菜”。2.設計一個應用程序，分別從組合框中選一款“計

20、算機”和“操作系統(tǒng)”，單擊“確認”按鈕，在列表框顯示所選擇配置。實驗步驟1.1）在 form1 窗體添加frame1，command1，label12）在frame1 上 添加 check1，check，check3等（菜的種數(shù)決定check的數(shù)量）3）將check的caption分別改為對應的菜名 4）源程序如下:private sub command1_click()dim strmenu as stringif check1.value = 1 then strmenu = strmenu + check1.caption + 菜名1end ifif check1.value = 1 t

21、hen strmenu = strmenu + check2.caption + 菜名2 end ifif check1.value = 1 then strmenu = strmenu + check3.caption + 菜名3 end if等label1.caption = 您點的菜: + strmenuend sub21）在form1 上添加combobox1，combobox2，command1，listbox12）將combobox1的text改為計算機，將combobox2的text改為操作系統(tǒng)，command1的caption改為確認。3）在combobox1的list上鍵入可選擇的計算機，在combobox2的list上鍵入可選擇的操作系統(tǒng)。4）源程序如下: list1.list（i）=”您選擇了”+combo1.text+ combo2.text實驗心得與小結我基本掌握選擇性控件的屬性、事件、方法；掌握列表框和組合框的相關的屬性、事件、方法。我感到非常滿足。實驗九、過 程班級：工商管理081班 學號：20089910129 姓名： 課程名：計算機