VB實驗一實驗報告2

1、實驗報告課程VB程序設計實驗項目VisualBasic環(huán)境順序選擇程序設計(4學時)成績專業(yè)班級土木工程1306班指導教師姓名學號實驗日期實驗目的(1)熟悉VisualBasic6.0集成開發(fā)環(huán)境(2)掌握VisualBasic程序的開發(fā)過程，能夠運行一個完整的VisualBasic程序(3)掌握常用函數的使用方法(4)掌握常用輸入、輸出語句實驗內容一、VB環(huán)境和順序結構【實驗1】設計一個簡單VB程序(20分)它由一個窗體、一個文本框和3個命令按鈕組成。窗體的標題為"VisualBaidc程序設計示例"，當用戶單擊命令按鈕“顯示”時，文本框中出現“歡迎使用VisualBas

2、ic6.0"，窗體上顯示“你好”，單擊命令按鈕“清除”時，清除文本框中顯示的內容和窗體上的內容，單擊命令按鈕“結束”時，結束程序。通過該程序熟悉VB的界面，了解VB的工作原理：事件驅動實驗結果：【請將你的代碼粘貼到下面】PrivateSubCommand1_Click()ClsForm1.Caption="你好"Text1.Text="歡迎使用visualbasic"EndSubPrivateSubCommand2_Click()ClsTextl.Text=""Forml.Caption=""EndSub

3、PrivateSubCommand3_Click()EndEndSub【請將你的典型結果的截圖粘貼到下面】【實驗2】分別定義八個變量，變量名為：van、var2、var3、var4、var5、var6、var7、var8,變量的數據類型依次定義為：字符串型、整型、長整型、單精度浮點型、雙精度浮點型、貨幣型、布爾型和日期型。按照圖2-2給出的形式為八個變量賦值，并按照圖2-4的樣式進行輸出。（20分）通過該程序掌握變量的定義、變量名與變量值的含義。實驗結果:【請將你的代碼粘貼到下面】PrivateSubForm_Click()Dimvar1AsStringvar1="HelloWord

4、"Dimvar2AsIntegervar2=1000Dimvar3AsLongvar3=300000Dimvar4AsSinglevar4=1.005Dimvar5AsDoublevar5=3.1415926Dimvar6AsCurrencyvar6=100.1234Dimvar7AsBooleanvar7=TrueDimvar8AsDatevar8=#1/5/2015#Form2.PrintForm2.Print"變量名:","var1","var2","var3","var4"Fo

5、rm2.Print"變量值:",var1,var2,var3,var4Form2.Print"變量類型:","String","Integer","Long","Single"Form2.PrintForm2.Print"變量名:","var5","var6","var7","var8"Form2.Print"變量值:",var5,var6,var7,var

6、8Form2.Print"變量類型:","Double","Currency","Boolean","DateEndSub【請將你的典型結果的截圖粘貼到下面】U打印示例|口口日殳i各Varivii-3vair4HelloHord.10003000001.005StringInteger'Wiitgl白V4r6var7var'SglS：,支重霎型3.1415926100.1234Trii42015/1/5DoubleCurrencySaole&nEate【實驗3】編寫程序，其功能為輸

7、入三角形的三邊，求三角形的面積。計算公式為:S=(a+b+c)/2,面積=sqr(s*(s-a)*(s-b)*(s-c)(20分)通過該程序掌握計算類程序的結構、賦值語句的使用程序界面如下所示實驗結果：【請將你的代碼粘貼到下面】PrivateSubCommand1_Click()DimaAsSingleDimbAsSingleDimcAsSinglea=Text1.Textb=Text2.Textc=Text3.TextDimsAsSingles=(a+b+c)/2DimssAsSingless=Sqr(s*(s-a)*(s-b)*(s-c)Text4.Text=ssEndSubPrivate

8、SubCommand2_Click()EndEndSub【請將你的典型結果的截圖粘貼到下面】【實驗4】編寫如圖2-10所示的一個求“倒序數”的程序?！暗剐驍怠敝傅氖牵喝绠a生的數為“1234”，那么與之對應的倒序數就是“4321”。點擊“生成”按鈕，分別在文本框一中隨機生成一個2位整數，在文本框二中隨機生成一個3位整數，在文本框三中隨機生成一個4位整數。然后點擊“求倒序數”按鈕，分別在文本框四、文本框五、文本框六中輸出其對應的倒序數。（20分）通過該程序掌握常見函數的使用實驗結果：【請將你的代碼粘貼到下面】第一種：PrivateSubCommand1_Click()Dimi%i=Int(Rnd*

9、99)+1Text1.Text=ii=Int(Rnd*999)+1Text2.Text=ii=Int(Rnd*9999)+1Text3.Text=iEndSubPrivateSubCommand2_Click()Text4.Text=StrReverse(Text1.Text)Text5.Text=StrReverse(Text2.Text)Text6.Text=StrReverse(Text3.Text)EndSub第二種：PrivateSubCommand1_Click()Dimi%i=Int(Rnd*99)+1Text1.Text=ii=Int(Rnd*999)+1Text2.Text=

10、ii=Int(Rnd*9999)+1Text3.Text=iEndSubPrivateSubCommand2_Click()Dimt1,t2,t3AsStringDimnewT1,newT2,newT3AsStringt1=Text1.Textt2=Text2.Textt3=Text3.TextnewT1=Right(t1,1)+Left(t1,1)newT2=Right(t2,1)+Mid(t2,2,1)+Left(t2,1)newT3=Right(t3,1)+Mid(t3,3,1)+Mid(t3,2,1)+Left(t3,1)Text4.Text=newT1Text5.Text=newT2

11、Text6.Text=newT3EndSub第三種：PrivateSubCommand1_Click()Dimi%i=Int(Rnd*99)+1Text1.Text=ii=Int(Rnd*999)+1Text2.Text=ii=Int(Rnd*9999)+1Text3.Text=iEndSubPrivateSubCommand2_Click()Dimt1,t2,t3AsIntegerDimnewTI,newT2,newT3AsStringt1=Textl.Textt2=Text2.Textt3=Text3.TextnewTI=(t1Mod10)&(t110)newT2=(t2Mod10

12、)&(t2Mod100)10)&(t2100)newT3=(t3Mod10)&(t3Mod100)10)&(t3100)Mod10)&(t31000)Text4.Text=newT1Text5.Text=newT2Text6.Text=newT3EndSub【請將你的典型結果的截圖粘貼到下面】【實驗5】參照圖2-15所示的內容，編寫一個由Print方法及其相關格式函數進行輸出的程序。使用不同的分隔符(即：逗號或分號)或者格式輸出函數(即：Tab()、Spc()、Format()、Space。)來控制Print方法輸出的格式。(20分)通過該程序掌握pri

13、nt方法及格式函數的使用垂1No,Dcdi.ooaiLucyFrnmiccQOOZPaulFinancr0003LJlnaDGf；0004JacubFinance-1i=000bLilyPcTsnnnrl0005SttvcnPcx&ormclQQ07Beg匚PcrDniiel000»DavidTechnologyOOOflflmyTechnomgy0010TnlnTcchnolnfiy實驗結果：【請將你的代碼粘貼到下面】PrivateSubForm_Click()Forml.PrintForml.PrintSpc(1);"NO.","Name&q

14、uot;,"Dept.Forml.PrintForml.PrintSpc(1);Format$(1,"000#"),"Lucy","Finance"Forml.PrintSpc(1);Format$(2,"000#"),"Paul","Finance"Form1.PrintSpc(1);Format$(3,"000#"),"Jim","Finance"Form1.PrintSpc(1);Format$(4,

15、"000#"),"Jacob","FinanceForm1.PrintForm1.PrintSpc(1);Format$(5,"000#"),"Lily","Personnel"Form1.PrintSpc(1);Format$(6,"000#"),"Steven","PersonnelForm1.PrintSpc(1);Format$(7,"000#"),"Bruce","Personnel"Form1.PrintForm1.PrintSpc(1);Format$(8,"000#"),"David","Technology"Form1.PrintSpc(1);Format$(9,"000#"),"Gray","Technology"Form1.PrintSpc(1);Format$(10,"000#"),"Kala","