2023年VB实验报告含答案.pdf
实验报告课程名称 程序设计基础V i su a l B as i班 级_ _ _ _ _ _ _ _姓 名实验一 VB环境和创建一个简朴的VB程序一.实验目的:1.了解VB系统对计算机软件、硬件的规定。2.掌握启动和退出V B 的方法。3.了解和使用V B 集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运营、保存一个简朴的VB应用程序的全过程。5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。二.实验内容：1.设计一个简朴的应用程序，规定在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设序 运 营 后，单输 出 一 行 信 息；本框中的内容，立为“显示“和“清除“。程击”显示”按钮，在文本框中单击“清除“按钮，则清除文运营界面如图L 1 所示。图 L 1 实 验 1 -1 运营界面三.实验结果：对象属性设立对象属性属性值说明For mlcaption我的第一个V b 程序窗体Label1cap t io n请输入姓名标签Textlte x t a文本框Commandlc ap t ion显示命令按钮四.实验思考：C o mma n d2c ap t i on清除命令按钮1 .标 签 1 a b e l控件设立的属性代码有哪些?Label 1.Caption=“请输入姓名”Lab e 11.fo n ts i ze=24L a bell,f o n tb o 1 d=T r u e2.两个按钮所使用的是什么事件?代码分别是什么？Priv a te S ub Command 1 _C 1 i c k()Text.1.tex t=姓名”E nd S ubPrivate Sub Command2_ C 1 ick()Texll.text二”“End Sub赎验二简朴程序设计数据类型及常用内部函数的简朴应用一.实验目的：1.掌握V i sua I B asic数据类型的基本概念。2.掌握用Visual B a sic 的各种运算符及表达式。3.学习使用Vi s ual B a s i c 内部函数和数据输入、输出方法。4.掌握命令按钮、文本框和标签。5 .设计顺序程序。二.实验内容：1.编写一个华氏温度和摄氏温度之间的转换程序，如图2-2 所示，规定用inpu tb o x 函数输入华氏温度，用 m sgbox输出转换后的摄氏温度。转换公式是：C=5/9(F -32)。F 为华氏温度，C为摄氏温度。2.用三种除法运算(/、Mod)做计算。规定:在窗体上画五个标签、五个文本框和一个命令按钮，如 图 2-2 所示。程序运营后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。*input box 与-sgb ox 的应用温度转换图 2 1图 2-2三.实验结果:对象属性设立1.温度转换2.三种除法运算（/、Mod）做计算对象属性属性值说明Form 1CaptionI n p utbox 与 msgbox 应用窗体C o m m a nd 1C a p t i o n温度转换命令按钮对象属性属性值说明La bellC a p t i on被除数标签L a bel2C a ption除数标签Label3Ca p tion浮点数标签Label 4Cap t i o n整除数标签La b e 1 5Ca p tio n余数除标签C om m a n d lC a p t i o n执行除法运算命令按钮四.实验思考：1 .温度转换中的C om m a n d l 命令的单击事件的程序代码是什么？P r i v a t e S ub C om m a n d l _ C l i c k ()D i m C !,F!F=v a l (i n p u t b o x (输入华氏温度”)0 5/9*(F-3 2)M s g b ox 相应的摄氏温度为：&CE n d S ub2 .用三种除法运算(/、M o d)做计算，说明三种除法的区别？/:两个数相除：两个数整除M od:两个数相除,得余数3 .三种除法 运 算(/、M od)做计算，C om m a n d l 命令的单击事件的程序代码是什么？P r i v a t e S ub C om m a n d l _ C 1 i c k ()D i m a!,b!a =v a l(t e x t 1 .t e x t)b=v a l (t e x t 2.t e x t)t e x t 3 .t e x t=a/bt e x t 4.t e x t=a bt e x t 5 .t e x t =a m od bE n d S ub饮验三选择程序设计一.实验目的：1 .掌握单分支与双分支条件语句的使用。2 .掌握多分支条件语句(I f T henE l s e I f)的使用。3 .掌握S e l e c t C a s e 语句的使用及与多分支条件语句的区别。4 .纯熟掌握时间过程的编写方法。二.实验内容：1 .设计一个模拟简易计算器的程序，界面如图3-1 所示 规定:输入两个操作数和一个操作符，根据操作符决定所进行的计算;假如除数为0,用 msgbox提醒犯错信息;用i f 语句和sele c e tc a s e 语句两种结构实现。2.通过单选按钮和复选框控制文字的显示,程序窗口如图32 所示。图 3-1图 3-2三.实验结果:对象属性设立1.模拟简易计算器2.单选框与复选框对象属性属性值说明Labe 1 1Capt i o n输入数1标签Labe12C a p tio n运算器标签L a b e l3Caption输入数2标签Label 4Captio n结果标签Comm a n d 1Ca p tio nCase结构命令按钮C o mmand2C ap t i oni f 结构命令按钮T e xtl-text4Texta u文本框对象属性属性值说明Frame 1C a p t ion字体框架F r ame 2C a p tio n字号框架Fr a m e 3Captio n字型框架Labe 1 1Capt i o n奥林匹克运动会标签Op t i on 1Cap t ion宋体单选按钮0 p tion 2Caption仿宋单选按钮O pti o n 3Caption黑体单选按钮Option4Caption楷体单选按钮0 ption5Caption大单选按钮Opt i o n 6Capti o n中单选按钮Opti o n7Ca p tion小单选按钮ChecklC a pti o n加粗复选框Ch e c k 2C ap tion倾斜复选框Check3Ca p t i on下划线复选框Chee k 4Captio n删除线复选框四.实验思考:1.模拟简易计算器Command 1 命令的单击事件的程序代码是什么？Pr i vate Sub Commandl_Click()Dim a!,b!Dim c As Str i nga=Vai(Text 1 .Te x t)b=Val(Text 3.Tex t)c=T e x t2.T extS e lect C a se cC ase +”Text 4.T e xt=a+bC ase“一”T e x t4.T ex t=a-bCa seTe x t4.T e xt=a*bC a seIf b=0 ThenMsgBox 除数为 0.”E ls eText4.Tex t=a/bEnd IfEn d Selec tEnd Sub2.模拟简易计算器Command2命令的单击事件的程序代码是什么？Pr i vate S ub Comm a ndl Cl i ck()Dim a!,b!D i m c As St r i nga=Vai(T ex tl.T ext)b=Vai(Text3.Te x t)c=T e xt2.Te x tIf c=+”ThenT e x t 4.T ext=a+bEl s elf c=ThenT e x t 4.T ext=a bE lself c=钎 ThenText4.Text=a*bEl s e l f c=/ThenI f b=0 ThenMsgB o x“除数为0”elseT ex t 4.Text=a/bE nd IfEnd I fE nd Su b3.通过单选按钮和复选框控制文字的显示,Comm a n d l命令的单击事件的程序代码是什么Pri v a te Sub C o mmandl Cl i c k()I f Optionl.Value=True ThenLabel 1 .F o ntName=宋体”Else I f Op t ion2.Value=Tr u e T h enLabe 1 1 .FontNam e=华文仿宋”E 1 self 0 p t i o n3.Vai u e=T rue ThenLab e 1 1.Fon t Name=黑体”E l s eL abell.F ontN am e=楷体_ G B 2 3 1 2”En d IfIf 0 p t ion 5.V a 1 ue=T r ue Th e nL ab e 11.F o n tSiz e=24Elsel f Opt i o n 6.V a lu e=Tr u e ThenL a b e l l.Font S iz e =16ElseLab e 11.Fo n tSi z e=8End IfIf Checkl.Value=1 The nL a be 1 1.Fon t Bold=TrueElseLa b el 1.F o ntB o 1 d=F a 1 s eEnd I fIf Ch e ck2.Value=1 ThenL a bell.FontI t alic=TrueE 1 seLa b e 1 1.F o n tlta lic =F a l s eEnd I fIf Check3.V alu e=1 Th e nL a b e l!.Fon t Unde r 1 ine=T r ueElseLab e 1 1.F o nt U nderline=Fai s eEnd I fI f C h eck4.Value=1 ThenL a be 1 1.Fo n tS t r ike t h r u-T ru eEl s eLa b el 1.Fo n t S trikethr u=Fa 1 s eE nd I fE nd Sub实验四循环程序设计一.实验目的：1.理解循环程序设计的特点。2.掌握常用的循环语句。3.掌握常用的循环算法。4.掌握图片框、图像框和计时器。二.实验内容：+*1 .求 1 12.设计一条滚动的广告字幕。三.实验结果：对象属性设立1.求和结果规定窗体载入时直接显示,设立窗体的某个属性。对象属性属性值说明F o rmlAutoRe d rawT r u e窗体2.滚动字幕。对象属性属性值说明La b ellCap t i o n“欢迎使用VB”标签Timer1I n t erval1000时钟四.实验思考：1.求和的窗体载入事件的程序代码是什么？Priva t e Sub F o rm_Load()D im k%s!s=0For k=1 To 1 00s=s+1/kNext kF o r k=1 To 50s=s+kN e xt kP rint sEnd S ub2.滚动字幕的触发时钟控件的程序代码是什么？。P r i v a t e S u b Time r 1 T i me r()I f Label 1.Lef t Forml.W i d t h ThenLabel1.L eft=0E 1 seLabe 1 1.Le f t =L a b e ll.Left+10 0E nd I fE nd Sub实验五数组程序设计一.实验目的：1.纯熟掌握固定数组。2.掌握动态数组。3.掌握列表框和组合框。4 .了解直线控件和形状控件。二.实验内容：1.设计一个程序，找出数组中的最大值、最小值，并计算所有元素的平均值。在列表框中随机产生10个 10()到 200之间的整数,在文本框中显示结果信息。界面如图5-1 所示。图 5-1 窗体界面三.实验结果:对象属性设立对象属性属性值说明Labe 11Capti o n1 0 个 100到 200之间的整数标签Labe 1 2C ap tio n最大值标签Label3Cap t ion最小值标签Label 4C apt i o n平均值标签C o mmandlC a ption计算命令按钮T extlT e xt4T e x t文本框四.实验思考：1.数组应在过程内还是过程外定义,定义的语句是什么？过程外定义Dim a(10)A s Tnt e ger2.在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？Privat e Sub Form L o a d()Dim i%For i=1 To 1 0a(i)=I n t (Rnd*101+100)L is t 1.Ad d Item a(i)Nex t iE nd Su b3.单击命令按钮,在文本框中显示结果信息,则程序代码是什么？Pr i vat e Sub Commandl_Cl i ck()D i m i A s Intege r,max%,mi n%,a v g!m a x=a(1)min=a(1)av g=0F o r i=1 To 10I f max a(i)T h en m i n=a(i)av g=a vg+a(i)Nex t ia v g=avg/10T e xt 1 .Text=maxTex t 2.Text=minText 3.Te x t=a vgEnd Sub赎 验 六 过 程 程 序 设 计一.实验目的:1.掌握子过程的定义和调用方法。2.掌握函数过程的定义和调用方法。3.理解作用域和生存期。4.掌握滚动条。.实验内容：L写两个函数，分别求两个数的最大公约数和最小公倍数，编写子过程求最大公约数，函数过程求最小公倍数。规定从文本框中输入两个数。界面如图6T所示。图 6 12.设计一个用滚动条改变图片背景色的程序。界面如图6-2所示图 6-2三.实验结果:对象属性设立1.结果规定单击命令按钮分别显示,设立对象的属性。对象属性属性值说明L a b e l lc a p t i o nm标签L a b e 1 2c a p t i o nn标签L a b e l 3c a p t i o n最大公约数标签L a b e 1 4c a p t i o n最小公倍数标签T e x t l T e x t 4t e x t，a文本框C o m m a n d lc a p t i o n子过程命令按钮Comma n d2c ap t io n函数过程命令按钮2.设立滚动条重要属性值。对象属性属性值说明HScrol 1 1-H Sc rol 1 3min0滚动条HScrol11-H Sc r0113ma x2 55滚动条四.实验思考：1.单击子过程命令按钮，在文本框Tex t 3 中显示结果信息，子过程的程序代码是什么？Priv a te Sub Com man d 1_ Cl i ck()D i m m A s Inte g er,n A s I n tege r,r As I n t eg e rm=T e xt 1.T extn=Te x t2.TextI f m n Thent=m:m =n:n=tEnd I fC a l l g ys(m,n,r)Tex t 3.T ext=rEn d S ubP r ivate Sub g y s(By Va 1 m%,ByVai n%,r%)r=m Mod nDo While r 0m =nn=rr=m Mod nL o opr=nEnd Sub2.单击函数过程命令按钮,在文本框Tex t 4 中显示结果信息，函数过程的程序代码是什么？Pri v a te S ub C o mma n d 2_C1 i ck()Di m m As In t e g e r,n As Tn t e g e r,p As In te g e rm =T e xtl.T ex tn =Te xt2.Te xtp=m *nI f m n Th e nt=m:m=n：n =tEn d IfP=P/g b s(m,n)T e x t4.Te x t=pEn d SubP r i va t e Fu n c t i o n g b s(m As I n te g e r,n As I n t e g e r)As In t e g e rDi m r As I n te g e rr=m M o d nDo W h i l e r 0m =nn =rr=m Mod nLoopg b s=nEn d F u n c t i on3.拖动滚动条的滑块,可改变图片控件的背景颜色，三个滚动条的程序代码相似，请写出HSc rol l 1 的事件过程。D i m r As In te g e r,g A s In t e g e r,b As I n te g e rPri va t e Sub H S c r o 111_ C h a n g e ()r=HS c rol l l.Va l ueg =HSc rol l 2.Va i u eb =H S c rol 1 3.Va l ueTe xtl.Ba c k C o l or=R G B(r,g,b)End Sub实验七界面设计实验目的:1.掌握多窗体程序设计的方法。2.掌握下拉式菜单。3.了解通用对话框。二.实 验 内 容：1.编写密码登录系统。在窗体1 输入用户名和密码,假如密码对的就弹出第二个窗体，第二个窗体自行设计操作内容；假如密码不对的,弹出信息框，显示”用户名或密码错误，请重新输入”，回到窗 体 1继续输入用户名和密码。密码输入有三次机会，超过三次就弹出第三个窗口，显示”对不起，你不能使用该系统！”（注：凡是文字提醒内容可自行设计，不规定与题目同样。三个窗体界面可参照图7-1 图 7-2 图 7-3 所示。）图 7 1号 For2（3回区恭喜你！密码输入正确！图 72g For3 口回区对不起！你不能使用该系统图 7-32.运用通用对话框设计一个简朴的文本编辑器，具有打开、保存、字体、颜色功能。规定用菜单实有“文献“和“格式”两个菜单，”文献”菜单下包含“打开“、“保存“和“退出“三项。”格式”菜单下包含“字体“和“颜色”两项，打开文献显示在文本框中。（窗体界面可参照图7-4 所示。）图 74三.实验结果:对象属性设立1.设立三个窗体的控件及其属性。对象控件名称属性属性值F o rm lF or m lC a p t i onForm 1Form 2Form 2Ca p ti o nFo r m 2Fo r m 3F o r m 3C ap t io nF o rm 32.设立窗体控件及属性值。对象控件名称属性属性值窗体Form 1C ap t io nFo rm l文本框1Te x t 1Te xtTe xtl打开0 p e nCa pti on打开保存Sa v eCa p t i on保存退出Exi tCa pti o n退出字体Fon tC a pt i o n字体颜色C o l orCa p t i o n颜色四.实验思考:1.下列程序为实验内容1 的部分程序代码，单击拟定命令按钮的程序代码是什么？P r iva t e Sub Form Load()T ext 2.Passwo r dCha r=Text2.T ex t=“Tex t l.T e x t=“E nd SubPrivate Sub Comm a ndl C 1 i c k()Static i As I n t egeri=i+1If i=3 T henF o rm 1.HideForm 3.ShowExit Su bEnd IfI f Textl.T e x t=abc”And Text2.Text=123”ThenF o rml.H id eF or m2.ShowE ls eM s gBox 用户名或密码错误，请重新输入”Tex t 2.Text=Tex t l.T e x t=T e x tl.set f o uc sEnd i fEnd Sub
