VB实验报告含答案

-PAGE.z...可修编..实验 报告 软件系统测试报告下载sgs报告如何下载关于路面塌陷情况报告535n,sgs报告怎么下载竣工报告下载 课程名称_程序设计根底VisualBasic_班　　级___________＿姓　　名_________-.z.实验一VB环境和创立一个简单的VB程序一．实验目的：1.了解VB系统对计算机软件、硬件的要求。2.掌握启动和退出VB的 方法 快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载 。3.了解和使用VB集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。二．实验内容：1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为〞显示〞和〞去除〞。程序运行后，单击〞显示〞按钮，在文本框中输出一行信息；单击〞去除〞按钮，则去除文本框中的内容，运行界面如图1.1所示。图1.1实验1-1运行界面三．实验结果：对象属性设置对象属性属性值说明Form1caption我的第一个vb程序窗体Label1caption请输入**标签Te*t1te*t""文本框mand1caption显示命令按钮mand2caption去除命令按钮四．实验思考：1.标签label控件设置的属性代码有哪些？Label1.Caption="请输入**〞Label1.fontsize=24Label1.fontbold=True2.两个按钮所使用的是什么事件？代码分别是什么？PrivateSubmand1_Click()Te*t1.te*t="〞EndSubPrivateSubmand2_Click()Te*t1.te*t=〞〞EndSub实验二简单程序设计数据类型及常用内部函数的简单应用一．实验目的：1．掌握VisualBasic数据类型的根本概念。2．掌握用VisualBasic的各种运算符及 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 达式。3．学习使用VisualBasic内部函数和数据输入、输出方法。4．掌握命令按钮、文本框和标签。5．设计顺序程序。二．实验内容：1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbo*函数输入华氏温度，用msgbo*输出转换后的摄氏温度。转换公式是：C=5/9(F-32)。F为华氏温度，C为摄氏温度。2.用三种除法运算〔/、\、Mod〕做计算。要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。图2-1图2-2三．实验结果：对象属性设置1.温度转换对象属性属性值说明Form1CaptionInputbo*与msgbo*应用窗体mand1Caption温度转换命令按钮2.三种除法运算〔/、\、Mod〕做计算对象属性属性值说明Label1Caption被除数标签Label2Caption除数标签Label3Caption浮点数标签Label4Caption整除数标签Label5Caption余数除标签mand1Caption执行除法运算命令按钮四．实验思考：1.温度转换中的mand1命令的单击事件的程序代码是什么？PrivateSubmand1_Click()DimC!,F!F=val(inputbo*("输入华氏温度〞))C=5/9*〔F-32〕Msgbo*"对应的摄氏温度为：〞&CEndSub2.用三种除法运算〔/、\、Mod〕做计算，说明三种除法的区别？/：两个数相除\：两个数整除Mod：两个数相除，得余数3.三种除法运算〔/、\、Mod〕做计算，mand1命令的单击事件的程序代码是什么？PrivateSubmand1_Click()Dima!,b!a=val(te*t1.te*t)b=val(te*t2.te*t)te*t3.te*t=a/bte*t4.te*t=a\bte*t5.te*t=amodbEndSub实验三选择程序设计一．实验目的：1.掌握单分支与双分支条件语句的使用。2.掌握多分支条件语句〔If…Then…ElseIf〕的使用。3.掌握SelectCase语句的使用及与多分支条件语句的区别。4.熟练掌握时间过程的编写方法。二．实验内容：1.设计一个模拟简易计算器的程序，界面如图3-1所示。要求：=1\*GB3①输入两个操作数和一个操作符，根据操作符决定所进展的计算；=2\*GB3②如果除数为0，用msgbo*提示出错信息；=3\*GB3③用if语句和selecetcase语句两种构造实现。2.通过单项选择按钮和复选框控制文字的显示，程序窗口如图3-2所示。图3-1图3-2三．实验结果：对象属性设置1.模拟简易计算器对象属性属性值说明Label1Caption输入数1标签Label2Caption运算器标签Label3Caption输入数2标签Label4Caption结果标签mand1CaptionCase构造命令按钮mand2Captionif构造命令按钮Te*t1-te*t4Te*t""文本框2.单项选择框与复选框对象属性属性值说明Frame1Caption字体框架Frame2Caption字号框架Frame3Caption字型框架Label1Caption奥林匹克运动会标签Option1Caption宋体单项选择按钮Option2Caption仿宋单项选择按钮Option3Caption黑体单项选择按钮Option4Caption楷体单项选择按钮Option5Caption大单项选择按钮Option6Caption中单项选择按钮Option7Caption小单项选择按钮Check1Caption加粗复选框Check2Caption倾斜复选框Check3Caption下划线复选框Check4Caption删除线复选框四．实验思考：1.模拟简易计算器mand1命令的单击事件的程序代码是什么？PrivateSubmand1_Click()Dima!,b!DimcAsStringa=Val(Te*t1.Te*t)b=Val(Te*t3.Te*t)c=Te*t2.Te*tSelectCasecCase"+〞Te*t4.Te*t=a+bCase"-〞Te*t4.Te*t=a-bCase"*〞Te*t4.Te*t=a*bCase"/〞Ifb=0ThenMsgBo*"除数为0.〞ElseTe*t4.Te*t=a/bEndIfEndSelectEndSub2.模拟简易计算器mand2命令的单击事件的程序代码是什么？PrivateSubmand1_Click()Dima!,b!DimcAsStringa=Val(Te*t1.Te*t)b=Val(Te*t3.Te*t)c=Te*t2.Te*tIfc="+〞ThenTe*t4.Te*t=a+bElseIfc="-〞ThenTe*t4.Te*t=a-bElseIfc="*〞ThenTe*t4.Te*t=a*bElseIfc="/〞ThenIfb=0ThenMsgBo*"除数为0”elseTe*t4.Te*t=a/bEndIfEndIfEndSub3.通过单项选择按钮和复选框控制文字的显示,mand1命令的单击事件的程序代码是什么PrivateSubmand1_Click()IfOption1.Value=TrueThenLabel1.FontName="宋体〞ElseIfOption2.Value=TrueThenLabel1.FontName="华文仿宋〞ElseIfOption3.Value=TrueThenLabel1.FontName="黑体〞ElseLabel1.FontName="楷体_GB2312”EndIfIfOption5.Value=TrueThenLabel1.FontSize=24ElseIfOption6.Value=TrueThenLabel1.FontSize=16ElseLabel1.FontSize=8EndIfIfCheck1.Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfIfCheck2.Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfIfCheck3.Value=1ThenLabel1.FontUnderline=TrueElseLabel1.FontUnderline=FalseEndIfIfCheck4.Value=1ThenLabel1.FontStrikethru=TrueElseLabel1.FontStrikethru=FalseEndIfEndSub实验四循环程序设计一．实验目的：1．理解循环程序设计的特点。2．掌握常用的循环语句。3．掌握常用的循环算法。4．掌握图片框、图像框和计时器。1k100∑1k50∑1+二．实验内容：1．求2．设计一条滚动的广告字幕。三．实验结果：对象属性设置求和结果要求窗体载入时直接显示，设置窗体的*个属性。对象属性属性值说明Form1AutoRedrawTrue窗体滚动字幕。对象属性属性值说明Label1Caption"欢送使用VB〞标签Timer1Interval1000时钟四．实验思考：1．求和的窗体载入事件的程序代码是什么？PrivateSubForm_Load()Dimk%,s!s=0Fork=1To100s=s+1/kNe*tkFork=1To50s=s+kNe*tkPrintsEndSub2．滚动字幕的触发时钟控件的程序代码是什么？。PrivateSubTimer1_Timer()IfLabel1.Left>Form1.WidthThenLabel1.Left=0ElseLabel1.Left=Label1.Left+100EndIfEndSub实验五数组程序设计一．实验目的：1．熟练掌握固定数组。2．掌握动态数组。3．掌握列表框和组合框。4．了解直线控件和形状控件。二．实验内容：1．设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个100到200之间的整数，在文本框中显示结果信息。界面如图5-1所示。图5-1窗体界面三．实验结果：对象属性设置对象属性属性值说明Label1Caption10个100到200之间的整数标签Label2Caption最大值标签Label3Caption最小值标签Label4Caption平均值标签mand1Caption计算命令按钮Te*t1—Te*t4Te*t""文本框四．实验思考：1．数组应在过程内还是过程外定义，定义的语句是什么？过程外定义Dima(10)AsInteger2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？PrivateSubForm_Load()Dimi%Fori=1To10a(i)=Int(Rnd*101+100)List1.AddItema(i)Ne*tiEndSub3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？PrivateSubmand1_Click()DimiAsInteger,ma*%,min%,avg!ma*=a(1)min=a(1)avg=0Fori=1To10Ifma*a(i)Thenmin=a(i)avg=avg+a(i)Ne*tiavg=avg/10Te*t1.Te*t=ma*Te*t2.Te*t=minTe*t3.Te*t=avgEndSub实验六过程程序设计一．实验目的：1．掌握子过程的定义和调用方法。2．掌握函数过程的定义和调用方法。3．理解作用域和生存期。4.掌握滚动条。二．实验内容：1.写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。要求从文本框中输入两个数。界面如图6-1所示。图6-12.设计一个用滚动条改变图片背风光的程序。界面如图6-2所示图6-2三．实验结果：对象属性设置1．结果要求单击命令按钮分别显示，设置对象的属性。对象属性属性值说明Label1captionm标签Label2captionn标签Label3caption最大公约数标签Label4caption最小公倍数标签Te*t1-Te*t4te*t 〞"文本框mand1caption子过程命令按钮mand2caption函数过程命令按钮2．设置滚动条主要属性值。对象属性属性值说明HScroll1-HScroll3min0滚动条HScroll1-HScroll3ma*255滚动条四．实验思考：1．单击子过程命令按钮，在文本框Te*t3中显示结果信息，子过程的程序代码是什么？PrivateSubmand1_Click()DimmAsInteger,nAsInteger,rAsIntegerm=Te*t1.Te*tn=Te*t2.Te*tIfm0m=nn=rr=mModnLoopr=nEndSub2．单击函数过程命令按钮，在文本框Te*t4中显示结果信息，函数过程的程序代码是什么？PrivateSubmand2_Click()DimmAsInteger,nAsInteger,pAsIntegerm=Te*t1.Te*tn=Te*t2.Te*tp=m*nIfm0m=nn=rr=mModnLoopgbs=nEndFunction3.拖动滚动条的滑块，可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HScroll1的事件过程。DimrAsInteger,gAsInteger,bAsIntegerPrivateSubHScroll1_Change()r=HScroll1.Valueg=HScroll2.Valueb=HScroll3.ValueTe*t1.BackColor=RGB(r,g,b)EndSub实验七界面设计一．实验目的：1．掌握多窗体程序设计的方法。2．掌握下拉式菜单。3．了解通用对话框。二．实验内容：1.编写密码登录系统。在窗体1输入用户名和密码，如果密码正确就弹出第二个窗体，第二个窗体自行设计操作内容；如果密码不正确，弹出信息框，显示〞用户名或密码错误，请重新输入〞，回到窗体1继续输入用户名和密码。密码输入有三次时机，超过三次就弹出第三个窗口，显示〞对不起，你不能使用该系统！〞〔注：但凡文字提示内容可自行设计，不要求与题目一样。三个窗体界面可参照图7-1图7-2图7-3所示。〕图7-1图7-2图7-32.利用通用对话框设计一个简单的文本编辑器，具有翻开、保存、字体、颜色功能。要求用菜单实现，有〞文件〞和〞格式〞两个菜单，〞文件〞菜单下包含〞翻开〞、〞保存〞和〞退出〞三项。〞格式〞菜单下包含〞字体〞和〞颜色〞两项，翻开文件显示在文本框中。〔窗体界面可参照图7-4所示。〕图7-4三．实验结果：对象属性设置1．设置三个窗体的控件及其属性。对象控件名称属性属性值Form1Form1CaptionForm1Form2Form2CaptionForm2Form3Form3CaptionForm32．设置窗体控件及属性值。对象控件名称属性属性值窗体Form1CaptionForm1文本框1Te*t1Te*tTe*t1翻开OpenCaption翻开保存SaveCaption保存退出E*itCaption退出字体FontCaption字体颜色ColorCaption颜色四．实验思考：1．以下程序为实验内容1的局部程序代码，单击确定命令按钮的程序代码是什么？PrivateSubForm_Load()Te*t2.PasswordChar="*〞Te*t2.Te*t=""Te*t1.Te*t=""EndSubPrivateSubmand1_Click()StaticiAsIntegeri=i+1Ifi>=3ThenForm1.HideForm3.ShowE*itSubEndIfIfTe*t1.Te*t="abc〞AndTe*t2.Te*t="123”ThenForm1.HideForm2.ShowElseMsgBo*"用户名或密码错误，请重新输入〞Te*t2.Te*t=""Te*t1.Te*t=""Te*t1.setfoucsEndifEndSub