实验报告标准答案.doc

实验报告标准答案
课程名称:实验报告1成绩评定:实验项目名称:指导教师实验项目编号:实验项目类型:实验地点:学生姓名:学号:学院:系专业:实验时间年月日午～月日午一、实验目的1.熟悉VB编程环境，能够建立、编译和运行VB程序。

2.掌握窗体、标签、文本框、命令按钮、图形框的作用、常用属性、事件和方法。

3.理解并掌握赋值语句、掌握表达式的书写规则。

4.掌握使用Inputbox函数和MsgBox消息函数进行输入输出。

5.熟悉VB的数据类型和类型转换。

二、实验内容(一)字幕滚动1.设计如下图所示的界面实现字幕从上到下进行滚动，“欢迎使用VB”是一个字幕标签，两个命令按钮分别实现自动滚动和手动滚动。

a)在窗体水平居中的地方放置一个标签。

b)当字幕向下移出窗体时，重新从窗体顶端开始继续往下移动。

c)单击“手动”按钮一次字幕将向下移动一下，单击“自动”按钮字幕将连续移动，具体移动的速度或幅度、窗体和按钮上的图片由自己设定。

d)以EX1-1分别保存窗体和工程。

2.实验要求a)对于标签应对其什么属性设置什么值才能够使窗体的背景不被遮挡？Backstyle----1b)使标签在窗体中水平居中需要设置什么属性，如何设置？设置的依据是什么？
label1.Left---form1.width/2-label1.width/2c)要想在命令按钮上显示图片，需要设置哪些属性，如何设置？Style-----1d)写出标签从上往下移动的代码，注意，当标签移出窗体后要从窗体上顶端开始继续往下。

Label1.MoveLabel1.Left,Label1.Top+50IfLabel1.Top>Form1.HeightThe nLabel1.Top=0e)要使Timer控件启用，必须设置哪两个属性，属性值设置为多少？Timer1.Interval=100Timer1.enabled=truef)单击“手动”按钮时，如何使Timer控件停用？需要在什么地方编写代码？请写出代码？Timer1.Interval=0或Timer1.enabled=false(二)打开教材实验材料中工程文件EXA05.vbp，完成下面的任务。

1．观察窗体上分别有哪些类的控件，根据观察结果制作下表，表格行数视情况而定。

以EX1-2保存窗体和工程。

控件类控件名称2．启动程序，右图为启动之后的初始界面。

回答下面的问题：①List1中为什么会被添加了两项内容？启动后，窗体从无到有，大小发生改变—form_resize焦点放置在文本框内，触发text1_gotfocus②单击按钮Command1，List1中又被添加了1项什么内容？单击了命令按钮Command1③拖拽窗体的右下角改变窗体的大小，List1中又被添加了什么内容？窗体Form1的大小改变3．关闭程序，写出你对该程序功能的理解。

通过在各个控件的一些事件里编写代码，当操作或系统触发事件，可将所有的操作记录下来。

(三)BMI计算。

1.编写一个计算人的身体质量指数BMI的程序，计算公式为BMI 等于体重（千克）除以身高（米）的平方，计算结果按四舍五入保留2位小数。

运行时的界面如下图所示。

a)设计如图所示界面，两个文本框用于输入体重和身高。

b)点击“计算”按钮或者在文本框中输入回车时，计算BMI的值。

c)当计算完成时将当前时间的BMI值打印在图形框，如果输入错误使用MsgBox弹出对话框提示输入错误。

d)窗体大小设置为固定大小，窗体的标题显示系统当前的时间，使用计时器每隔1秒钟更新Form的Caption。

以EX1-3保存窗体和工程。

2.实验要求a)该程序的计算用到了哪些变量，作用分别是什么？需要在什么地方定义这些变量，请写出这些变量的定义，并注明变量的作用。

窗体通用程序段或”计算”按钮的click事件内声明,两个变量用于保存文本框内输入的数值。

一个变量用于保存bmib)进行BMI计算的表达式是什么，使用自己定义的变量来表示。

a=Val(Text1.Text)b=Val(Text2.Text)bmi=a/((b/100) )c)BMI计算的结果保留2位小数打印在PictureBox图形框中，请写出具体的Print 语句。

Picture1.PrintNowNuPicture1.Print“大写字母个数“;UpPicture1.Print“小写字母个数“;LwPictur
Dimx0#,x1#,a#a=Val(Text1)x0=a’初始值Ifa=0Thenx1=0Elsex1=x0*2/3+a/(3*x0*x0)’如果输入不为0，才计算立方根EndIfDoWhileAbs((x1-x0))>0.00001x0=x1’迭代，根据旧值获得新值x1=x0*2/3+a/(3*x0*x0)’迭代，根据旧值获得新值Loop课程名称:实验报告3成绩评定:实验项目名称:指导教师实验项目编号:实验项目类型:实验地点:学生姓名:学号:学院:系专业:实验时间年月日午～月日午一、实验目的1.掌握数组的声明、数组的赋值和数组元素的访问方法。

正确地使用ReDim语句。

2.掌握函数和子过程的定义和调用方法。

理解形参和实参的作用以及关系。

3.熟练运用数组类控件：组合框和列表框。

4.理解参数传地址和传值的区别和使用方法。

二、实验内容(一)按下面的要求对Form1的Click事件编程，运行通过后用文件名EX3-1分别保存窗体和工程。

要求功能为：1.随机产生月日午～月日午一、实验目的1.掌握常用控件的常用属性、事件和方法。

包括窗体、文本框、标签、命令按钮、组合框、列表框、单选按钮、复选框等。

2.熟练合理使用不同的控制结构和函数过程。

3.掌握数组的相关操作和常用算法，以及自定义数据类型数组的使用。

4.掌握顺序文件的特点，掌握顺序文件的打开、读写和关闭的方法。

掌握LineInput和Input的使用。

5.能够根据应用程序的需要读写脱机数据。

6.掌握菜单的设计方法。

二、实验内容(一)综合练习1.设计如下图所示界面的窗体。

(1)将左侧组合框设置为升序，当添加新的待选课程名称时自动放至合适的位置上。

(2)编写事件过程。

a)当窗体加载时，分别从文件“待选课.txt”、“已选课.txt”中读取数据显示在左侧的组合框和右侧的列表框中。

b)在左侧组合框中输入数据按回车键时，检查无重复后，添加新的待选课程名称至待选课列表框中。

c)编写移动按钮事件：l“>”：将选中的课程移至已选课列表中l“>>”：将所有待选课程移至已选课列表中l““按钮单击事件中，如果没有选中任何待选课程，会出现什么样的情况？原因是什么？出错。

因为没有选择项，则Combo1.Listindex为-1，Combo1.List(-1)不存在，溢出。

所以应设置选择结构，当选中项后，才将该项添加至右边列表框。

d)以下是对列表框数据进行升序排序的子过程SortASC，请完善。

SubSortASC(aAslistbox)‘选择排序的子过程Fori=0Tolistbox.listcount-2Forj=i+1Toa.ListCount-1Ifa.List(i)>a.List(j)T henTmp=a.List(i)a.List(i)=a.List(j)a.List(j)=tmpEndIfNextjNextiEndSub(二)综合练习1.在窗体上放置一个文本框，并设计如下图所示菜单。

文件打开Ctrl+O保存-退出格式字体字号宋体隶书变大变小排序年龄性别升序降序升序降序(1)编写事件过程。

a)“文件”-“打开”：打开应用程序所在目录的student1.dat文件。

“文件”-“保存”：将文本框中内容保存至student2.dat文件。

b)在读取或者保存数据时需要保存数据的格式，因此在处理文件中的数据时需要使用自定义数据类型的数组。

数据文件中的数据类型StudType定义如下：PrivateTypeStudTypeNameAsString*3SexAsString*1AgeAsIntegerEndT ypeDims()AsStudType‘定义一个StudType类型的动态数组c)“格式”-“字体”：设置文本框中字体格式为“宋体”或者“隶书”“格式”-“字号”：增大或者减小字体大小。

d)“排序”-“年龄”：按照年龄进行升序或降序排序“排序”-“性别”：按照性别进行升序或降序排序。

(2)要求在文本框中输出时对齐，如下图。

(3)右键点击文本框时出现格式菜单，并且禁止系统菜单的出现。

(4)运行通过后用文件名EX4-2分别保存窗体和工程。

2.实验要求a)由于不清楚文件中的数据有多少，所以要使用动态数组来存放文件中的数据。

下面代码的功能是从当前目录中读取学生的信息，请完善。

OpenApp.Path&“\student1.dat“ForinputAs#1i=0DoWhileNoteof(1)Input #1,iName,iSex,iAgei=i+1ReDimpreserves(1Toi)s(i).Name=iName:s(i).Se x=iSex:s(i).Age=iAgeText1.Text=Text1.Text&s(i).Name&Space(IIf(Len( iName)=2,4,3))&s(i).Sex&““&s(i).Age&vbCrLf‘保证文本框中每行存放一个学生的信息，LoopClose#1b)文本框中如何实现对齐？请写出你的解决方案。

中文字符与英文字符所占的宽度是否相同？根据姓名的字符个数，在”性别“前决定连接不同的空格个数。

Space(IIf(Len(iName)=2,4,3))c)以下是对自定义数据类型数组s按照年龄进行排序的代码，请完善。

Fori=LBound(s)ToUBound(s)-1Forj=i+1ToUBound(s)Ifs(i).Age设置菜单项的checked属性为truee)显示右键菜单的代码如下，请完善。

PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingl e,YAsSingle)Text1.Enabled=False可使VB本身定义的系统右键菜单无效Text1.Enabled=TrueIfButton=2ThenPopupMenuMFormatEndSubf)说出该题的难点(至少2个)及解决方法。

19。