vb6.0上機實驗報告

《vb6.0上機實驗報告》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、Vb程序設(shè)計實驗報告試驗報告院（系）：課程名稱：日期：班級學號機房專業(yè)姓名時間實驗名稱VB上機實驗成績評定所用軟件教師簽名實驗?zāi)康募耙笠弧?.了解VB/VB.NET系統(tǒng)對計算機軟件、硬件的要求，掌握啟動和退出VB/VB.NET的方法；2.了解和使用VB/VB.NET集成開發(fā)環(huán)境各窗口、菜單的一般功能；3.了解常用控件的生成及其屬性、事件和方法；4.熟悉編輯、調(diào)試、運行、保存一個VB/VB.NET應(yīng)用程序的全過程。二、1.熟練掌握分支結(jié)構(gòu)程序設(shè)計的原理和實現(xiàn)方法；2.熟練掌握循環(huán)結(jié)構(gòu)程序設(shè)計的原理和實現(xiàn)方法；3.掌握常用輸入數(shù)據(jù)方法；4.掌握數(shù)組的定義和引

2、用方法。三、1.熟練使用順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)實現(xiàn)程序的編寫；2.掌握用戶菜單定義，實現(xiàn)功能集成；3.綜合使用不同控件，實現(xiàn)界面的美觀及使用；4.實現(xiàn)簡單動畫。第21頁共21頁Vb程序設(shè)計實驗報告實驗步驟、心得體會實驗一1．用文本框輸入一個數(shù)并保存到變量X，如果100=100andx<=200thenprintxEndsub2.已知三角形三條邊的邊長分別為a、b、c。請編寫程序計算三角形面積：面積=。其中

3、：s=（a+b+c）/2（要求輸入合理）。代碼：Privatesubcommand1_click()a=val(text1.text)b=val(text2.text)c=val(text3.text)s=(a+b+c)/2ifa+b

4、出到相應(yīng)文本框。Privatesubcommand1_click()a=val(text1.text)b=val(text2.text)c=val(text3.text)d=val(text4.text)sum=s+b+c+davr=sum/4text5.text=sumtext6.text=avrendsubPrivatesubcommand2_lick()EndEndsub4.班上集體購買課外讀物，請設(shè)計一程序：要求可以正確輸入四種書的單價及購買數(shù)量，計算并輸出所需總金額。代碼：Dima(4),b(4)AsDoublePrivateSubCommand

5、1_Click()Sum=0.0第21頁共21頁Vb程序設(shè)計實驗報告Fori=0To3a(i)=Val(Text1(i).Text)b(i)=Val(Text2(i).Text)Sum=Sum+a(i)*b(i)Text3.Text=SumNextEndSub5.在程序中聲明一個常量，然后改變其值，觀察程序執(zhí)行結(jié)果；分別定義全局變量、窗體級全局變量及私有變量，并區(qū)別其異同。代碼：全局變量publicxasinteger作用于整個應(yīng)用程序窗體模塊變量dimx%privatex%作用于窗體模塊私有變量dimx%作用于過程或函數(shù)6，從文本框輸入A、B、C，計算表

6、達式的值，并將結(jié)果輸出到窗體相應(yīng)控件。PrivateSubForm_Click()a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)y=(Sqr(a)+b^4)/(c-10)Picture1.PrintyEndSub第21頁共21頁Vb程序設(shè)計實驗報告實驗二1.計算代碼：PrivateSubForm_Click()Dimx,yAsIntegerx=Int(InputBox("pleaseinputx:"))SelectCasexCaseIs>0y=2*x*x-5*x+3Case0y=0CaseIs<0y=

7、(x^3-Sqr(5))/(x+1)EndSelectPrint"y="&yEndSub2．編寫競賽用評分程序：去掉一個最高分，去掉一個最低分，選手的得分最后為余下分數(shù)的平均分。Dima(6)AsDoublePublicSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""第21頁共21頁Vb程序設(shè)計實驗報告Text4.Text=""Text5.Text=""Text6.Text=""EndSubPrivateSubCommand2_Click()a(0)=Text1.Texta(1)=Text

8、2.Texta(2)=Text3.Texta(3)=Text4.T