VB实验报告 2500字.docx
- 文档编号:28172821
- 上传时间:2023-07-09
- 格式:DOCX
- 页数:24
- 大小:23.09KB
VB实验报告 2500字.docx
《VB实验报告 2500字.docx》由会员分享,可在线阅读,更多相关《VB实验报告 2500字.docx(24页珍藏版)》请在冰豆网上搜索。
VB实验报告2500字
交通与汽车工程学院实验报告
课程名称:
程序设计基础课程代码:
学院(直属系):
年级/专业/班:
学生姓名:
学号:
实验总成绩:
任课教师:
开课学院:
实验中心名称:
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
a)理解vb中对象的概念。
b)理解事件驱动的基本概念。
c)熟悉vb编程的基本步骤:
界面设计、属性设置、编写代码、运行、调试、
保存文件。
d)掌握常用控件的创建方法以及如何用控件建立用户界面。
e)掌握在属性窗口中设置对象属性的基本操作。
掌握在代码窗口中编辑程序代码的基本操作。
了解在代码中改变对象属性的基本方法
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
vb中对象的操作与应用。
步骤:
1.建立界面和对象,更改各个对象的属性;2.编写程序代码,运行程序;3.调试程序,改程序,得正确程序。
3.3实验记录(核心代码及调试过程)
1、界面设计
2、程序代码设计
dimchnameasstringchname=text1.textlabel1.visible=falsetext1.move360,1440,4500text1.forecolor=vbblue
text1.text=这是&chname&的第一个vb程序!
endsub
endsub
privatesubform_load()showcls
form1.fillcolor=vbredprint
printtab(3);欢迎使用visualbasic!
!
endsub3、运行/调试程序
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编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
通过对各个form事件的了解来进行编程。
步骤:
1.先设计界面,进而代码编程;2.运行程序,结果显示在界面上。
3.3实验记录(核心代码及调试过程)。
1.
界面设计
2.
程序代码设计
privatesubform_click()
print触发form_click事件endsub
privatesubform_dblclick()print触发form_dblclick事件endsub
privatesubform_mousedown(buttonasinteger,shiftasinteger,xassingle,yassingle)print触发form_mousedown事件endsub
privatesubform_mouseup(buttonasinteger,shiftasinteger,xassingle,yassingle)
print触发form_mouseup事件endsub
3.运行/调试程序
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
颜色的表示方法有几种?
分别加以描述。
答:
1.使用rgb函数
rgb函数可返回一个long整数,来表示一个rgb颜色值。
其使用格式如下:
rgb(red,green,blue)
说明:
red,green,blue3种颜色是通过从0-255之间的一组亮度值组合来设定颜色。
2.使用qbcolor函数
qbcolor函数可返回一个long值,用来表示所对应颜色值的rgb颜色码。
3.适用系统定义的颜色常数
在vb系统中已经预先定义了常数可查表得起颜色值。
4.使用颜色设置值
在十六进制数指定颜色的格式为:
&hbbggrr.
4.2实验总结心得体会
答:
操作时按键的不同会使结果出现差异,体现了不同事件的操作的不同。
通过该实验让我比较清楚的了解了form的各个事件。
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.掌握标签、文本框、命令按钮的常用属性、事件和方法。
2.掌握单选按钮和复选框、列表框和组合框的编程方法,尤其是单选按钮与框架的配合使用。
3.掌握运用图片框和图像框加载图像的方法。
4.掌握计时器和滚动条的编程方法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
对标签、文本框、滚动条、组合框等控件的应用。
步骤:
1.界面设计,2.程序代码编程,3运行,调试,修改。
3.3实验记录(核心代码及调试过程)
1.界面设计
2.程序代码设计
privatesubcheck1_click()ifcheck1.value=1thentext1.font.bold=trueelse
text1.font.bold=falseendifendsub
privatesubcheck2_click()
text1.font.italic=nottext1.font.italicendsub
text1.text=第一章vb概述&vbcrlf&第二章程序设计基础&vbcrlf&第三章窗体及常用控件&vbcrlf&第四章结构化程序设计&vbcrlf&第五章数组endsub
privatesubhscroll1_change()
text1.font.size=hscroll1.valueendsub
privatesuboption1_click()
text1.font.name=option1.captionendsubprivatesuboption2_click()
text1.font.name=option2.captionendsub
3.运行/调试程序
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
1、字体的选择可否使用复选框来实现?
答:
不可以,字体只能呈现出一种字体,所以只能用单选按钮实现。
4.2实验总结心得体会
程序中标点的运用能改变显示的结果,有时会导致不能运行,注意标点很重要。
由于编程过程中标点应用不当使我走了很多冤枉路,下次记得标点的使用。
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.熟悉vb的各种数据类型2.掌握变量定义与赋值的方法。
3.掌握各种运算符和表达式的使用。
4.掌握常用内部函数的功能及其调用方法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
对vb各种数据的应用和内部函数的使用。
步骤:
1.对界面进行设计,并改变对象的属性;2.编写程序代码;
3.运行程序,调试程序,完成程序。
3.3实验记录(核心代码及调试过程)一、根据输入半径,计算圆的周长和面积。
1.界面设计
界面设计如下图所示。
2.程序代码设计optionexplicit
dimrassingle,sassingle,areaassingler=val(text1.text)s=2*pi*rarea=pi*r^2text2.text=stext3.text=areaendsub
3.运行/调试程序
程序开始的界面如下图所示。
输入半径后的界面如下图所示。
按"计算"按钮后,显示结果如下图所示。
4.保存工程
二、已知三角形三条边的边长为a、b、c。
编写程序计算三角形面积:
面积=s(s?
a)(s?
b)(s?
c)其中:
s=(a+b+c)/21.
界面设计
界面设计如下图所示。
2.程序代码设计optionexplicit
privatesubform_click()
dimaassingle,bassingle,cassingledimareaassingle,sassinglea=inputbox(请输入a:
)b=inputbox(请输入b:
)c=inputbox(请输入c:
)s=(a+b+c)/2
area=sqr(s*(s-a)*(s-b)*(s-c))printa=;a,b=;b,c=;c,面积;areaendsub
3.运行/调试程序
程序开始的界面如下图所示。
输入a后的程序界面如下图所示。
按"确定"按钮后,再输入b值后的界面,如下图所示。
按"确定"按钮后,再输入c值后的界面,如下图所示。
按"确定"按钮后,得结果,如下图所示。
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
输入三边时用文本框作为输入时该如何操作?
答:
text1="a":
text2="b:
text3="c"
4.2实验总结心得体会
实验中的数据运用让我学会了很多,数据运用在现实中具有广泛应用。
实验中有很多问题需要解决,以后还有努力呀!
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年
月日
1、实验目的
1.熟练掌握单分支程序设计的原理和实现方法。
2.熟练掌握双分支程序设计的原理和实现方法。
3.掌握输入框函数即()的使用方法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
单分支程序的运用,输入框函数的使用。
步骤:
1.分析所求函数的运算规律;2.对界面进行设计,编写程序代码;3.运行程序,调试程序;
4.修改程序,得所求应用程序。
3.3实验记录(核心代码及调试过程)
一、用输入框输入一个数,如果是大于100则在窗体上显示该数据。
1.
界面设计界面设计如下图所示。
2.程序代码设计
x=val(inputbox(请你输入任意一个数:
))ifx>100thenform1.printxendifendsub2.
运行/调试程序
程序开始的界面如下图所示。
当输入值小于100时,产生结果显示如下所示。
当输入值大于100时,产生结果显示如下所示。
4.保存工程二、判断数的奇偶性。
1.界面设计界面设计如下图所示。
2.程序代码设计
text2.text=是奇数endifendsub
3.
运行/调试程序
程序开始的界面如下图所示。
当输入为奇数时,产生结果显示如下。
当输入为偶数时,产生结果显示如下。
4.保存工程4、实验总结
4.1实验结果分析及问题讨论
inputbox()的返回值和文本框(如text1)中text属性值是何种数据类型?
答:
inputbox()返回值是字符型,text也是字符型。
4.2实验总结心得体会
奇偶数的判断与输入框的应用有时会给我们带来极大的用处,要注意其使用。
实验结果还算顺利,程序代码也比较简单,实验起来还很简单。
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.巩固奇数和偶数的判断算法程序。
2.熟练掌握循环结构程序设计的原理和实现方法。
3.巩固累加的算法。
4.熟练掌握素数的判断方法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
奇偶数的判断、累加的vb编程、素数的判断。
步骤:
1.建立界面和对象,更改各个对象的属性;2.编写程序代码,运行程序;3.调试程序,改程序,得正确程序。
3.3实验记录(核心代码及调试过程)
一、编写程序,计算100以内偶数的累加和,计算任意正整数n的阶乘。
1.界面设计
界面设计如下图所示。
2.程序代码设计
n=val(text2.text)fori=1tont=t*inextitext3.text=tendsub
privatesubform_load()
dimnasinteger,sumasintegersum=0
forn=1to100ifnmod2=0thensum=sum+nendifnextn
text1.text=sumendsub
3.运行/调试程序
程序开始的界面如下图所示。
输入想要阶乘的数,则界面显示如下图所示。
按"阶乘"按钮,得结果,如下图所示。
4.保存工程
二、找出1000以内20个最大的素数,并计算其累加和。
1.界面设计
界面设计如下图所示。
2.程序代码设计
optionexplicit
dimiasinteger,jasinteger,kasinteger,countasinteger,sumasinteger
count=0sum=0
fori=1000to1step-1k=sqr(i)
forj=2tok
ifimodj=0thenexitfornextjifj>kthenlist1.additemisum=sum+icount=count+1
ifcount>=20thenexitforendifnexti
text1.text=sumendsub
3.运行/调试程序
程序开始的界面如下图所示。
按"开始"按钮所得结果如下图所示。
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
连乘时如果输入整数大于12会产生什么结果?
为什么?
答:
系统会报错"溢出",因为"s"为长整形最大数为2147483647.。
4.2实验总结心得体会
实验虽然还不是十分的完善,但还是比较令我满意,这让我还比较有自
信去面对以后的电脑学习。
有进步就很好,我相信我会做得更好的。
31
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.掌握一维数组的定义和引用方法。
2.掌握排序算法等相关算法。
3.巩固用列表框输出数据的方法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
一位数组的应用、排序算法等的vb编程应用等知识的实践操作。
步骤:
1.对界面进行设计,并改变对象的属性;2.编写程序代码;
3.运行程序,调试程序,完成程序。
3.3实验记录(核心代码及调试过程)
1.界面设计
32
2.程序代码设计optionexplicit
dimmasinteger,countasinteger,kasintegerdimiasinteger,jasinteger,tempasintegerdima(10)asintegerrandomizecount=0
dowhilecount<10m=int(rnd*61)+30k=sqr(m)fori=2tok
ifmmodi=0thenexitfornextiifi>kthencount=count+1a(count)=m
33endifloop
fori=1to9forj=i+1to10ifa(i)>a(j)thentemp=a(i)a(i)=a(j)a(j)=tempendifnextjnexti
fori=1to10list1.additema(i)nextiendsub
3.运行/调试程序
34
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
如何用文本框显示(输出)数组中的全部数据?
答:
fori=1to10
text1=text1+a(i)
nexti
4.2实验总结心得体会
实验给我带来很多惊喜,我越来越喜欢了,有那么有点成就感,幸福呀!
一维数组和列表框输出数据的方法让我在数组的应用方面有了更进一步的了解,它可以把我们遇到的很多问题都解决,我们不可小瞧它呀!
35
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.掌握二维数组的定义和引用方法。
2.掌握矩阵的输出和操作方法。
3.掌握主对角线和副对角线上元素的位置特征。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp
编程工具:
visualbasic6.0
3、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
原理:
矩阵的vb操作,主对角线以及副对角线的vb编程。
步骤:
1.建立界面和对象,更改各个对象的属性;2.编写程序代码,运行程序;3.调试程序,改程序,得正确程序。
3.3实验记录(核心代码及调试过程)。
1.界面设计
2.程序代码设计optionexplicitoptionbase1
dima(5,5)asinteger,resultasintegerdimiasinteger,jasintegerpicture1.clsrandomizefori=1to5forj=1to5
a(i,j)=int(rnd*90)+10picture1.printa(i,j);nextjpicture1.printnextifori=1to5ifoption1.value=truethenresult=result+a(i,i)elseifoption2.value=truethenresult=result+a(i,5-i+1)endifnexti
text1.text=resultendsub
3运行/调试程序
当选择主对角线时,显示结果如下。
当选择主对角线时,显示结果如下。
4.保存工程
4、实验总结
4.1实验结果分析及问题讨论
如果要计算该矩阵四周边线元素之和,主要代码该如何编写?
答:
只需将矩阵规律代码做一些改变就行
result=result+a(1,j)andresult=result+a(i,1)result=result+a(i,5)andresult=result+a(5,j)
endif
andnexti
text1.text=result4.2实验总结心得体会
这次实验我还是觉得掌握的不好,以后多多努力!
二维数组和矩阵的应用是我的弱项,有时我不知道怎样寻找数据之间的那些规律,我有时很迷茫,vb真的要好好学呀!
西华大学实验报告(理工类)
开课学院及实验室:
交通与汽车工程学院计算机实验室实验时间:
年月日
1、实验目的
1.掌握sub子过程的定义和调用方法。
2.掌握调用过程时参数传递的两种方式(传值与传址)。
3.掌握变量、函数和过程的作用域。
4、掌握在数组中找最大(小)值的算法。
2、实验设备、仪器及材料
操作系统:
windows98/2000/2003/xp编程工具:
visualbasic6.03、实验内容
3.1实验方案设计与选择(设计性、创新性实验需写该项内容)3.2实验原理及实验步骤(实验工作原理或实验的主要操作过程)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB实验报告 2500字 VB 实验 报告 2500