VB实验报告 (2500字)_vb实验报告答案新
VB实验报告 (2500字)由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb实验报告答案新”。
交通与汽车工程学院 实 验 报 告
课 程 名 称: 程序设计基础 课 程 代 码: 学院(直属系): 年级/专业/班: 学 生 姓 名:学 号: 实验总成绩: 任 课 教 师: 开 课 学 院: 实验中心名称: 西华大学实验报告（理工类）
开课学院及实验室：交通与汽车工程学院计算机实验室 实验时间： 年 月 日
1、实验目的 a)理解vb中对象的概念。b)理解事件驱动的基本概念。
c)熟悉vb编程的基本步骤：界面设计、属性设置、编写代码、运行、调试、保存文件。
d)掌握常用控件的创建方法以及如何用控件建立用户界面。e)掌握在属性窗口中设置对象属性的基本操作。掌握在代码窗口中编辑程序代码的基本操作。了解在代码中改变对象属性的基本方法
2、实验设备、仪器及材料
操作系统：windows98/2000/2003/xp 编程工具：visual basic 6.03、实验内容 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 sub3、运行/调试程序
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.03、实验内容 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.03、实验内容 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.03、实验内容 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.03、实验内容 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(a, x)text1 = x call tt(a, y)text2 = y end sub private sub(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)
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 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.03、实验内容 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实验总结心得体会
通过这次实验让我收获很多，使自身动手能力有了很大提高，希望以能在这方面有更好的成绩。虽然遇到很多困难，但有进步就是最后的回报。
