《2023年实验报告标准答案.pdf》由会员分享，可在线阅读，更多相关《2023年实验报告标准答案.pdf（22页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、课程名称：实验报告1 成绩评估：实验项目名称：指导教师实验项目编号:实验项目类型：实验地点:学生姓名:学号：学院:系 专业:实验时间 年 月 日 一 午 月日 午一、实验目的1.熟悉V B 编程环境，可以建立、编译和运营VB程序。2.掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。3.理解并掌握赋值语句、掌握表达式的书写规则。4.掌握使用Inpu t bo x 函数和MsgBox消息函数进行输入输出。5.熟悉V B 的数据类型和类型转换。二、实验内容（-）字幕滚动1.设计如下图所示的界面实现字幕从上到下进行滚动，”欢迎使用VB”是一个字幕标签，两个命令按钮分别实现自动滚动
2、和手动滚动。a）在窗体水平居中的地方放置一个标签。b）当字幕向下移出窗体时,重新从窗体顶端开始继续往下移动。c）单 击“手动”按钮一次字幕将向下移动一下，单 击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。d）以EX 1 1 分别保存窗体和工程。简单动画例欢 迎 使 用VBO I 兔：1 12.实验规定a）对于标签应对其什么属性设立什么值才可以使窗体的背景不被遮挡？Back s tyl e-1b）使标签在窗体中水平居中需要设立什么属性，如何设立？设立的依据是什么？1 a b el 1.L ef t-form 1 .w i d t h/2-1 a bell.wi
3、d t h/2c）要想在命令按钮上显示图片,需要设立哪些属性,如何设立？S t y l e -1d）写出标签从上往下移动的代码，注意，当标签移出窗体后要从窗体上顶端开始继续往下。L a bell.Move Label1.Left,Label1.To p+5 0If Lab e 11.Top F o rml.H e i ght T h en Labell.Top=0e）要使Tim e r 控件启用，必须设立哪两个属性，属性值设立为多少？T i m e r 1.I nterval=10 0Timerl.e n abled=truef）单击“手动”按钮时，如何使T imer控件停用？需要在什么地方编
4、写代码?请写出代码？T im e rl.1 n terval=0 或 Timerl.e n a b led=f a l s e（-）打开教材实验材料中工程文献EX A0 5.v b p,完毕下面的任务。1 .观测窗体上分别有哪些类的控件，根据观测结果制作下表，表格行数视情况而定。以 EX1-2保存窗体和工程。控件类控件名称2.启动程序，右图为启动之后的初始界面。回答下面的问题:Lis t 1 中为什么会被添加了两项内容？启动后，窗体从无到有，大小发生改变一form_ re s ize焦点放置在文本框内，触 发 t e xt 1 _gotf o c u s 单 击 按 钮 Command 1 ,
5、L i s t l 中又被添加了 1项什么内容？单击了命令按钮Com m a n dl拖拽窗体的右下角改变窗体的大小,Li s t l 中又被添加了什么内容?窗体F。rm l的大小改变3.关闭程序，写出你对该程序功能的理解。通过在各个控件的一些事件里编写代码，当操作或系统触发事件,可将所有的操作记录下来。（三）B M I计算。1.编写一个计算人的身体质量指数B M I的程序，计算公式为BM I等于体重（公斤）除以身高（米）的平方，计算结果按四舍五入保存2 位小数。运营时的界面如下图所示。a）设计如图所示界面,两个文本框用于输入体重和身高。b）点 击“计算”按钮或者在文本框中输入回车时，计算B
6、M I的值。c）当计算完毕时将当前时间的B M I值打印在图形框，假如输入错误使用M sgBox弹出对话框提醒输入错误。d）窗体大小设立为固定大小,窗体的标题显示系统当前的时间，使用计时器每隔1秒钟更新F o r m 的 Cap t i。n。以EX 1-3 保存窗体和工程。2.实验规定a)该程序的计算用到了哪些变量，作用分别是什么？需要在什么地方定义这些变量，请写出这些变量的定义，并注明变量的作用。窗体通用程序段或“计算”按 钮 的 c li c k 事件内声明，两个变量用于保存文本框内输入的数值。一个变量用于保存bmib)进行BMI计算的表达式是什么，使用自己定义的变量来表达。a=Va 1
7、(T e xtl.Text)b=Vai(T ex t 2.Text)bmi=a/(b/1 0 0)2)c)BM I 计算的结果保存2 位小数打印在Pi c t u reB ox图形框中，请写出具体的Pr i n t 语句。Picturel.P r i n t Now&”的 BMI 是&Ro u n d(bmi,2)d)请写出Time r l_T im er事件的代码,该代码用于控制窗体的标题，使标题显示当前时间。Form 1.C a pt i o n =Time*课程名称:实验报告2_成绩评估：实验项目名称:指导教师实 验 项 目 编 号:实验 项 目 类 型:实验地点:学生姓名：学号:学院:
8、系 专业：实验时间 年 月 日 午一月 日 午一、实验目的1.掌握条件分支中逻辑表达式的书写，掌 握 I f 语句的使用方法,涉及单分支、双分支和多分支结构。掌握分支条件语句的嵌套形式，学会运用Sei e ct C a se语句。2.掌握Fo r.N e xt语句的使用方法，能准确、灵活地拟定初值、终值及步长。掌握循环的嵌套。3.掌 握 D o.L oop语句的使用方法，理解几种不同形式Do.Loop语句的区别，可以对的描述控制循环的条件。4.分析理解如何避免死循环。二、实验内容（-）设计如下图所示界面，实现两个变量的互换。1.编写一个程序，用于演示两个变量内容的互换，界面设计如下图。运营通过
9、后用文献名EX2-1分别保存窗体和工程。a）点 击“第一步”按钮将时“数 据 1”的信息存放在tem p变量中。b）点 击“第二步”按钮将时“数据2”的信息移至“数 据 1”。c）点 击“第三步”按钮时将“T e mp”中的信息移至“数据2 d）点 击“互换”按钮时直接将两个数据互换。提醒：图中的横线为1 in e 控件。2.实验规定a)写出实现变量互换的代码，即“互换”按钮中的代码。temp=Te x tl.TextTextl.T e xt=Te x t 2.TextTex t 2.T e x t=tem pb)如何保证按钮“第一步”，“第二步”，“第三步”的事件中都可以使用临时变量的值?填
10、写以下事件的代码将该临时变量定义为窗体级变量P rivat e S u b C o mma n d 2 _ C lic k ()第一步 按钮t e mp=Te x tl.Te x tText3.T e xt=t empEnd SubP rivate S ub Comma n d3_Cl i ck()“第二步”按钮T e xtl.Te x t=Te x t2.Te x tE n d SubPriva t e Sub Comm a nd 4 _Click()“第三步”按钮T e xt 2.Te x t=t e mpEnd S ub(二)生 成 字 符1.设计如下图所示界面，并编码实现:生成字母0c
11、 S W =iz，h m c%G r k D r&z C R i&XM=9;o n X v 6 b D=z F;00 G G c?4 2 W(L v 9 j D 0d)写出记录字符的代码？描述代码中的难点。D i m U p%,L w%,N u%,O t h%s =T e x t 1.T e x t&T e x t 2.T e x tF o r i =1 T o L e n (s)S e l e c t C a s e A s c (M i d(s,i,1)C a s e 48 T o 57N u =N u +1 数字字符C a s e 6 5 T o 9 0U p =U p +1 大写字母C
12、 a s e A s c (a)T o A s c (H z )L w =L w +1 小 写字母C a s e E 1 s eO t h =O t h 标点字符”E n d S e 1 e c tN e x t iP i c t u r e 1 .C i sP i c t u r e 1 .P r i n tP i c t u r e l.P r i n t 数字字符个数;N uP i c t u r e l.P r i n t 大写字母个数”；U pP i c t u r e 1.P r i n t 小写字母个数；L wP i c t u r e l.P r i n t 标点字符个数”；O
13、 t h难点在于各类字符的辨认。e）你编写代码的过程中有没有出现死机等问题，因素是什么？是怎么解决的?（三）设计如下图所示界面，并编码实现：1.运用迭代公式求一个数的立方根，界面如下图。求 a的立方根的迭代公式为：七用=七，*2/3+。/（3*Z *x“）迭 代 到|X n i -x,“=0 T h e nT e x t 3=F o r m a t (a (1 /3),“0.0 0 )E l s eT e x t 3Format(-(-a)“(1 /3),0.0 0 ”)E n d I fc)写出用迭代法求立方根的循环语句,并对语句进行简朴解释。D i m x 0#,x 1#,a#a =V a
14、 i (T e x t 1 )x O =a 初始值I f a =0 T h e nx l =0E l s ex l =x0*2/3 +a /(3*x0*x0)假如输入不为0 ,才计算立方根E n d I fD o W h i l e A b s (x 1 -x O)0 .0 0 0 0 1x O =x l 迭代，根据旧值获得新值x l =x O *2 /3+a /(3*x O *xO)迭代，根据旧值获得新值L o o p课程名称:实验报告3 成绩评估:实验项目名称：指导教师_ _ _ _ _ _ _ _ _ _ _ _ _ _ _实验项目编号：实 验 项 目 类 型:实验地点：学生姓名：学号:
15、学院:系 专业:实验时间 年 月 日 午 _ 月 _ 日 一 午一、实验目的1 .掌握数组的声明、数组的赋值和数组元素的访问方法。对的地使用R e D i m语句。2.掌握函数和子过程的定义和调用方法。理解形参和实参的作用以及关系。3.纯熟运用数组类控件:组合框和列表框。4.理解参数传地址和传值的区别和使用方法。二、实验内容(-)按下面的规定对F o rm 1 的C 1 ick事件编程,运营通过后用文献名EX 3分别保存窗体和工程。规定功能为：1.随机产生2 0 个 2 0 以内的正整数存入数组a 中,并在窗体上显示；2.将数组a 中相同的元素只保存第一个，其余的所有删除，并且规定同时改变数组
16、a的大小；3.将数组a 中的元素依升序排列并显示在窗体上。4.实验规定a)本题中数组a 定义为静态数组还是动态数组呢?为什么？动态数组。需要改变数组大小b)语句R e D im Preserve中 Pre s e r v e 的作用是什么？保存数组中本来的数据c)描述删除反复元素的算法思绪,写出删除反复元素的代码？从第二个元素起，依次判断前面有无出现反复元素。假如有，则将其后的元素都依次往前移动一个位置,覆盖反复元素。k=1 从第二个元素开始Do 判断下标从0,1,.k-1 的数组元素与下标为k 的元素是否有反复i=0DoRep e a t=a(k)=a(i)If Repe a t The n
17、 a(k)与前面的某个元素反复 k 右边的元素所有左移一位，即删除a(k)F o r j=k To UBound(a)-1a(j)=a(j+1)N e x t j 数组长度减1R e Dim Preserve a(UB o und(a)-1)当前位置k 左移一位k=k-1End I fi=i+1Loo p W h i le i UBound(a)d）删除反复元素时,有无出现错误?因素是什么，是怎么解决的？e)写出排序代码 冒泡法对a 进行排序For i=UBou n d(a)To 1 S t ep 1F o r j=0 To i-1If a(j)a(j+1)Thenk=a(j)a(j)=a(j
18、+1)a(j+1)=kE n d IfN e xt jN e xt i(-)最大公因数1.编写一个使用递归算法实现求两个整数的最大公因数的函数GCD%(m%,n%)并调用。界面如下。以 EX32 分别保存窗体和工程。2.求最大公约数有两种方法:举例如下表:碾转相减碾转相除9 8-63=356 3-3 5=283 5-2 8=728-7=212 1-7=212 1-7=1 414-7=79 8 mod 63=3 56 3 mod 35=2 8 3 mod 2 8=728 mod=03.两个整数的最大公因数的递归定义为:若使用碾转相除法，n 整除m则n就是最大公因数，即 GCD(m,n)=n,否则
19、 GCD(m,n)=GCD(n,m Mod n)。4.实验规定a)对于函数GCD(m%,n%),将m 和 n 使用地址传递和使用值传递时有什么不同？被调函数执行完毕后,主调过程中m和 n 的值有什么不同？假如是传值,则实参数据传递进函数后，实参与形参就断开联系，被调函数执行完毕后，主调过程中m和 n 的值不会改变。；假如是传址，形参获得的是实参的内存地址，形参的改变就是实参的改变。被调函数执行完毕后，主调过程中m和 n 的值会改变。b)对于递归过程而言需要跳出分支，若使用碾转相除法求最大公因数，使递归终止的分支条件是什么？使用碾转相减法呢？碾转相除法 i f m m o d n=0 th e
20、n GCD=n碾转相减法 i f m-n=0 then G C D二 nc)写出 GCD(m%,n%)函数。F unct i o n GCD%(m%,n%)If m =0 Or n=0 Then E x it FunctionIf m 0 T h e n P o si t i v e l n t=T r u eE n d Fu nc ti o n并回答以下问题：标记符P o s i ti v e I n t 在函数体内部是作为一个局部变量吗？是 判断一个数a是正整数的条件是什么？用自然语言描述。大于0，且取整前后相等。假如P o si ti v e l n t 在函数体内部没有被赋值至少一次,
21、会出现什么样的后果？函数没有返回值b)整个p r o j e c t中有几个模块，互相之间的关系是什么？一个窗体，一个标准模块。属于同一个工程。c)补充函数S um F a c to r 的代码。F un c ti o n S um F a c to r&(x%)S um F a c t o r =0F o r i=1 T o x-1I f x Mod i=0 The nSumFa c tor=SumFac t or+iForml.Combol.A d dltem iEnd I fEn d Funct i ond)当窗体上文本框中内容不是正整数时，用 MsgBox对话框提醒并且选择T e x
22、tl中的内容。写出选中Tex t 1 中内容的3 条语句：MsgBox 不是正整数Text 1.S etF o c u sT e xtl.S e 1 S ta rt=0T e xtl.Sei Le n g th=Len(T e x tl.Te x t)e)往组合框中添加数据前是否要清空组合框,否则会有如何的结果？要。否则组合框中保存了其他数字的因子。课程名称:实验报告4 成绩评估:实验项目名称:指导教师实验项目编号:实验 项 目 类 型:实验地点:学生姓名：学号:学院:系 专业：实验时间 年 月 日 午 月日午一、实验目的1.掌握常用控件的常用属性、事件和方法。涉及窗体、文本框、标签、命令按钮
23、、组合框、列表框、单选按钮、复选框等。2.纯熟合理使用不同的控制结构和函数过程。3.掌握数组的相关操作和常用算法,以及自定义数据类型数组的使用。4.掌握顺序文献的特点，掌握顺序文献的打开、读写和关闭的方法。掌握Line I npu t 和 1 n p u t 的使用。5.可以根据应用程序的需要读写脱机数据。6.掌握菜单的设计方法。二、实验内容(-)综合练习1.设计如下图所示界面的窗体。(1)将左侧组合框设立为升序，当添加新的待选课程名称时自动放至合适的位置上。(2)编写事件过程。a)当窗体加载时，分别从文献“待选 课.tx t”、“已选课.txt”中读取数据显示在左侧的组合框和右侧的列表框中。
24、b)在左侧组合框中输入数据按回车键时，检查无反复后，添加新的待选课程名称至待选课列表框中。c)编写移动按钮事件：“”：将选中的课程移至已选课列表中“”：将所有待选课程移至已选课列表中“”：从已选课列表中删除选中的已选课程，并将其移入待选课列表“a.L i s t(j)ThenTm p-a.List(i)a.L i s t(i)=a.L is t(j)a.L i s t(j)=t mpEn d I fN e xt jN ex t iEnd Su b(二)综合练习1.在窗体上放置一个文本框，并设计如下图所示菜单。(1)编写事件过程。a)“文献”-“打开”：打开应用程序所在目录的studentl.d
25、at文献。A“文献“保存”：将文本框中内容保存至s tu d e n t 2.dat文献。b)在读取或者保存数据时需要保存数据的格式，因此在解决文献中的数据时需要使用自定义数据类型的数组。数据文献中的数据类型S t udType定义如下：Priv a t e Ty p e Stu d T yp eName As St r i ng*3S e x As S tr i ng*1Ag e As In t egerEnd Ty p eDim s()As St u d T y p e，定义一个S t u d T ype类型的动态数组c)“格式”“字体”：设立文本框中字体格式为“宋体”或 者“隶书”，格式
26、，一，字号，：增大或者减小字体大小。d)“排序”-“年龄”：按照年龄进行升序或降序排序A “排序”一“性别”：按照性别进行升序或降序排序。(2)规定在文本框中输出时对齐，如下图。(3)右键点击文本框时出现格式菜单，并且严禁系统菜单的出现。I综合练习 国 回 区I 综合练习 国 叵 冈序tr抖式格范黄陈李罗邓于曾叶余夏郭陈肖朱彭徐宇毅继伯汉景强鑫亚泽雪鹏永毅莉丹涛红清栋仁芬克荣锋强领7男男男女男男女男女男男女女女男例；6666667777;a-1-14411*1*1A1*1*411*1*1A1*1*I中 国 林李 光 华陈 昌 兴吴 港 权廖 剑 锋蓝 志 福王 克 南刘 国 敏23202123
27、192020字 号宋体隶书女另ZJ2320V件文式格存排龄年序降(4)运营通过后用文献名EX4-2分别保存窗体和工程。2.实验规定a)由于不清楚文献中的数据有多少，所以要使用动态数组来存放文献中的数据。下面代码的功能是从当前目录中读取学生的信息，请完善。O pen A p p.P a th&u s tud e n 1 1 .dat F or in p u t A s#1i =0D o W h i le N o t eof(1 )I n put#1 ,iN ame,iS ex,i A g ei =i +1R eD im p re s e r v e s(l To i)s(i).N a m e =
28、iN a me:s(i ).S ex=iS ex：s(i).A ge=i A g eText 1.Text=Tex t l.lext&s(i).N ame&S p a c e(I I f(L en(i N a me)=2,4,3)&s .S ex&”A g e&vbC r L f 保证文本框中每行存放一个学生的信息，L o opC lo s e#1b)文本框中如何实现对齐?请写出你的解决方案。中文字符与英文字符所占的宽度是否相同？根据姓名的字符个数，在”性别“前决定连接不同的空格个数。SD a c e(H f(L en(iN ame)=2,4,3)c)以下是对自定义数据类型数组S按照年龄进行排
29、序的代码，请完善。F or i =L B ound(s)To U B o u n d(s)-1F or j=i +1 To UB ound(s)I f s(i).A g e s(j).A g e T hen T m p -s(i):s(i)=s(j):s(j)=T m pN ext jN ex t id)升序或者降序时如何显示c h e ck标记。设立菜单项的c h ec k e d属性为truee)显示右键菜单的代码如下,请完善。P r ivat e S ub Textl_M ouseD o w n (B u tton A s I nteger,S hift A s I nte g e r,X A s S i n gle,Y A s S i ngle)Text Enab 1 ed=F a Is e 可使VB自身定义的系统右键菜单无效Tex t 1 .Enable d=Tru eIf Bu I ton-2 T h en Po p upMen u MFormatEnd Subf）说出该题的难点（至少2 个）及解决方法。