實(shí)驗(yàn)一順序結(jié)構(gòu)程序的設(shè)計(jì)

1、實(shí)驗(yàn)報(bào)告課程VB程序設(shè)計(jì)實(shí)驗(yàn)項(xiàng)目VisualBasic環(huán)境順序選擇程序設(shè)計(jì)(4學(xué)時(shí))成績(jī)專(zhuān)業(yè)班級(jí)會(huì)計(jì)三班指導(dǎo)教師縉姓名玉潔學(xué)號(hào)3實(shí)驗(yàn)日期2016年3月18日實(shí)驗(yàn)?zāi)康?1) 熟悉VisualBasic6.0集成開(kāi)發(fā)環(huán)境(2) 掌握VisualBasic程序的開(kāi)發(fā)過(guò)程，能夠運(yùn)行一個(gè)完整的VisualBasic程序(3) 掌握常用函數(shù)的使用方法(4) 掌握常用輸入、輸出語(yǔ)句實(shí)驗(yàn)容一、VB環(huán)境和順序結(jié)構(gòu)【實(shí)驗(yàn)1】設(shè)計(jì)一個(gè)簡(jiǎn)單VB程序(20分)(實(shí)驗(yàn)教材P5)它由一個(gè)窗體、一個(gè)文本框和3個(gè)命令按鈕組成。窗體的標(biāo)題為"VisualBasic程序設(shè)計(jì)示例"，當(dāng)用戶單擊命令按鈕“顯示”時(shí)，

2、文本框中出現(xiàn)“歡迎使用VisualBasic6.0”，窗體上顯示“你好”，單擊命令按鈕“清除”時(shí)，清除文本框中顯示的容和窗體上的容，單擊命令按鈕“結(jié)束”時(shí)，結(jié)束程序。通過(guò)該程序熟悉VB的界面，了解VB的工作原理：事件驅(qū)動(dòng)實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】PrivateSubCommand1_Click()Textl.Text="歡迎使用VisualBasic6.0"Forml.Print"你好”EndSubPrivateSubCommand2_Click()Textl=""Form1.ClsEndSubPrivateSubCommand3_C

3、lick()EndEndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)2】分別定義八個(gè)變量，變量名為：var1、var2、var3、var4、var5、var6、var7、var8,變量的數(shù)據(jù)類(lèi)型依次定義為：字符串型、整型、長(zhǎng)整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型、貨幣型、布爾型和日期型。按照?qǐng)D2-2給出的形式為八個(gè)變量賦值，并按照?qǐng)D2-4的樣式進(jìn)行輸出。（20分）（P15）通過(guò)該程序掌握變量的定義、變量名與變量值的含義。Will最熨加虻fii實(shí)驗(yàn)結(jié)果:-.I-.-M.TBJ-%rldTarS3.14159ZDouble【請(qǐng)將你的代碼粘貼到下面】OptionExplicitPrivateSubFo

4、rm_Click()Dimvar1AsStringDimvar2AsIntegerDimvar3AsLongDimvar4AsSingleDimvar5AsDoubleDimvar6AsCurrencyDimvar7AsBooleanDimvar8AsDatevar1="HelloWorld!":var2=1000var3=30000:var4=1.005var5=3.1415926:var6=100.1234var7=True:var8=#5/1/2015#v»r2!vnr3100O3O0OI0Inl&i£rLourvmz-lLOOS，mgLv

5、-srSuar?vzn&10CH1Z34True20LB/5/JCurrvBoolrnn7l?iSrPrintPrint"變量名："；Tab(15);"var1”;Tab(30);"var2”;Tab(40);"var3”;Tab(50);"var4”P(pán)rint"變量值:"Tab(15);var1;Tab(30);var2;Tab(40);var3;Tab(50);var4Print”變量類(lèi)型:"Tab(15);TypeName(var1);Tab(30);TypeName(var2);Tab(4

6、0);TypeName(var3);Tab(50);TypeName(var4)PrintPrint"變量名："；Tab(15);"var5"Tab(30);"var6"Tab(40);"var7"Tab(50);"var8"Print"變量值:"Tab(15);var5;Tab(30);var6;Tab(40);var7;Tab(50);var8Print”變量類(lèi)型:"Tab(15);TypeName(var5);Tab(30);TypeName(var6);Ta

7、b(40);TypeName(var7);Tab(50);TypeName(var8)EndSubPrivateSubForm_Load()Form1.Caption="變量的定義和賦值"Form1.FontSize=13EndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】變量的定義和賦值,變童的定義和賦值var1var2var3HelloWorld!1000300001.005Strin菖IntegerLongSinglevar5var7v&r83.14LE926100.1234True2015-5-1Doub1eCurrencyBooleanDate名值類(lèi)名值類(lèi)#量

8、>££>變變變奩變變【實(shí)驗(yàn)3】編寫(xiě)程序，其功能為輸入三角形的三邊，求三角形的面積。計(jì)算公式為:S=(a+b+c)/2，面積=sqr(s*(s-a)*(s-b)*(s-c)(20分)(P29)通過(guò)該程序掌握計(jì)算類(lèi)程序的結(jié)構(gòu)、賦值語(yǔ)句的使用程序界面如下所示34硼6ij-JSJ林實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】OptionExplicitPrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDoubleDimsAsDouble,areaAsDouble,rAsIntegera=Val(InputBox("

9、請(qǐng)輸入三角形邊長(zhǎng)a的值",”計(jì)算三角形面積程序")Text1.Text=Str(a)b=Val(InputBox("請(qǐng)輸入三角形邊長(zhǎng)b的值",”計(jì)算三角形面積程序")Text2.Text=Str(b)c=Val(InputBox("請(qǐng)輸入三角形邊長(zhǎng)c的值",”計(jì)算三角形面積程序")Text3.Text=Str(c)Ifa+b<=cOra+c<=bOrb+c<=aThenr=MsgBox("您輸入的數(shù)據(jù)不符合組成三角形的條件！”,，”計(jì)算三角形面積程序")EndElses=(a+

10、b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c)MsgBox"三角形的面積是："&Str(area),"計(jì)算三角形面積程序"EndIfEndSubPrivateSubcommand2_click()Textl.Text="":Text2.Text="":Text3.Text=""EndSubPrivateSubForm_Load（）forml.Caption="計(jì)算三角形面積程序"EndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)4】編寫(xiě)如圖2

11、-10所示的一個(gè)求“倒序數(shù)”的程序?！暗剐驍?shù)”指的是：如產(chǎn)生的數(shù)為“1234”，那么與之對(duì)應(yīng)的倒序數(shù)就是“4321”。點(diǎn)擊“生成”按鈕，分別在文本框一中隨機(jī)生成一個(gè)2位整數(shù)，在文本框二中隨機(jī)生成一個(gè)3位整數(shù)，在文本框三中隨機(jī)生成一個(gè)4位整數(shù)。然后點(diǎn)擊“求倒序數(shù)”按鈕，分別在文本框四、文本框五、文本框六中輸出其對(duì)應(yīng)的倒序數(shù)。（20分）（P27）通過(guò)該程序掌握常見(jiàn)函數(shù)的使用-旦1蘭1毗倒理數(shù)咆倒序魅|宇4%，位藤機(jī)壑幼vsn憤隧機(jī)整勤一源一d位版機(jī)!疝麗主住實(shí)驗(yàn)結(jié)果:【請(qǐng)將你的代碼粘貼到下面】OptionExplicitDimtwobitsAsInteger,threebitsAsInteger,

12、fourbitsAsIntegerPrivateSubcommand1_click()Randomizetwobits=Int(Rnd()*(99-10+1)+10'2位隨機(jī)整數(shù)threebits=Int(Rnd()*(999-100+1)+100'3位隨機(jī)整數(shù)fourbits=Int(Rnd()*(9999-1000+1)+1000'4位隨機(jī)整數(shù)Text1.Text=Str(twobits)Text2.Text=Str(threebits)Text3.Text=Str(fourbits)EndSubPrivateSubcommand2_click()DimtbAsSt

13、ring,thbAsString,fbAsStringDimtbinvAsString,thbinvAsString,fbinvAsStringtb=Trim(Text1.Text)thb=Trim(Text2.Text)fb=Trim(Text3.Text)tbinv=Right(tb,1)+Left(tb,1)thbinv=Right(thb,1)+Mid(thb,2,1)+Left(thb,1)fbinv=Right(fb,1)+Mid(fb,3,1)+Mid(fb,2,1)+Left(fb,1)Text4.Text=tbinvText5.Text=thbinvText6.Text=fb

14、invPrivateSubform_load()Forml.Caption="求倒序數(shù)程序"EndSub【請(qǐng)將你的典型結(jié)果的截圖粘貼到下面】【實(shí)驗(yàn)5】參照?qǐng)D2-15所示的容，編寫(xiě)一個(gè)由Print方法及其相關(guān)格式函數(shù)進(jìn)行輸出的程序。使用不同的分隔符(即：逗號(hào)或分號(hào))或者格式輸出函數(shù)(即：Tab()、Spc()、Format()、Space()來(lái)控制Print方法輸出的格式。(20分)(P31)通過(guò)該程序掌握print方法及格式函數(shù)的使用-laixiNu.Nmitf1)叩t.00050006DOOTLiUStfivfinBtijcePerifLJuiielPftrsnnjnft

15、Persannel10008DavidTechno!cijgy10009GrayTeMoI叫丫10010lecbuiulcvKVnnncrnancenancE0001Lucy0002Paul0003Jim(J004Jactib實(shí)驗(yàn)結(jié)果：【請(qǐng)將你的代碼粘貼到下面】OptionExplicitPrivateSubform_click()PrintPrintSpc(1);"No."Tab(11);"Name"Tab(20);"dept.”P(pán)rint"'spc()函數(shù)應(yīng)用PrintSpc(1);"0001"Spc(

16、5);"Lucy"Spc(5);"Finance"PrintSpc(1);"0002"Spc(5);"Paul"Spc(5);"Finance"PrintSpc(1);"0003"Spc(5);"Jim"Spc(6);"Finance"PrintSpc(1);"0004"Spc(5);"Jacob"Spc(4);"Finance"Print"='tab()函數(shù)

17、應(yīng)用PrintTab(2);"0005"Tab(11);"Lily"Tab(20);"Personnel"PrintTab(2);"0006"Tab(11);"Steven"Tab(20);"Personnel"PrintTab(2);"0007"Tab(11);"Bruce"Tab(20);"Personnel"Print"="'spc()和tab()函數(shù)應(yīng)用PrintTab(2);"0006"Spc(5);"David"Tab(20);"Technology"'spc()和tab()函數(shù)應(yīng)用PrintSpc(1);"0009"Tab(11);"Gray"Spc