第一篇：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设计实验报告
Vb设计实验报告
一、设计内容和目的
这次实验设计，我做的是学生信息管理系统，主要功能是提供学生信息保存和查询功能。
主要分为个窗口，其具体功能如下：
1、登录窗口：提供学生和管理员登录。
2、信息管理窗口：主操作窗口，可以进行重登陆、注销、退出、用户查询、管理员管理、系统信息的操作。包括一个下拉菜单和工具栏。
3、用户查询窗口：可以查询数据库中保存的学生信息。
4、管理员管理窗口：只有管理员可以进入，显示数据库中所有的学生信息，并且可以添加修改。
5、系统信息窗口：是系统的信息内容。
另外，根据网上的代码，我又制作了俄罗斯方块小游戏和画图工具。
二、设计过程：
1、实验构思：在系统设计之前，对实验内容和结构的构思占据了相当一部分时间。最终决定做一个“学生信息管理系统”，这样比较贴近自身情况，也有比较多的内容可以设计。
2、技术实现：在制作过程中主要使用了vb2005和数据库技术实现系统的设计、实现和运行。Photoshop等技术使程序的界面看起来更加友好。
3、运行调试：在系统制作中的运行调试过程中，出现了很多问题，比如各窗口之间的调用和访问，如何退出，控件的背景设置、字体颜色设置等，都需要经过一遍遍的调试发现、解决。
4、系统打包：在打包的时候，我按照老师给的方法一步步设置，可是由于粗心等原因，总是达不到满意的效果，直到第三次才真正成功。
三、系统结构：
如一所述，系统分为5个模块，各个模块之间可以自由访问。
四、实验结果： 该系统能够提供学生和管理员两种类型的登录，可以实现学生信息的查询、管理员对信息的修改，等。
五、设计心得：
在设计过程中，遇到了许多困难，比如：数据库无法连接、窗口无法正常访问、控件背景与窗体背景不协调等。后来通过查看课本和访问网络将这些问题解决了。
在这个过程中，我深深体会到大作业的用意：将所学理论知识用于实践。正是因为这样，许多理论上的知识才能真正得到理解。处理问题的过程，也就是学习的过程。背课本何其简单，真正的能力却是将课本运用到实践中去！
第三篇：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第六章实验报告
第六章实习报告
第一部分：书上例题运行结果展示
例6-1求组合数Cnmn!的值，设m=6,n=10。
m!(nm)!
例6-2一个数组有10个整数元素，将第一个元素与最后一个元素对调，第二个与倒数第二个对调……，输出对调前后数组各元素的值。
例6-3编写求两个整数的最大公约数过程，在主程序中调用该过程求两个数的最大公约数，并根据最大公约数求最小公倍数。
例6-4分别用传地址方式和传值方式编写交换两个整数的过程并调用。
例6-5编写求一组整数平均值的过程，并在主程序中调用。
例6-6编写能获得一组整数的平均值、最大值和最小值的过程并调用。
例6-7求组合数Cnmn!的值，设m=6,n=10。
m!(nm)!
例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
x = Timer1)Mod 5)* 6);dg(i);
Next i
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.在同一模块、不同过程中声明的相同变量名，两者是否表示一个变量？有没有联系？ 答：不表示。当变量名相同而作用域不同时，将优先访问作用域小的变量。
三．实习中遇到的问题 传值与传地址的区别及各种情况下的选择。
四．信心指数
★★★★
第五篇：VB实验报告教案(4-7)
实验四：
题目：Visual Basic常用控件
目的：
1、掌握命令按钮、单选钮、检查框、框架常用属性与事件
2、掌握滚动条、列表框、组合框、时钟的常用属性与事件 日期：1班为10月18日，2班为10月14日,3班为10月16日 内容：要求界面用铅笔画出来。
Private Sub Command1_Click()
List1.AddItem Text1
If Option1 Then
List1.AddItem “男”
Else
List1.AddItem “女”
End If
List1.AddItem Text2
List1.AddItem Combo1
List1.AddItem Combo2
List1.AddItem “爱好：”
If Check1 Then
List1.AddItem “上网”
End If
If Check2 Then
List1.AddItem “篮球”
End If
If Check3 Then
List1.AddItem “音乐”
End If
If Check4 Then
List1.AddItem “交友”
End If End Sub Private Sub Command2_Click()
List1.Clear End Sub
Private Sub Command3_Click()
End End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If End Sub
Private Sub Form_Load()
Form1.Caption = “电子钟”
Form1.BorderStyle = 3
Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 1000
Timer2.Interval = 1000
Label1.Caption = Time()
'显示系统时间
Label1.Alignment = 2
Label1.BorderStyle = 1
Label2.Caption = “闹钟时间:”
Text1.Text = “" End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'按下回车开始闹钟
If KeyAscii = 13 Then
Timer2.Enabled = True
Text1.Enabled = False
End If End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time()
'显示系统时间 End Sub
Private Sub Timer2_Timer()
Static i As Int ger
If Label1.Caption >= Text1.Text Then
'利用静态变量产生背景交替效果
If i = 0 Then
Label1.BackColor = vbRed
i = 1
Else
Label1.BackColor = vbWhite
i = 0
End If
End If End Sub 实验五：
题目：对话框、菜单、工具栏和图形程序设计
目的：
1、掌握菜单的设计方法；学会应用通用对话框控件
2、掌握在Visual Basic环境中的绘图方法，显示图片
3、对话框、菜单、工具栏和图形程序设计的综合应用 日期：1班为11月3日，2班为11月4日，2班为11月6日 内容：要求界面用铅笔画出来。
' 打开菜单项的单击事件过程 Private Sub mnuOpen_Click()
' 激活对话框前初始化设置相关属性，激活对话框后将无法在代码中设置其属性
CommonDialog1.FileName = ”*.txt“
' 初始化文件名
CommonDialog1.InitDir = ”C:“
' 初始化路径
' 设置文件类型列表框内容
CommonDialog1.Filter = ”Word文档|*.doc|文本文件|*.txt|所有文件|*.*“
CommonDialog1.FilterIndex = 2
' 设置默认文件类型
CommonDialog1.Action = 1
' 激活”打开“对话框
txtNotepad.Text = ”“
' 清除文本框中原有内容
If CommonDialog1.FileTitle <> ”“ Then
' 选定文件后执行下列操作
Dim InputData As String
' 保存文件中每行内容
Open CommonDialog1.FileName For Input As #1
' 打开文件，准备读文件
Do While Not EOF(1)
Line Input #1, InputData
' 每次读一行
' 将读出内容连接在文本框已有文本之后并回车换行
txtNotepad.Text = txtNotepad.Text + InputData + vbCrLf
Loop
Close #1
End If End Sub ' ”另存为“菜单项的单击事件过程 Private Sub mnuSaveAs_Click()
CommonDialog1.FileName = ”文本1.txt“
' 设置缺省文件名
CommonDialog1.DefaultExt = ”txt“
' 设置缺省扩展名
CommonDialog1.InitDir = ”C:“
CommonDialog1.Filter = ”Word文档|*.doc|文本文件|*.txt|所有文件|*.*“
CommonDialog1.FilterIndex = 2
CommonDialog1.CancelError = True
' 选取”取消“按钮时出错
On Error GoTo errCancel
' 出错跳转至行标签errCancel
CommonDialog1.ShowSave
' 激活”另存为“对话框
Open CommonDialog1.FileName For Output As #1
' 打开文件，准备写入
Print #1, txtNotepad.Text
Close #1 errCancel:
' 行标签 End Sub ' 退出菜单项的单击事件过程 Private Sub mnuExit_Click()
End End Sub ' 以下过程用于判断是否已经选中文本
Private Sub txtNotepad_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 And txtNotepad.SelText <> ”“ Then
' 松开左键并选中文本
mnuCopy.Enabled = True
' 使”复制“菜单项有效
mnuCut.Enabled = True
' 使”剪切“菜单项有效
Else
' 未选中文本
mnuCopy.Enabled = False
mnuCut.Enabled = False
End If End Sub Private Sub mnuCopy_Click()
' ”复制“菜单项的单击事件过程
Clipboard.Clear
' 清除剪贴板中的内容
Clipboard.SetText txtNotepad.SelText
' 将选中的文本放到剪贴板中
mnuCopy.Enabled = False
mnuCut.Enabled = False
mnuPaste.Enabled = True End Sub Private Sub mnuCut_Click()
' ”剪切“菜单项的单击事件过程
Clipboard.Clear
Clipboard.SetText txtNotepad.SelText
txtNotepad.SelText = ”“
' 删除选中的文本
mnuCopy.Enabled = False
mnuCut.Enabled = False
mnuPaste.Enabled = True End Sub Private Sub mnuPaste_Click()' 将剪贴板中的文本插入到文本框焦点处，txtNotepad.SelText = Clipboard.GetText End Sub
' 或替换选中的文本
'设置对齐方式
Private Sub Alm_Click(Index As Integer)
txtNotepad.Alignment = Index End Sub
Private Sub font_Click()
CommonDialog1.FontName = ”宋体“
'Flags为256+1，使用屏幕字体；出现颜色、效果等选项
CommonDialog1.Flags = 257
CommonDialog1.ShowFont
'打开”字体“对话框
txtNotepad.FontName = CommonDialog1.FontName
txtNotepad.FontSize = CommonDialog1.FontSize
txtNotepad.FontBold = CommonDialog1.FontBold
txtNotepad.FontItalic = CommonDialog1.FontItalic
txtNotepad.FontUnderline = CommonDialog1.FontUnderline
txtNotepad.FontStrikethru = CommonDialog1.FontStrikethru
txtNotepad.ForeColor = CommonDialog1.Color End Sub Private Sub Exxxt_Click()
End End Sub 实验六：
题目：文件处理
目的：
1、掌握顺序文件、随机文件的操作与访问
2、掌握文件系统控件的属性与常用操作
日期：1班为11月17日，2班为11月18日,3班为11月20日 内容：要求界面用铅笔画出来。
标准模块代码： Type Student Id As String * 8 Name As String * 10 Class As String * 10 Subject As String * 20 Mark(1 To 3)As Integer End Type Public Stu As Student Public Filename As String Public Rec_no As Integer Public Rec_total As Integer Public Rec_long As Integer 窗体代码： Option Explicit Option Base 1 Private Sub Form_Load()
' Load事件过程
Filename = App.Path & ”student.dat“
' 给定文件名便于操作
Rec_long = Len(Stu)
' 给定随机文件记录长度
Call FileOpen End Sub
Private Sub FileOpen()'打开学生信息数据文件
Dim I As Integer
Open Filename For Random As 1 Len = Rec_long
Rec_long = Len(Stu)
' 给定随机文件记录长度
Rec_total = LOF(1)/ Rec_long
'初始找开的为全部记录
'如为空记录,则清除各文本框的内容
If Rec_total = 0 Then
Call TxtClear
Exit Sub
Else
'如果有学生信息数据,则显示第一条记录
Rec_no = 1
Call Display
End If End Sub
Private Sub CmdAdd_Click()
' 添加记录事件过程
Dim I As Integer, nmsg As Integer
'以下循环是查找文件中是否有输入的学生记录
For I = 1 To Rec_total
Get #1, I, Stu
If Trim(Stu.Id)= Trim(TxtId.Text)Then
nmsg = MsgBox(”文件中已有该同学的记录,要显示修改此记录吗？“, vbYesNo)
If nmsg = vbYes Then
Rec_no = I
Call Display
End If
Exit Sub
End If
Next I
Call GetData
Rec_total = Rec_total + 1
Rec_no = Rec_total
' 在文件的末尾添加记录
Put #1, Rec_no, Stu End Sub
Private Sub CmdChange_Click()
' 修改当前记录事件过程
Call GetData
' 将修改的数据保存到记录变量中
Put #1, Rec_no, Stu
' 修改原记录
Call Display End Sub
Private Sub cmdDelete_Click()
' 删除当前记录事件过程
Dim I As Integer
Dim tempno As Integer
tempno = Rec_no
Open Filename & ”.temp“ For Random As #2 Len = Rec_long
'删除选定的记录
For I = 1 To Rec_total
If I <> tempno Then
Get #1, I, Stu
Put #2, , Stu
End If
Next I
Close
Kill Filename
Name Filename & ”.temp“ As Filename
Call FileOpen End Sub
Private Sub cmdBefore_Click()' 显示上一条记录事件过程
If Rec_no > 1 Then
Rec_no = Rec_no-1
Else
MsgBox ”现已是首记录！“
Exit Sub
End If
Get #1, Rec_no, Stu
Call Display End Sub
Private Sub cmdNext_Click()
' 显示下一记录事件过程
Dim nmsg As Integer
If Rec_no < Rec_total Then
' 未到打开记录尾时执行该程序
Rec_no = Rec_no + 1
Call Display
' 显示当前记录
Else
nmsg = MsgBox(”已到最后一记录了！要回到首记录吗？“, vbYesNo)
If nmsg = vbYes Then
Rec_no = 1
'回到首记录
Call Display
End If
End If End Sub
Private Sub TxtClear()
'清除各文本框中内容子过程 Dim I As Integer With Stu
TxtId = ”“:
TxtName = ”“
TxtClass = ”“:
TxtSubject = ”“
For I = 1 To 3
TxtMark(I)= ”“
Next I
TxtTotal = ”“ End With End Sub Private Sub Display()
'显示当前记录子过程 Dim I As Integer Get #1, Rec_no, Stu With Stu
TxtId =.Id
TxtName =.Name
TxtClass =.Class
TxtSubject =.Subject
For I = 1 To 3
TxtMark(I)=.Mark(I)
Next I
TxtTotal =.Mark(1)+.Mark(2)+.Mark(3)End With End Sub
Private Sub GetData()
'将在文本框输入的数据存入到记录变量中
Dim I As Integer
Stu.Id = TxtId.Text
Stu.Name = TxtName.Text
Stu.Class = TxtClass.Text
Stu.Subject = TxtSubject.Text
For I = 1 To 3
Stu.Mark(I)= Val(TxtMark(I).Text)
Next I End Sub Private Sub TxtMark_LostFocus(Index As Integer)
If Index = 3 Then '当输入完最后一门课程,则计算并显示意成绩
TxtTotal = Val(TxtMark(1))+ Val(TxtMark(2))+ Val(TxtMark(3))
End If End Sub 实验七：
题目：数据库程序设计及综合实例
目的：
1、掌握数据库的创建；掌握数据控件的一般属性、事件、方法
2、学会使用DATA控件和ADO控件对数据库进行访问 日期：1班为12月1日，2班为12月2日,3班为12月4日 内容：要求界面用铅笔画出来。
'”取消“ 按钮的单击事件过程 Private Sub cmdCancel_Click()
txtID(0).Text = ”“
txtID(1).Text = ”“ End Sub '”确定“ 按钮的单击事件过程 Private Sub cmdOK_Click()
Dim sql As String, fld As String, condition As String
'显示的字段列表
fld = ”学生.学号,学生.姓名,课程.课程名,成绩.成绩“
'查询条件
condition = ”学生.学号=成绩.学号 and 课程.课程号=成绩.课程号 “
If optChoice(0).Value Then
condition = condition + ”and 学生.学号='“ + txtID(0).Text + ”'“
Else
condition = condition + ”and 课程.课程号='“ + txtID(1).Text + ”'“
End If
sql = ”select “ + fld + ” from 学生,课程,成绩 where “ + condition
'改变记录源
Adodc1.RecordSource = sql
Adodc1.Refresh End Sub '初始化查询窗体
Private Sub Form_Load()
Adodc1.Visible = False
Set DataGrid1.DataSource = Adodc1
'绑定操作
DataGrid1.AllowUpdate = False
'禁止更新 End Sub
'处理单选按钮的焦点切换
Private Sub optChoice_Click(Index As Integer)
txtID(Index).SetFocus End Sub '处理文本框的焦点切换
Private Sub txtID_GotFocus(Index As Integer)
optChoice(Index).Value = True End Sub
'”添加“按钮的单击事件过程 Private Sub cmdAdd_Click()
'根据当前按钮的标题进行不同的操作
Select Case cmdAdd.Caption
Case ”添加“
'向当前选项卡所对应表中添加记录
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.AddNew
Case 1
datCourse.Recordset.AddNew
Case 2
datScore.Recordset.AddNew
End Select
'在添加操作完成前禁止进行其他操作
SSTab1.TabEnabled(0)= False
SSTab1.TabEnabled(1)= False
SSTab1.TabEnabled(2)= False
cmdAdd.Caption = ”确定“
cmdEdit.Enabled = False
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
Case ”确定“
Select Case SSTab1.Tab
Case 0
datStudent.UpdateRecord
Case 1
datCourse.UpdateRecord
Case 2
datScore.UpdateRecord
End Select
SSTab1.TabEnabled(0)= True
SSTab1.TabEnabled(1)= True
SSTab1.TabEnabled(2)= True
cmdAdd.Caption = ”添加“
cmdEdit.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
End Select End Sub '”删除“按钮的单击事件过程 Private Sub cmdDel_Click()
Dim i As Integer
i = MsgBox(”确定要删除此记录?“, vbYesNo + vbExclamation + vbDefaultButton1, ”编辑“)
If i = vbYes Then
'删除当前选项卡所对应表中的记录
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.Delete
datStudent.Refresh
Case 1
datCourse.Recordset.Delete
datCourse.Refresh
Case 2
datScore.Recordset.Delete
datScore.Refresh
End Select
End If End Sub '”修改“按钮的单击事件过程 Private Sub cmdEdit_Click()
'根据当前按钮的标题进行不同的操作
Select Case cmdEdit.Caption
Case ”修改“
'修改当前选项卡所对应表中的记录
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.Edit
Case 1
datCourse.Recordset.Edit
Case 2
datScore.Recordset.Edit
End Select
'在修改操作完成前禁止进行其他操作
SSTab1.TabEnabled(0)= False
SSTab1.TabEnabled(1)= False
SSTab1.TabEnabled(2)= False
cmdEdit.Caption = ”确定“
cmdAdd.Enabled = False
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = False
cmdLast.Enabled = False
Case ”确定“
Select Case SSTab1.Tab
Case 0
datStudent.UpdateRecord
Case 1
datCourse.UpdateRecord
Case 2
datScore.UpdateRecord
End Select
SSTab1.TabEnabled(0)= True
SSTab1.TabEnabled(1)= True
SSTab1.TabEnabled(2)= True
cmdEdit.Caption = ”修改“
cmdAdd.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = True
cmdLast.Enabled = True
End Select End Sub '”首记录“按钮的单击事件过程 Private Sub cmdFirst_Click()
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.MoveFirst
Case 1
datCourse.Recordset.MoveFirst
Case 2
datScore.Recordset.MoveFirst
End Select
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = True
cmdLast.Enabled = True End Sub '”尾记录“按钮的单击事件过程 Private Sub cmdLast_Click()
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.MoveLast
Case 1
datCourse.Recordset.MoveLast
Case 2
datScore.Recordset.MoveLast
End Select
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = False
cmdLast.Enabled = False End Sub '”下一条“按钮的单击事件过程 Private Sub cmdNext_Click()
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.MoveNext
If datStudent.Recordset.EOF Then
datStudent.Recordset.MoveLast
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
Case 1
datCourse.Recordset.MoveNext
If datCourse.Recordset.EOF Then
datCourse.Recordset.MoveLast
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
Case 2
datScore.Recordset.MoveNext
If datScore.Recordset.EOF Then
datScore.Recordset.MoveLast
cmdFirst.Enabled = True
cmdPrev.Enabled = True
cmdNext.Enabled = False
cmdLast.Enabled = False
End If
End Select End Sub '”上一条“按钮的单击事件过程 Private Sub cmdPrev_Click()
Select Case SSTab1.Tab
Case 0
datStudent.Recordset.MovePrevious
If datStudent.Recordset.BOF Then
datStudent.Recordset.MoveFirst
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = True
cmdLast.Enabled = True
End If
Case 1
datCourse.Recordset.MovePrevious
If datCourse.Recordset.BOF Then
datCourse.Recordset.MoveFirst
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = True
cmdLast.Enabled = True
End If
Case 2
datScore.Recordset.MovePrevious
If datScore.Recordset.BOF Then
datScore.Recordset.MoveFirst
cmdFirst.Enabled = False
cmdPrev.Enabled = False
cmdNext.Enabled = True
cmdLast.Enabled = True
End If
End Select End Sub '初始化编辑窗体
Private Sub Form_Load()
datStudent.Visible = False
'连接数据库
If Right(App.Path, 1)= ”“ Then
datStudent.DatabaseName = App.Path + ”mydb.mdb“
Else
datStudent.DatabaseName = App.Path + ”mydb.mdb“
End If
'设置记录源
datStudent.RecordSource = ”学生“
datStudent.Refresh
'绑定控件
txtSID.DataField = ”学号“
txtSName.DataField = ”姓名“
optMale.Value = datStudent.Recordset.Fields(”性别“).Value
datCourse.Visible = False
datCourse.DatabaseName = datStudent.DatabaseName
datCourse.RecordSource = ”课程“
datCourse.Refresh
txtCID.DataField = ”课程号“
txtCName.DataField = ”课程名“
txtPeriod.DataField = ”学时“
txtCredit.DataField = ”学分“
datScore.Visible = False
datScore.DatabaseName = datStudent.DatabaseName
datScore.RecordSource = ”成绩“
datScore.Refresh
txtSSID.DataField = ”学号“
txtSCID.DataField = ”课程号“
txtScore.DataField = ”成绩“
SSTab1.Tab = 0 '设置当前选项卡为”学生"选项卡 End Sub
点击咨询 