vb综合性实验报告

2024-05-16

vb综合性实验报告（精选6篇）

篇1：vb综合性实验报告

综合性实验

实验名称: 用vb编写简单计算器专业班级: 土木工程 0901班学生姓名： *** 学号： ********* 指导教师： *** 需求分析

该计算器程序是在Visual Basic6.0环境下编写，编写完成后在Windows xp下运行，通过初步测试，发现该计算程序能完成整数的加，减，乘，除四种运算。通过在虚拟键盘上用鼠标点击输入第一个数，然后点击运算符，再输入第二个数，最后点击“=”就会在计算器上方的文本框中输出结果，清空文本框进行下次运算。经过仔细测试发现，该计算器最高支持五位整数的运算，在除法运算中能精确到小数点后14位。运行环境

WINDOWS XP系统；VB6.0；

3开发工具和编程语言

开发工具：Visual Basic6.0 “微型整值计算器”程序编写代码：

Dim op1 As Integer Dim op2 As Integer Dim operator As String

Private Sub Command1_Click()

Text1.Text = Text1.Text & “1” End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text & “2” End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text & “3” End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text & “4” End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text & “5” End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text & “6” End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text & “7” End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text & “8” End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text & “9” End Sub

Private Sub Command11_Click()Text1.Text = Text1.Text & “0” End Sub

Private Sub Command10_Click()op1 = Val(Text1.Text)operator = “+” Text1.Text = “" End Sub

Private Sub Command12_Click()op1 = Val(Text1.Text)operator = ”-“ Text1.Text = ”“ End Sub

Private Sub Command13_Click()op1 = Val(Text1.Text)operator = ”*“ Text1.Text = ”“ End Sub

Private Sub Command14_Click()op1 = Val(Text1.Text)operator = ”/“ Text1.Text = ”“ End Sub

Private Sub Command15_Click()op2 = Val(Text1.Text)If operator = ”+“ Then Text1.Text = op1 + op2 ElseIf operator = ”-“ Then Text1.Text = op1-op2 ElseIf operator = ”*“ Then Text1.Text = op1 * op2 ElseIf operator = ”/" Then Text1.Text = op1 / op2 End If End Sub 4 系统设计

（1）程序的组织结构（包括窗体、模块及其功能）。

窗体模块：用来包含sub与事件过程窗口：用来承载控件，包括按钮控件、文本框控件、标签控件。

控件：按钮控件用来输入数据与运算符号，文本框控件用来显示输入的数值以及最后的运算结果，标签控件显示标签既该程序的自定义名称。

Sub过程：通过代码的编写使窗口上的控件能在程序运行时有特殊的作用，使命令按钮能产生相应的数值，运算按钮产生相应的运算过程，及文本框中显示相应结果。

（2）每个窗体（模块）详细描述设计思路。

I.首先打开新建工程，创建一个forml窗口，并在窗口中放入控件。分别放入一个标签控件，一个文本框控件和15个按钮控件，调整各控件的大小和位置，使其布局如下图示。

II.调整各控件的属性值。单击标签控件，将其caption属性设置为“微型整

值计算器”并将fount属性设置为粗体，小四。将文本框清空，然后依次设置command1~command15的caption属性分别为数字“1~10”和运算符“+”“-”“*”“/”以及“=”。

III.编写控件触发事件过程代码。先声明三个变量：两个整值和一个字符串。然后编写command1~command10的click事件使用赋值语句，在文本框中显示相应数值。再编写command11~command14的click事件，使用赋值语句赋予相应运算符，并将文本框中字符串转换为数值型赋值给第一个变量，清空文本框。编写command15的click事件代码，将第二次输入的字符串转换为数值型赋给第二个变量，并用块结构条件语句分别编写四种运算过程。IV.完成后进行调试，修改，运行，测试。系统运行及测试

（1）几组测试数据以及相应的测试结果：

运算10/3的结果运算14*3的结果运算78+20的结果（2）运行界面：

参考文献

[1] 郭晓君、谢日行，visual basic程序设计教程，黄河水利出版社

[2] 龚沛曾、杨志强、陆慰民，visual basic程序设计实验指导与测试，高等教育出版社 7心得体会

在这次实验中，在vb环境下制作了一个标准exe工程，虽然结果比较令人满意，但是在制作过程中遇到了不少困难。在其中深深体会到了了解和掌握一门计算机语言并不容易，要真正学好它必须要付出足够的努力。我在这次实验中就查阅了相关资料，并通过与他人的相互交流学习，这样既有利于相互的学习与提高，又能养成良好的学习习惯。此外，此次实验的成功完成，对我自己也是极大的鼓舞，鼓舞我今后更加努力的去学好这门课程。这个计算器的制作使我领会到了vb的实用性与强大的功能，所以我以后一定会以更加努力认真的态度来学习vb课程，为以后的应用与实践打下坚实的基础。

篇2：vb综合性实验报告

（七）－数组

（班级：学号：姓名：）

该综合实验是在学生完成前面的实验，初步掌握顺序结构、选择结构和循环结构的程序设计方法。在此基础上，通过本次综合实验掌握数组的声明和数组元素的引用，掌握固定数组和动态数组的使用方法。

1．实验目的通过本次综合实验掌握数组的声明和数组元素的引用，掌握固定数组和动态数组的使用方法，学会利用数组解决一些较为复杂的问题。

2．实验内容

1）创建一个应用程序，要求：用随机数产生10个整数（其取值范围为1~100），存放在数组x中，查找x数组中的最大元素及最小元素，并将最大元素及最小元素分别与数组的第1个和最后一个元素交换，分别输出x数组交换前后各元素的值。

2）读入10个整数到a[10],然后输入一个整数m,(设数组a中各元素均不相同且m一定在a中),将与m相等的元素放置到数组的最后位置，其它元素的相对位置保持不变，输出数组。

3．实验要求：

1）．掌握数组的声明和数组元素的引用；

2）．掌握固定数组和动态数组的使用方法；

4．实验报告的要求

1）实验目的根据教材和和课堂学习的知识要点，列出本次实验要达到的目的。

2）实验内容

描述实验的具体内容，包括实验题目要求、实验过程和步骤。

3）设计和分析

程序设计说明，包括运行环境、界面设计、算法描述、流程图等。

4）代码设计

经调试正确的源程序。

5）结果讨论

(1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。

（2)通过此次实验，你有什么体会、有哪些收获。

篇3：vb综合性实验报告

随着信息技术的发展,光学实验的计算机仿真在科学工程以及光学教学方面引起了广大工作者的广泛关注[1,2]。但是,过去大多光学仿真软件的开发都是基于Flash,Photoshop,3DMax之类的图像软件,而这类软件对光学实验规律和过程很少涉及,很难做到真正的交互使用。因此,在开发波动光学仿真系统时应选择计算功能强、人机界面好的软件作为基础。

目前,越来越多的教学工作者采用Matlab软件进行仿真软件的开发[3,4,5,6]。虽然Matlab软件提供了强大的科学运算、图像处理、高效灵活的程序设计方法、以及便捷的与其他软件间进行数据交换的功能,但是Matlab在交互式、可视化、高水平仿真图像、人性化仿真界面和快速开发等方面远远比不上Visual Basic(VB)。

VB是一种超强的可视化编程语言,但是VB 只提供了基本的数学函数库,如果使用 VB 编写特殊功能的数学函数库,必须要求用户对算法有深入的理解。因此,如果能结合Matlab与VB各自的优势开发仿真软件是一种很好的方案。但是,鉴于Matlab及VB软件之间的接口存在一定的难度,目前将Matlab及VB结合仿真光学实验的报道还比较少见[7]。因此,还有大量的工作需要去探讨与研究。

本文借助Matlab与VB各自的优势,通过Matlab及VB之间的接口技术,在VB界面改变输入参数并调用Matlab编写的函数程序,实现同一个程序仿真光栅衍射、单缝衍射、杨氏双缝干涉以及多光束干涉的实验现象。

1Matlab与VB接口方法简介

目前,VB调用Matlab的接口可以通过ActiveX自动化技术,COM Builder技术以及DLL动态链接库三种方法实现[8]。但是利用ActiveX自动化技术时会在后台启动一个Matlab进程,不能脱离Matlab环境,而且实时性差。通过COM Builder技术虽然可以脱离Matlab环境,但是一些工具箱函数还是无法编译,有一定的局限性,这两种方法都难以满足软件开发的要求[9,10,11]。而DLL动态链接库方法不仅可以脱离Matlab环境运行,并且可以大大提高程序的运行效率,降低对系统资源的占用率。它的原理主要就是将Matlab的.m文件转变成为VB可以调用的DLL文件,从而实现VB对Matlab的调用[8,9]。在此借助DLL动态链接库方法实现VB调用Matlab中的函数。

2光栅衍射的光强分布

光学实验的仿真模拟主要是根据光强分布的理论公式,通过编程得到仿真曲线,然后通过改变参数实现动态模拟[12,13]。图1为光栅衍射示意图。

$\sin θ = y / \sqrt{y^{2} + f^{2}}$ 假设入射光的波长为λ,光栅的缝数为N,各缝的宽度为b,光栅常数为d,入射光与法线正方向的夹角为α(斜向上入射,规定α>0;斜向下入射,规定α<0)。可以得到观察屏上P点得光强分布函数[14]为:

式中:I0为屏中心的最大光强;(sin φ/φ)2为单缝衍射因子;(sin Nβ/sin β)2为多光束干涉因子;φ=πb/λ(sin θ-sin α),β=πd/λ(sin θ-sin α)。衍射角θ满足。其中y是P点y方向的坐标,f是凸透镜的焦距。

(1) 当N=1时,式(1)变为I=I0(sin φ/φ)2,对应于单缝衍射的光强分布函数。

(2) 当b<<λ,式(1)变为I=I0(sin Nβ/sin β)2,对应于多光束干涉的光强分布函数。

(3) 当N=2且b<<λ时,式(1)变为I=4I0cos2β,对应于杨氏双缝干涉的光强分布函数。

由以上分析可知,单缝衍射、杨氏双缝干涉以及多光束干涉可以看作是光栅衍射的特例。因此,可以利用式(1)进行编程,然后通过改变输入参数,达到仿真多个实验的目的。这样避免了单个实验进行编程仿真的累赘,并且通过仿真可以让学生更清楚地了解光栅衍射的实质。

另外,还可以利用杨氏双缝干涉或多光束干涉实验,通过调整入射光的入射角度,使得第j级干涉条纹移动到y轴的中心0处,记录此时光的入射角度α,然后计算入射光的波长,其计算公式为λ=-dsin α/j。

3光栅衍射的综合仿真模拟

3.1 编写Matlab程序

在Matlab环境下编写含输入参数的.m函数文件yanshe.m:

3.2 将Matlab函数转化为DLL文件

用Matcom 4.5将.m文件转化成DLL的过程如下:运行Matcom 4.5,点击菜单File/ Compile to dll,选择写好的yanshe.m文件,点击OK。这时在对应的Debug目录下,有三个需要在VB开发环境中使用的文件yanshe.dll,yanshe.bas,yanshe.cls。

3.3 在VB中实现调用DLL文件

为了能适应Matlab强大的矩阵运算功能,必须将MaxtrixVB库加入到工程中,过程为:点击菜单VB中的工程,选择引用,在可用的引用对话框中选中Mmatrix,点击OK。

将yanshe.bas和yanshe.cls加入到工程中,过程为:

(1) 点击VB中的工程/添加模块 /Matcom 4.5/Debug/yanshe.bas。

(2) 点击VB中的工程/添加类模块 /Matcom 4.5/Debug/yanshe.cls。

最后将生成的Matcom 4.5/Debug/目录下的yanshe.dll文件拷贝到Windows/System 32目录下,这样就可以实现VB与Matlab之间的接口链接,在VB中调用yanshe.m函数。

3.4 VB窗体及程序代码设计

在VB中建一个工程窗体Form1,在窗体中添加控件,如图2所示。

各控件的代码如下:

在VB中新建第二个工程窗体Form2,如图3所示。

在窗体中添加文本框控件,并在其中给出仿真说明的内容。在Form2窗体中添加命令按钮控件,并编写程序代码如下:

图3窗体与图2主窗体之间的运行方式是在图2主界面运行过程中,点击仿真说明按钮,弹出图3窗体,主界面隐藏。在图3窗体中点击返回按钮,弹出图2主界面,图3窗体隐藏。

3.5 仿真结果

图4是N=5时的光栅衍射图样。由图可以看到,该衍射图样实际上是缝间的干涉条纹受到单缝衍射调制的结果。另外,作为一个特例,假定d/b=3,仿真结果中还可以看到±3,±6…级缺级的现象。

图5是N=1时的单缝衍射图样。此时,不存在缝间的干涉现象,衍射图样中央明纹光强最大,随着级次的增大,各级明纹的光强迅速减小。另外,还可以看到中央明纹的宽度比其他明纹宽。在仿真过程中还可以发现:λ愈大或b愈小,各级明纹的宽度就越大,说明衍射作用愈明显。反之,λ愈小或b愈大,各级明纹的宽度就越小,并且各级明纹都向中央明纹靠拢,逐渐分辨不清,说明衍射作用也就愈不明显。

图6是缝宽b较小时的光栅衍射图样。该衍射图样类似于杨氏双缝干涉或多光束干涉的图样。该图样形成的主要原因是随着缝宽b的减小,单缝衍射作用下的中央明纹宽度将逐渐增大,其光强分布曲线将逐渐伸展,也即由于单缝衍射作用而形成的中央包络线越宽,进而使得在观察的视野中看到更多的明纹。当b<<λ,单缝衍射光强分布将伸展为一条直线,此时式(1)中的单缝衍射因子可以忽略不计,仿真得到的便是杨氏双缝干涉或多光束干涉的图样。在真实的实验情况下,条件b<<λ很难满足,杨氏双缝干涉以及多光束干涉实际上仍是缝间干涉被单缝衍射调制后结果。另外需要说明的是,在仿真过程中还发现随着缝数N逐渐增大,各明纹的宽度以及位置不变,但光强却逐渐增大。

在对光栅衍射进行仿真时,当改变入射光的入射角度时,还可以看到衍射条纹的形状与光强不会发生改变,只是作整体平移。当增大斜向上的入射角度时,各级条纹将向y轴的正方向移动。反之,当增大斜向下的入射角度时,各级条纹将向y轴的负方向移动。另外,在缝宽b较小的情况下,通过调整入射光的入射角度,利用仿真图样还可以测量入射光的波长。作为特例,本文取N=5,d=6×10-7,b=1×10-9,λ=5×10-7,增大向上斜入射光的入射角度,通过仿真记录当入射角度为0.016 65 rad时,第j=-2级明条纹移动到轴的中央0处,利用公式λ=-dsin α/j便可计算出光的波长为λ=4.994 8×10-7,这一结果与λ=5×10-7之间的误差较小。在实际应用中,该方法对测量光的波长具有一定的指导意义。

4结语

本文利用DLL动态链接库方法实现VB与Matlab之间的接口连接,在VB界面可方便地改变输入参数,实现缝的干涉与衍射实验现象的仿真。通过仿真,可以很清楚地知道单缝衍射、杨氏双缝干涉以及多光束干涉实际上是光栅衍射在一定条件下的特例,并且该仿真可使更好地了解缝的干涉与衍射的本质。另外,在实际的杨氏双缝干涉与多光束干涉实验过程中,很难做到b<<λ,因此实际实验观察到的现象仍是光的干涉与衍射的结果。通过光学仿真,便可以观察到无衍射作用的杨氏双缝干涉与多光束干涉实验现象,弥补了实际实验的不足。同时,计算机仿真可逼真地显示各实验现象,能给学生提供形象直观的仿真图样,这在开拓学生的视野、激发学习兴趣,提高教学效率方面起到重要的作用。

篇4：利用VB制作中学物理实验课件

关键词：VB；物理实验；摩擦力

中图分类号：G434 文献标志码：B 文章编号：1673-8454（2014）16-0052-02

一、课件的功能需求和设计分析

1.课件的功能需求分析

以中学物理的摩擦力实验为例，从实际的教学需要出发，以简单实用为课件的设计思想，利用VB语言开发一个物理实验课件。该课件的基本内容和实现流程如下：

桌面上放着一个重物，重物通过绳子和定滑轮与砝码连在一起。由于桌面与物体的静摩擦力作用，整套装置处于静止状态。如果减小桌面与重物的静摩擦力系数，或者减轻重物的质量，加重砝码的质量，那么砝码的重力将大于桌面与物体的静摩擦力，砝码向下运动，重物向右运动。由于砝码的重力作用，重物和砝码作匀加速度运动。[1]

用户在使用时，输入各个影响实验效果的数值。课件根据这些数值判断该重物受摩擦力的情况，并将效果显示出来。课件内部大致可以分为两个模块，一是公式计算模块，该模块的作用是将用户输入的值代入物理公式，并通过数学计算判断重物与砝码是否运动；二是图形绘制模块，该模块的作用是在画布上绘制重物、砝码等各种实验设备，组成物理实验环境。[2] 课件的流程图如图1所示：

2.课件的界面设计

为了达到简单实用的标准和使学生注意力集中的要求，课件的设计不需要复杂的操作和花哨的界面。图2为课件的用户界面：

二、课件实现的技术要点和关键代码

课件的完整程序由工程文件“摩擦.vbp”、窗体文件“摩擦.frm”、模块文件“摩擦.bas”组成，窗体文件用于实现和用户的交互，而模块文件则用于图形的绘制。

1.VB中的开始按钮

在界面上设置开始按钮，单击“开始”按钮后，如果重物与桌面的摩擦力小于砝码的重力，则timer1.enabled= true，激活定时器；如果重物与桌面的摩擦力大于砝码的重力，程序没有动作，该按钮的代码如下：

2.VB工具箱中的定时器控件

定时器的两个重要属性是”Enabled”和”Interval”。当“Enabled”的属性为“True”时，定时器开始工作；属性为“False”时，定时器停止工作。“Interval”属性决定了定时器对象中程序的时间间隔。[3]

在该课件中，所有的动作都在名称为Timer1的定时器中完成。当Timer1.Enabled=true时，计算重物与砝码的当时速度v=v+a以及它们的位置，该部分的实现代码如下：

三、结束语

本文提出了基于Visual Basic开发的中学物理实验课件，实现了物理实验的数据化和智能化。实际的课件应用结果证明：在VB平台下开发的中学物理实验课件，具有界面简洁友好、课件体积小、可移植性强的优点。有效克服了物理实验中抽象、难以操作的不足，输入数据方便，显示结果准确，可以满足教师的课堂教学需要。

参考文献：

[1]人民教育出版社中学物理室.全日制普通高级中学教科书（必修）—物理[M].北京：人民教育出版社，2003.

[2]周灵.基于VB的多媒体物理教学软件开发研究[D].长沙.湖南师范大学，2001.

[3]杨忠宝，康顺哲.VB语言程序设计教程[M].北京：人民邮电出版社，2010.

[4]林世鑫.基于VB的函数图象描绘软件的设计与实现[J].中国教育信息化，2013（8）：72-73.

[5]谢步瀛，龚沛曾.Visual Basic计算机绘图实用技术[M].北京：电子工业出版社，2004.

篇5：VB实验报告 (2500字)

课程名称: 程序设计基础课程代码: 学院(直属系): 年级/专业/班: 学生姓名:学号: 实验总成绩: 任课教师: 开课学院: 实验中心名称: 西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

a)理解vb中对象的概念。b)理解事件驱动的基本概念。

c)熟悉vb编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。

d)掌握常用控件的创建方法以及如何用控件建立用户界面。e)掌握在属性窗口中设置对象属性的基本操作。掌握在代码窗口中编辑程序代码的基本操作。了解在代码中改变对象属性的基本方法

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

vb中对象的操作与应用。步骤：

1.建立界面和对象，更改各个对象的属性;2.编写程序代码，运行程序;3.调试程序，改程序，得正确程序。

3.3实验记录（核心代码及调试过程）

1、界面设计

2、程序代码设计

dim chname as string

chname = text1.text

label1.visible = false text1.move 360, 1440, 4500 text1.forecolor = vbblue text1.text = 这是 & chname & 的第一个vb程序!end sub end sub private sub form_load()showcls form1.fillcolor = vbred print print tab(3);欢迎使用 visual basic！end sub

3、运行/调试程序

4、保存工程

用相关命令在用户文件夹中保存窗体核工程文件，要求文件名分别是;firpro.frm,firpro.vbp

4、实验总结4.1实验结果分析及问题讨论

1若将form_load事件改成form_click事件过程，而其中的程序代码不变，运行程序后

窗体上的显示有什么不同？

答： form_click事件需单击窗体才能触发，而form_load事件由vb系统自动触发，如果改变，则需单击窗体才能显示结果。西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1.掌握窗体的常用属性、事件和方法。2．掌握是窗体的鼠标事件及触发顺序。

3、掌握颜色的表示方法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

通过对各个form事件的了解来进行编程。步骤：

1.先设计界面，进而代码编程； 2.运行程序，结果显示在界面上。3.3实验记录（核心代码及调试过程）。1．

界面设计

2．程序代码设计

private sub form_click()print 触发 form_click 事件 end sub private sub form_dblclick()print 触发 form_dblclick 事件 end sub private sub form_mousedown(button as integer, shift as integer, x as single, y as single)print 触发 form_mousedown 事件 end sub private sub form_mouseup(button as integer, shift as integer, x as single, y as single)print 触发 form_mouseup 事件 end sub 3．运行/调试程序

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

颜色的表示方法有几种？分别加以描述。

答：1.使用rgb函数

rgb函数可返回一个long整数，来表示一个rgb颜色值。其使用格式如下：rgb(red,green,blue)说明：red,green,blue 3种颜色是通过从0-255之间的一组亮度值组合来设定颜色。2.使用qbcolor函数

qbcolor函数可返回一个long值，用来表示所对应颜色值的rgb颜色码。3.适用系统定义的颜色常数

在vb系统中已经预先定义了常数可查表得起颜色值。4.使用颜色设置值

在十六进制数指定颜色的格式为：&hbbggrr.4.2实验总结心得体会答：操作时按键的不同会使结果出现差异，体现了不同事件的操作的不同。通过该实验让我比较清楚的了解了form的各个事件。

西华大学实验报告（理工类）开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1．掌握标签、文本框、命令按钮的常用属性、事件和方法。

2．掌握单选按钮和复选框、列表框和组合框的编程方法，尤其是单选按钮与框架的配合使用。3．掌握运用图片框和图像框加载图像的方法。4．掌握计时器和滚动条的编程方法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

对标签、文本框、滚动条、组合框等控件的应用。步骤： 1.界面设计，2.程序代码编程，3运行，调试，修改。3.3实验记录（核心代码及调试过程）1．界面设计

2．程序代码设计 private sub check1_click()if check1.value = 1 then text1.font.bold = true else text1.font.bold = false end if end sub private sub check2_click()text1.font.italic = not text1.font.italic end sub text1.text = 第一章 vb概述 & vbcrlf & 第二章程序设计基础 & vbcrlf & 第三章窗体及常用控件 & vbcrlf & 第四章结构化程序设计 & vbcrlf & 第五章数组end sub private sub hscroll1_change()text1.font.size = hscroll1.value end sub private sub option1_click()text1.font.name = option1.caption end subprivate sub option2_click()text1.font.name = option2.caption end sub 3．运行/调试程序

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

1、字体的选择可否使用复选框来实现？

答：不可以，字体只能呈现出一种字体，所以只能用单选按钮实现。4.2实验总结心得体会

程序中标点的运用能改变显示的结果，有时会导致不能运行，注意标点很重要。由于编程过程中标点应用不当使我走了很多冤枉路，下次记得标点的使用。西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1.熟悉vb的各种数据类型 2．掌握变量定义与赋值的方法。3．掌握各种运算符和表达式的使用。4．掌握常用内部函数的功能及其调用方法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

对ｖｂ各种数据的应用和内部函数的使用。步骤：

１.对界面进行设计，并改变对象的属性；２.编写程序代码；

３.运行程序，调试程序，完成程序。

3.3实验记录（核心代码及调试过程）

一、根据输入半径，计算圆的周长和面积。1．界面设计

界面设计如下图所示。

2．程序代码设计 option explicit dim r as single, s as single, area as single r = val(text1.text)s = 2 * pi * r area = pi * r ^ 2 text2.text = s text3.text = area end sub 3．运行/调试程序

程序开始的界面如下图所示。

输入半径后的界面如下图所示。

按“计算”按钮后，显示结果如下图所示。

4．保存工程

二、已知三角形三条边的边长为a、b、c。编写程序计算三角形面积：

面积=s(s?a)(s?b)(s?c)其中：s=（a+b+c）/2 1．

界面设计

界面设计如下图所示。

2．程序代码设计 option explicit private sub form_click()dim a as single, b as single, c as single dim area as single, s as single a = inputbox(请输入a:)b = inputbox(请输入b:)c = inputbox(请输入c:)s =(a + b + c)/ 2 area = sqr(s *(sb)*(si + 1)end if next i text1.text = result end sub 3运行/调试程序

当选择主对角线时，显示结果如下。

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

如果要计算该矩阵四周边线元素之和，主要代码该如何编写? 答：只需将矩阵规律代码做一些改变就行 result = result + a(1，j)and result = result + a(i,1)result=result+a(i,5)and result=result+a(5,j)end if andnext i text1.text = result 4.2实验总结心得体会

这次实验我还是觉得掌握的不好，以后多多努力！

二维数组和矩阵的应用是我的弱项，有时我不知道怎样寻找数据之间的那些规律，我有时很迷茫，vb真的要好好学呀！

西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1.掌握sub子过程的定义和调用方法。

2．掌握调用过程时参数传递的两种方式（传值与传址）。3．掌握变量、函数和过程的作用域。

4、掌握在数组中找最大（小）值的算法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

sub函数的应用，数组中最大最小值的求法等vb编程的应用。步骤： 1.建立界面和对象，更改各个对象的属性;2.编写程序代码，运行程序;3.调试程序，改程序，得正确程序。3.3实验记录（核心代码及调试过程）1．界面设计

2．程序代码设计

a = array(73, 23, 65, 45, 67, 89, 76)for i = 0 to 6 list1.additem a(i)next i call ss(a, x)text1 = x call tt(a, y)text2 = y end sub private sub ss(a as variant, x)x = a(0)for i = 1 to 6 if a(i)> x then x = a(i)end if next i end sub private sub tt(a as variant, y)y = a(0)for i = 1 to 6 if a(i)< y then y = a(i)end if next i end sub a = array(73, 23, 65, 45, 67, 89, 76)for i = 0 to 6 s = s + a(i)t = format(s / 7, 00.#####)text3 = t next i end sub 3．运行/调试程序

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

如何将平均值保留两位小数？

答：将令av=av/ubound(ar)改为av=0.01*int(100*av)/ubound(ar)即可实现。4.2实验总结心得体会

子函数的应用具有很重要的意义，它在很多方面都在使用，我们遇到要重视它，很多的复杂程序都能通过子函数使程序看起来清晰明白。

本次试验有些问题还没有彻底解决，我想我还要再努力才行。

西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1.掌握function子过程定义和调用方法。

2．掌握调用过程时参数传递的两种方式（传值与传址）。3．掌握变量、函数和过程的作用域。4.巩固素数的判断的算法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容

3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

function子过程的使用，素数的判断等vb的程序编写。步骤： 1.建立界面和对象，更改各个对象的属性;2.编写程序代码，运行程序;3.调试程序，改程序，得正确程序。3.3实验记录（核心代码及调试过程）1．界面设计

2．程序代码设计

x = val(inputbox(输入一个6—106间的偶数))loop while x < 6 or x > 106 or x mod 2 <> 0 for i = 2 to x 2 step 1 j = x-i if sushu(i)= 1 and sushu(j)= 1 then picture1.print i & +;j & =;x end if next i end sub private function sushu(n)as integer sushu = 1 k = int(sqr(n))for i = 2 to k if n mod i = 0 then sushu = 0 exit for end if next iend function 3．运行/调试程序

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

素数的判断可否使用sub子过程来实现？

答：素数的判断可以用sub的子程来实现。4.2实验总结心得体会

子过程可以用来检验许多的著名理论，这有利于我们更深入的学习与探索。由此可见vb作用非同一般呀!很有幸接触到它，让我又有进步。

西华大学实验报告（理工类）

开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1.掌握文件以及文件缓冲的概念。

2．掌握顺序文件的打开、关闭以及读写操作。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容

3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

文件的打开、关闭与读写操作等的ｖｂ操作。步骤：

１.对界面进行设计，并改变对象的属性；２.编写程序代码；

３.运行程序，调试程序，完成程序。3.3实验记录（核心代码及调试过程）1．界面设计

2．程序代码设计 private type st xm as string * 3 zy as string * 5 nl as integer end type option base 1 open app.path + h:试验student.txt for input as #1 no = 1 while not eof(1)no = no + 1 redim preserve stud(no)input #1, stud(no).xm, stud(no).zy, stud(no).nl wend close #1 open app.path + stud计算机应用 for output as #2 for i = 1 to ubound(stud)if stud(i).zy = 计算机应用 then write #2, stud(i).xm, stud(i).zy, stud(i).nl end if next i close #2 open app.path + stud22.txt for random as #3 len = len(stud(1))for i = 1 to ubound(stud)if stud(i).nl >= 22 then put #3, i, stud(i)end if next i close #3 end sub 3．运行/调试程序

4．保存工程

4、实验总结 4.1实验结果分析及问题讨论

如何查看“stud21.txt”和“stud22.txt”两个文件中的数据？

答：直接查看保存工程的文件夹就可以了。4.2实验总结心得体会

这个实验还存在问题，对文件操作还有很多的不足，在学习中还要多努力才行呀

西华大学实验报告（理工类）开课学院及实验室：交通与汽车工程学院计算机实验室实验时间：年月日

1、实验目的

1、掌握随机数的产生方法。

2、掌握循环语句的使用。

3、熟悉vb编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。

4、掌握常用控件的创建方法以及如何用控件建立用户界面。

5、掌握分支条件语句的使用。

6、掌握各种类型文件的打开、关闭以及读写操作。

7、掌握在代码中改变对象属性的基本方法。

2、实验设备、仪器及材料

操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.0

3、实验内容 3.1实验方案设计与选择（设计性、创新性实验需写该项内容）3.2实验原理及实验步骤（实验工作原理或实验的主要操作过程）

原理：

对vb各个知识点的综合运用，很有实践价值。步骤： 1.建立界面和对象，更改各个对象的属性;2.编写程序代码，运行程序;3.调试程序，改程序，得正确程序。

3.3实验记录（核心代码及调试过程）1．界面设计

2．程序代码设计

dim a(1 to 20)as integer dim i as integer, j as integer, t as integer a(i)= int(rnd * 21)+ 20 list1.additem a(i)next i end sub for i = 1 to 19 for j = i + 1 to 20 if a(i)> a(j)then t = a(i)a(i)= a(j)a(j)= t end if next j next i list1.clear for i = 1 to 20 list1.additem a(i)next i end sub open testout.txt for random as #1 for i = 1 to 20 put #1, , a(i)next i close #1 end end sub end sub 3．运行/调试程序

4．保存工程

4、实验总结

4.1实验结果分析及问题讨论

1.若“生成”按钮和“排序” 按钮交替有效，代码做如何修改？ 4.2实验总结心得体会

篇6：综合性实验报告书写

请同学们按照论文的格式书写综合性实验报告，共有四个实验——游离氨基酸、可溶性蛋白质、淀粉酶、同工酶。请大家理论结合实际，通过实验数据分析水稻种子萌发过程生化指标的改变。

摘要：简要介绍实验所用的材料和实验内容，实验的结果。

要求把论文的主要观点提示出来，便于读者一看就能掌握论文内容的要点。是文章主要内容的摘录，要求短、精、完整。200-300字，包含材料，方法，结果，结论。

关键词：材料的名称和测定的生理指标，都可作为关键词

关键词是从论文的题名、提要和正文中选取出来的，是对表述论文的中心内容有实质意义的词汇。如水稻种子、萌发等。

1、引言（以水稻种子和各生理指标为关键词，在校图书馆网页或百度网上分别查出有关文献，以说明本研究的意义，或把前人的实验结果引一下，最后，把要做的内容点一下。）引言又称前言、序言和导言，用在论文的开头。引言一般要概括地写出作者意图，说明选题的目的和意义, 并指出论文写作的范围。引言要短小精悍、紧扣主题。300字左右，主要介绍前人研究结果，本研究的目的意义。

2、材料与方法（同实验报告，方法部分包括方法的名称和简要的原理）

2.1试验材料介绍材料是什么，怎么培养的，如何取样

2.2试验方法（同实验报告，方法部分包括方法的名称和简要的原理）

2.2.1游离氨基酸含量测定：采用？？？？？？法【参考文献】

2.2.2 可溶性蛋白质含量测定：采用？？？？？？法【参考文献】

2.2.3淀粉酶活性测定：采用？？？？？？法【参考文献】

2.2.4过氧化物同工酶测定：采用？？？？法【参考文献】

3、结果与分析要对结果进行比较分析（分别列出四个实验的结果，不要计算过程！根据实验结果分别给出相应的结论。）

4、结论与讨论

先通过查找文献，阐述水稻种子萌发过程中的整体生理生化机制的变化，然后针对结果与他人研究结果比较、分析300-500字

（总的结论；

分析所获结论的可靠性如何；