vb综合性设计实验报告

第一篇：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课程，为以后的应用与实践打下坚实的基础。

第二篇：Vb设计实验报告

Vb设计实验报告

一、设计内容和目的

这次实验设计，我做的是学生信息管理系统，主要功能是提供学生信息保存和查询功能。

主要分为个窗口，其具体功能如下：

1、登录窗口：提供学生和管理员登录。

2、信息管理窗口：主操作窗口，可以进行重登陆、注销、退出、用户查询、管理员管理、系统信息的操作。包括一个下拉菜单和工具栏。

3、用户查询窗口：可以查询数据库中保存的学生信息。

4、管理员管理窗口：只有管理员可以进入，显示数据库中所有的学生信息，并且可以添加修改。

5、系统信息窗口：是系统的信息内容。

另外，根据网上的代码，我又制作了俄罗斯方块小游戏和画图工具。

二、设计过程：

1、实验构思：在系统设计之前，对实验内容和结构的构思占据了相当一部分时间。最终决定做一个“学生信息管理系统”，这样比较贴近自身情况，也有比较多的内容可以设计。

2、技术实现：在制作过程中主要使用了vb2005和数据库技术实现系统的设计、实现和运行。Photoshop等技术使程序的界面看起来更加友好。

3、运行调试：在系统制作中的运行调试过程中，出现了很多问题，比如各窗口之间的调用和访问，如何退出，控件的背景设置、字体颜色设置等，都需要经过一遍遍的调试发现、解决。

4、系统打包：在打包的时候，我按照老师给的方法一步步设置，可是由于粗心等原因，总是达不到满意的效果，直到第三次才真正成功。

三、系统结构：

如一所述，系统分为5个模块，各个模块之间可以自由访问。

四、实验结果： 该系统能够提供学生和管理员两种类型的登录，可以实现学生信息的查询、管理员对信息的修改，等。

五、设计心得：

在设计过程中，遇到了许多困难，比如：数据库无法连接、窗口无法正常访问、控件背景与窗体背景不协调等。后来通过查看课本和访问网络将这些问题解决了。

在这个过程中，我深深体会到大作业的用意：将所学理论知识用于实践。正是因为这样，许多理论上的知识才能真正得到理解。处理问题的过程，也就是学习的过程。背课本何其简单，真正的能力却是将课本运用到实践中去！

第三篇：综合性实验报告书写

综合性实验报告格式

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

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

要求把论文的主要观点提示出来，便于读者一看就能掌握论文内容的要点。是文章主要内容的摘录，要求短、精、完整。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字

（总的结论；

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

所得结论与文献中类似问题比较；

从植物生理学的角度，在理论上分析所得结论的可能原因或该生理指标在植物中的作用）

5、参考文献（引6篇左右。）一篇论文的参考文献是将论文在研究和写作中可参考或引证的主要文献资料，列于论文的末尾。格式如下：

（1）书（专著）

作者.书名[M].出版地: 出版社, 出版年.例：於新建.植物生理学实验手册[M].上海：上海科学技术

出版社，1985.（2）期刊

作者.题名[J].刊名, 出版年, 卷(期): 起止页码.例: 金显贺，王昌长，王忠东，等.一种用于在线检测局部放电的数字滤波技术[J].清华大学学报(自然科学版)，1993，33(4):62-67.

第四篇：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实验总结心得体会

通过这次实验让我收获很多，使自身动手能力有了很大提高，希望以能在这方面有更好的成绩。虽然遇到很多困难，但有进步就是最后的回报。

第五篇：VB第六章实验报告

第六章实习报告

第一部分：书上例题运行结果展示

例6-1求组合数Cnmn!的值，设m=6,n=10。

m!(nm)!

例6-2一个数组有10个整数元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调……，输出对调前后数组各元素的值。

例6-3编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。

例6-4分别用传地址方式和传值方式编写交换两个整数的过程并调用。

例6-5编写求一组整数平均值的过程，并在主程序中调用。

例6-6编写能获得一组整数的平均值、最大值和最小值的过程并调用。

例6-7求组合数Cnmn!的值，设m=6,n=10。

m!(nm)!

例6-8窗体级变量的作用范围示例

例6-9变量的作用范围综合示例。

例6-10编程对键盘上输入的任意个数排序。

例6-11判断一个整数是否是回文数。所谓回文数是这样的数，将这个数从左向右读和从右向左读值相等。如121就是回文数，345就不是回文数。

例6-12设计一个数值转换函数，能够将十进制整数转换成16进制以内的任意进制数。

例6-13利用递归调用计算n!

第二部分：课后习题

1． 自定义一个与VB内部函数Abs功能完全相同的函数过程MyAbs，要求函数过程中不能调用VB内部函数Abs。运行结果如下所示：

代码录入如下：

Private Sub Command1_Click()

Dim a!

a = InputBox(“请输入函数值”)

Print myabs(a)End Sub Function myabs!(ByVal x!)

If x >= 0 Then

x = x

Else

x =-x

End If myabs = x End Function 3．编写函数过程Gdc求两个数的最大公约数。调用此函数试求1260、198、72三个数的最大公约数。

运行结果如下所示：

代码录入如下：

Private Sub Command1_Click()

Dim x%, y%, z%

x = Val(InputBox(“输入第一个数x为：”))

y = Val(InputBox(“输入第二个数y为：”))

z = Val(InputBox(“输入第三个数z为：”))

z = gys(gys(x, y), z)

Print “三个数的最大公约数为：” & z End Sub Function gys%(ByVal m%, ByVal n%)

Dim r%

Do

r = m Mod n

If r = 0 Then

Exit Do

Else

m = n: n = r

End If

Loop gys = n End Function 7．编程输出10000～99999之间的全部回文式素数。运行结果如下：

代码录入如下：

Private Sub Command1_Click()

Dim i&, n&, x#

x = Timer

For i = 10000 To 99999

If hws(i)= True Then

If ss(i)= True Then

Print i;

n = n + 1

If n Mod 5 = 0 Then Print

End If

End If

Next i

Print

x = Timer1)Mod 5)* 6);dg(i);

Next i

Print

Print “第20个数是” & dg(20)End Sub Function dg#(ByVal m%)

If m >= 3 Then dg = dg(m2)

Else dg = 1

End If End Function 第三部分:简答题

1.Sub过程和Function过程的异同点是什么？

答：过程是一个具有某种功能的独立程序段，可供程序多次调用。对于一个具体问题，既可以使用Function过程，也可以使用Sub过程。但Sub过程与Function过程还是有区别的，Sub过程的过程名仅标识过程本身；Function过程的过程名除了标识过程本身以外，还有返回值的作用，因此，若过程有一个返回值时，则习惯使用Function过程，并通过函数名返回函数值；若过程不需要返回值或返回多个值时，则使用Sub过程；返回值通过实参与形参的结合带回，当然也可通过Function过程名带回一个结果，其余通过实参与形参的结合带回。

2.值传递与地址传递特点是什么？如何选择？

答：VB中形参与实参的结合有传值和传地址两种方式。数据传递按照地址方式传递。传值方式只能从调用程序向过程传入初值，但不能将结果传出；而地址传递即可传入又可传出。实现传值和传地址对形参和实参的要求。在定义过程时在形参前加ByVal关键字或过程调用时变量加圆括号，数据传递按照传值方式；如果在形参前加ByRef关键字或省略（默认）或实参是数组、自定义类型、对象变量等，参数传递只能是地址传递。

3.在VB中，形参若是数组，问在过程体内如何表示其数组的上、下界？

答：传地址是VB默认的参数传递方式。在这种方式下，实参传给形参的是存储地址，使得形参与实参共用同一存储单元，因此，在过程中对形参的任何操作实质都是对相应实参的操作。参数传递时，当实参为变量时，把实参的地址传递给形参，使实参与形参共享同一存储单元段；当实参为数组时，把实参数组的存储地址传递给形参数组，使实参数组与形参数组共享同一存储区域。

4.在Form1窗体通用声明部分声明的变量，可否在Form2窗体中的过程被访问？ 答：不可以。窗体（模块）级变量的作用域限制在声明它的窗体（模块）中，该窗体（模块）中的所有过程均可访问该变量，其它窗体（模块）则不能。

5.为了使某变量在所有的窗体中都能使用，应在何处声明该变量？ 答：public 6.在同一模块、不同过程中声明的相同变量名，两者是否表示一个变量？有没有联系？ 答：不表示。当变量名相同而作用域不同时，将优先访问作用域小的变量。

三．实习中遇到的问题 传值与传地址的区别及各种情况下的选择。

四．信心指数

★★★★