上傳人：d***

認證信息

認證類型：個人認證

認證主體：董**（實名認證）

IP屬地：天津

IP屬地：天津 上傳時間：2022-02-27 格式：DOCX 頁數(shù)：16 大?。?4.64KB 積分：18 舉報 版權(quán)申訴

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

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

3、；2 .掌握常用函數(shù)的使用；3 .掌握InputBox 和MsgBox的使用。實驗內(nèi)容1 .輸入半徑，計算圓周長和面積。2 .利用計算機解決“雞兔同籠問題”。1.1)創(chuàng)建一個四個標簽：labell, label2, label3, label42)創(chuàng)建一個義木框：text1.text23)創(chuàng)建三個命令按鈕 commandl, command2,command3源碼如下：Private Sub Command1_Click()Dim X, Y As SingleDim C As StringX = Textl.TextY = Text2.TextC = (X + Y) * 2Labell.Cap

4、tion =Label4.Caption =矩形的周長為：+ CEnd SubPrivate Sub Command2_Click() Dim X, Y As Single Dim S As StringX = Textl.TextY = Text2.Text實驗步驟S = X * YLabell.Caption =Label4.Caption =矩形的回積為：+ SEnd SubPrivate Sub Command3_Click()Textl.Text =Text2.Text =Label4.Caption =Labell.Caption =請輸入矩形的長和寬End Sub2.1）創(chuàng)建二個

5、命令按鈕，名稱為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 + b label1.Caption = c End Sub基本掌握賦值語句的正確書寫格式、常用函數(shù)的使用、InputBox和MsgBox實驗心得 與小結(jié)的使用；感覺學(xué)習(xí) vb越來越有味了。實驗三、選擇結(jié)構(gòu)程序設(shè)計課程名：計算機程序設(shè)計(VB)任課教師實驗?zāi)康?

6、 .掌握邏輯表達式的正確書寫形式；2 .掌握單分支與雙分支條件語句的使用。實驗內(nèi)容1 .編寫程序，輸入任意一個自然數(shù)，判斷該數(shù)的奇偶性。要求進行合法性檢 查。2 .從鍵盤輸入三個數(shù)，判斷能否構(gòu)成三角形。如果能構(gòu)成三角形，則計算三 角形的面積。實驗步驟1.1)創(chuàng)建二個標簽 label1 , label22)創(chuàng)建一個義本框text13)創(chuàng)建三個命令按鈕 command1,command2,command3 源程序如下：Private Sub Command1_Click()Dim a As Integer a = Text1.TextIf a Mod 2 = 0 ThenLabel2.Captio

7、n = 你輸入的是偶數(shù)ElseLabel2.Caption = 你輸入的是奇數(shù)End IfEnd SubPrivate Sub Command3_Click()Text1.Text =Label2.Caption =End Sub2.1)創(chuàng)建一個標簽 label1 , label2班級：工商管理 081姓名:學(xué)號：200899101292)創(chuàng)建二個文本框 textl , text2,text33)創(chuàng)建三個命令按鈕commandl源程序如下：Private Sub Command1_Click()Dim a%, b%, c%Dim d As Double, f As Doublea = Text

8、1.Textb = Text2.Textc = Text3.TextIf a + b c And a + c b And b + c a Thend = (a A 2 + b A 2 - c A 2) / (2 * a * b)f = 1 / 2 * a * b * Sqr(1 - d a 2)Label2.Caption =能構(gòu)成二角形，且回積為：+ Str(f)ElseLabel2.Caption =不能構(gòu)成三角形End IfEnd Sub實驗心得 與小結(jié)基本掌握了邏輯表達式的正確書寫形式， 支條件語句的使用。對vb編程后r進一基本掌握了單分支與雙分 一步的理解。實驗四、選擇結(jié)構(gòu)程序設(shè)計班

9、級：工商管理 081班學(xué)號：20089910129姓名:課程名：計算機程序設(shè)計（VB）任課教師實驗?zāi)康? .掌握多分支條件語句的使用；2 .設(shè)計選擇結(jié)構(gòu)程序。實驗內(nèi)容1 .分別用Elseif和Case語句設(shè)計程序，實現(xiàn)將百分制成績轉(zhuǎn)換為等級制成 績功能，并輸出。2 .編一模擬袖珍計算器程序。要求：隨機產(chǎn)生兩個操作數(shù)和一個操作符，輸 出計算的結(jié)果。實驗步驟1.1)創(chuàng)建一個標簽label12)創(chuàng)建二個義木框 text1,text2.text33)創(chuàng)建一個命令按鈕command源程序如下：Private Sub Command1_Click()Dim a!, b!, c!a = Text1.Text

10、b = Text2.Textc = Text3.TextIf a = 0 And b = 0 ThenLabell.Caption = X 為任底數(shù)Elself a = 0 ThenLabell.Caption = c / bElself b A 2 - 4 * a * c = 90Labell.Caption = 優(yōu)秀Case Is = 80Labell.Caption = 良好Case Is = 70Labell.Caption = 中等Case Is = 60Labell.Caption = 及格Case ElseLabell.Caption = /、及格End SelectEnd Su

11、b實驗心得 與小結(jié)大體掌握了多分支條件語句的使用；學(xué)會了設(shè)計選擇結(jié)構(gòu)程序。感覺vb的程序編的越來越長了。實驗五、循環(huán)結(jié)構(gòu)程序設(shè)計班級：工商管理 081班學(xué)號：20089910129姓名:課程名：計算機程序設(shè)計(VB)任課教師實驗?zāi)康? .掌握For語句的使用；2 .掌握Do語句的使用；3 .掌握如何控制循環(huán)條件，防止死循環(huán)或小循環(huán)。實驗內(nèi)容1 .編寫程序求出100以內(nèi)能被5或7整除的自然數(shù)的和。2 .我國現(xiàn)有人口 13億。設(shè)年增長率為1%編寫程序，計算多少年后增加到20億。3 .設(shè)計程序，求出 s=1+(1+2)+(1+2+3)+ +(1+2+3+n)的值。實驗步驟1.1)創(chuàng)建兩個命令按鈕co

12、mmand 1 command22)程序如下：被5整除的自然數(shù)的和的情況：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

13、, s As IntegerFor i = 1 To 100If 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) A aLoop While b = 20Print aEnd Sub3.1)創(chuàng)建一個義本框text1 2)

14、創(chuàng)建一個標簽label1 3)創(chuàng)建一個命令按鈕command1 源程序如下：Private Sub Command1_Click() Dim a%, s% a = Text1.Text For i = 1 To a Forj = 1 To i s = s + j Next NextLabel1.Caption = s End Sub掌握了 For語句的使用；掌握了 Do語句的使用；掌握了如何控制循環(huán)條件， 防止死循劃、或小循環(huán)。感完 vb程序也是L種語百。實驗心得 與小結(jié)實驗六、數(shù)組班級：工商管理 081班學(xué)號：20089910129姓名:課程名：計算機程序設(shè)計（VB）任課教師實驗?zāi)康?.掌握

15、數(shù)組的聲明、基本輸入輸出的方法。2,掌握數(shù)組的簡單算法。實驗內(nèi)容1 .隨機產(chǎn)生10個30100的正整數(shù)，求最大值、最小值和平均值，并顯示整 個數(shù)組和結(jié)果。2 .查找數(shù)組中元素。實驗步驟1)創(chuàng)建一個命令按鈕 commandl將其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 =

16、a(1) For i = 2 To 10If max a(i) Then min = a(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

17、) = a(i)a(i) = a(11 - i)a(11 - i) = b(i)NextPrintPrint 調(diào)換上述數(shù)組中的元素后For i = 1 To 10Print a(i);NextEnd Sub掌握了數(shù)組的聲明、基本輸入輸出的方法；數(shù)組的簡單算法。感覺 度越來越大了。vb編程難實驗心得 與小結(jié)實驗七、循環(huán)結(jié)構(gòu)程序設(shè)計課程名：計算機程序設(shè)計（VB）任課教師實驗?zāi)康? .掌握多重循環(huán)的執(zhí)行規(guī)律。2 .設(shè)計多重循環(huán)應(yīng)用程序。實驗內(nèi)容1 .編寫程序，輸出30以內(nèi)滿足勾股定理的整數(shù)組合。2 .編寫程序，求出100300間的所有家數(shù)。班級：工商管理 081班姓名:學(xué)號：20089910129實

18、驗步驟1.1)創(chuàng)建一個命令按鈕command 1其屬性值改為計算2)源程序如下：Private Sub Command1_Click()Dim a%, b%, c%For a = 1 To 30For b = a To 30For c = 1 To 30If a A 2 + b A 2 = c A 2 ThenPrint a, b, cEnd IfNextNextNextEnd Sub2.1)創(chuàng)建一個命令按鈕 command 1其屬性值改為“輸出100300間的 所田c數(shù)”3. 源程序如下：Private Sub command1_click()For i = 100 To 300For j

19、= 2 To Fix(Sqr(i)If i Mod j = 0 ThenExit ForElself i Mod j 0 And j = Fix(Sqr(i) ThenPrint iEnd IfNextNextEnd Sub實驗心得 與小結(jié)基本掌握了多重循環(huán)的執(zhí)行規(guī)律，學(xué)會了設(shè)計簡單的多重循環(huán)應(yīng)用程序。感 覺多重循環(huán)很有用，可以使編程簡單很多。實驗八、常用控件班級：工商管理 081班學(xué)號：20089910129姓名:課程名：計算機程序設(shè)計（VB）任課教師寸日的1.掌握選擇性控件的屬性、事件、方法。頭如日煙2.掌握列表框和組合框的相關(guān)的屬性、事件、方法。1.設(shè)一“點菜”程序。程序?qū)崿F(xiàn)從“飯店菜單

20、”中點菜，點好后單擊確定按鈕，列出選定的“菜”。頭丸內(nèi)谷2.設(shè)一個應(yīng)用程序，分別從組合框中款“計算機”和“操作系統(tǒng)”，單擊“確認”按鈕，在列表框顯示所選擇配置。1.1）在 forml 窗體添力口 Framel, command labell2）在Frame1上添力口 check1 , check, check3等（菜的種數(shù)決定 check的數(shù)量）3）將check的caption分別改為對應(yīng)的采名4）源程序如下：Private Sub command1_click（）Dim strmenu As StringIf Check1.Value = 1 Thenstrmenu = strmenu +

21、Check1.Caption + 菜名 1End IfIf Check1.Value = 1 Thenstrmenu = strmenu + Check2.Caption + 菜名 2End If實驗步驟If Check1.Value = 1 Thenstrmenu = strmenu + Check3.Caption + 菜名 3End If寺Label1.Caption =您點的菜:+ strmenuEnd Sub2.1）在 form1 上添力口 Combobox 1 Combobox? command 1 listbox12）將Combobox酌text改為計算機，將 Combobox2勺text改為操 作系統(tǒng)，command田caption 改為確認。3）在Combobox1的list 上鍵入可選擇的計算機，在 Combobox2勺 list上鍵入可選擇的操作系統(tǒng)。4）源程序如下：List1.list（i ）= 您選擇了 +Combo1.text+ Combo2.text我基本掌握選擇性控件的屬性、事件、方法；掌握列表框和組合框的相關(guān)的 屬性、事件、方法。我感到非常滿足。實驗心得 與小結(jié)實驗九、過 程班級：工商管理 081班學(xué)號：2008991012