实验一顺序结构程序的设计

1、实验报告课程VB程序设计实验项目VisualBasic环境顺序选择程序设计(4学时)成绩专业班级会计三班指导教师缙姓名玉洁学号3实验日期2016年3月18日实验目的(1) 熟悉VisualBasic6.0集成开发环境(2) 掌握VisualBasic程序的开发过程，能够运行一个完整的VisualBasic程序(3) 掌握常用函数的使用方法(4) 掌握常用输入、输出语句实验容一、VB环境和顺序结构【实验1】设计一个简单VB程序(20分)(实验教材P5)它由一个窗体、一个文本框和3个命令按钮组成。窗体的标题为"VisualBasic程序设计示例"，当用户单击命令按钮“显示”时，

2、文本框中出现“欢迎使用VisualBasic6.0”，窗体上显示“你好”，单击命令按钮“清除”时，清除文本框中显示的容和窗体上的容，单击命令按钮“结束”时，结束程序。通过该程序熟悉VB的界面，了解VB的工作原理：事件驱动实验结果：【请将你的代码粘贴到下面】PrivateSubCommand1_Click()Textl.Text="欢迎使用VisualBasic6.0"Forml.Print"你好”EndSubPrivateSubCommand2_Click()Textl=""Form1.ClsEndSubPrivateSubCommand3_C

3、lick()EndEndSub【请将你的典型结果的截图粘贴到下面】【实验2】分别定义八个变量，变量名为：var1、var2、var3、var4、var5、var6、var7、var8,变量的数据类型依次定义为：字符串型、整型、长整型、单精度浮点型、双精度浮点型、货币型、布尔型和日期型。按照图2-2给出的形式为八个变量赋值，并按照图2-4的样式进行输出。（20分）（P15）通过该程序掌握变量的定义、变量名与变量值的含义。Will最熨加虻fii实验结果:-.I-.-M.TBJ-%rldTarS3.14159ZDouble【请将你的代码粘贴到下面】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”Print"变量值:"Tab(15);var1;Tab(30);var2;Tab(40);var3;Tab(50);var4Print”变量类型:"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”变量类型:"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【请将你的典型结果的截图粘贴到下面】变量的定义和赋值,变童的定义和赋值var1var2var3HelloWorld!1000300001.005Strin菖IntegerLongSinglevar5var7v&r83.14LE926100.1234True2015-5-1Doub1eCurrencyBooleanDate名值类名值类#量

8、>££>变变变奁变变【实验3】编写程序，其功能为输入三角形的三边，求三角形的面积。计算公式为:S=(a+b+c)/2，面积=sqr(s*(s-a)*(s-b)*(s-c)(20分)(P29)通过该程序掌握计算类程序的结构、赋值语句的使用程序界面如下所示34硼6ij-JSJ林实验结果：【请将你的代码粘贴到下面】OptionExplicitPrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDoubleDimsAsDouble,areaAsDouble,rAsIntegera=Val(InputBox("

9、请输入三角形边长a的值",”计算三角形面积程序")Text1.Text=Str(a)b=Val(InputBox("请输入三角形边长b的值",”计算三角形面积程序")Text2.Text=Str(b)c=Val(InputBox("请输入三角形边长c的值",”计算三角形面积程序")Text3.Text=Str(c)Ifa+b<=cOra+c<=bOrb+c<=aThenr=MsgBox("您输入的数据不符合组成三角形的条件！”,，”计算三角形面积程序")EndElses=(a+

10、b+c)/2area=Sqr(s*(s-a)*(s-b)*(s-c)MsgBox"三角形的面积是："&Str(area),"计算三角形面积程序"EndIfEndSubPrivateSubcommand2_click()Textl.Text="":Text2.Text="":Text3.Text=""EndSubPrivateSubForm_Load（）forml.Caption="计算三角形面积程序"EndSub【请将你的典型结果的截图粘贴到下面】【实验4】编写如图2

11、-10所示的一个求“倒序数”的程序。“倒序数”指的是：如产生的数为“1234”，那么与之对应的倒序数就是“4321”。点击“生成”按钮，分别在文本框一中随机生成一个2位整数，在文本框二中随机生成一个3位整数，在文本框三中随机生成一个4位整数。然后点击“求倒序数”按钮，分别在文本框四、文本框五、文本框六中输出其对应的倒序数。（20分）（P27）通过该程序掌握常见函数的使用-旦1兰1毗倒理数咆倒序魅|宇4%，位藤机壑幼vsn愤隧机整勤一源一d位版机!疝丽主住实验结果:【请将你的代码粘贴到下面】OptionExplicitDimtwobitsAsInteger,threebitsAsInteger,

12、fourbitsAsIntegerPrivateSubcommand1_click()Randomizetwobits=Int(Rnd()*(99-10+1)+10'2位随机整数threebits=Int(Rnd()*(999-100+1)+100'3位随机整数fourbits=Int(Rnd()*(9999-1000+1)+1000'4位随机整数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="求倒序数程序"EndSub【请将你的典型结果的截图粘贴到下面】【实验5】参照图2-15所示的容，编写一个由Print方法及其相关格式函数进行输出的程序。使用不同的分隔符(即：逗号或分号)或者格式输出函数(即：Tab()、Spc()、Format()、Space()来控制Print方法输出的格式。(20分)(P31)通过该程序掌握print方法及格式函数的使用-laixiNu.Nmitf1)叩t.00050006DOOTLiUStfivfinBtijcePerifLJuiielPftrsnnjnft

15、Persannel10008DavidTechno!cijgy10009GrayTeMoI叫丫10010lecbuiulcvKVnnncrnancenancE0001Lucy0002Paul0003Jim(J004Jactib实验结果：【请将你的代码粘贴到下面】OptionExplicitPrivateSubform_click()PrintPrintSpc(1);"No."Tab(11);"Name"Tab(20);"dept.”Print"'spc()函数应用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()函数

17、应用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()函数应用PrintTab(2);"0006"Spc(5);"David"Tab(20);"Technology"'spc()和tab()函数应用PrintSpc(1);"0009"Tab(11);"Gray"Spc