VB EX1to3.docx
- 文档编号:3893905
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:14
- 大小:212.15KB
VB EX1to3.docx
《VB EX1to3.docx》由会员分享,可在线阅读,更多相关《VB EX1to3.docx(14页珍藏版)》请在冰豆网上搜索。
VBEX1to3
实验一VB编程基础
一.实验目的
熟悉VB集成开发环境,掌握对象、类、封装、继承等面向对象的概念,掌握基于对象和基于事件的VB编程思想,掌握VB的基本语法,学会VB简单程序的设计。
二.实验条件和环境
VisualBasic6.0集成开发环境
三.实验任务和要求
1.VB集成环境的使用
2.条件判断语句在程序中的应用
3.循环语句在程序中的应用
四.实验内容
1.VB集成环境的使用
实验要求:
设计一个简单的应用程序,在窗体上绘出三个按钮和一个文本框,界面如下,要求单击显示按钮时,在文本框中显示“欢迎来到海事大学”;单击清空按钮时,文本框内容清空;单击退出按钮时,退出程序。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制一个文本框Text1,和三个命令按纽command1,command2,command3.然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Text1文本框的Text属性值删除
(2)用相同的办法,将command1按钮,command2按钮,command3按钮的Caption属性分别设置为”显示”,“清空”,”退出”
(3)分别为三个按钮编写代码.
2.条件判断语句在程序中的应用
实验要求:
在窗体上绘出两个标签,两个文本框和两个按钮,当用户输入两个数值后,求出两个数中的最大的数,运行如下图所示。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制两个标签,两个文本框,和两个命令按纽。
然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Text1,Text2文本框的Text属性值删除
(2)将Label1,Label2的Caption属性分别改为”输入第一个数”,”输入第二个数”
(3)将command1按钮,command2按钮Caption属性分别设置为”最大值”,”退出”
(4)分别为两个按钮编写代码.
3.循环语句在程序中的应用
实验要求:
在窗体上绘出两个标签,一个文本框和一个按钮,当用户输入数值后,求出该数的阶乘,运行如下图所示。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制两个标签,一个文本框,和一个命令按纽。
然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Text1文本框的Text属性值删除
(2)将Label1的Caption属性分别改为”请输入一个整数”
Label2的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”计算”
(4)为按钮编写代码.
4.书上例题,计算1+1/2+1/3+....+1/n的值,当1/n小于1e-6时结束计算
实验要求:
在窗体上绘出一个标签,一个文本框和一个按钮,当用户输入数值后,求出该数的阶乘,运行如下图所示。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制一个文本框,和一个命令按纽。
然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Text1文本框的Text属性值改为计算1+1/2+1/3+...+1/n,
当1/n小于1e-6结束计算
(2)将Label1的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”计算结果为:
”
(4)为按钮编写代码.
注意:
如把源码中的sum和n改为integer,再运行程序,出现错误,思考一下为啥错,
结论写教材的作者他写错了(P155),他的代码没有上机调试过,只是想当然。
5.书上例题(P155),计算BMI指数
实验要求:
在窗体上绘出4个标签,2个文本框和一个按钮,当用户输入数值后,求出BMI指数,运行如下图所示。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制4个标签,2个文本框,和1个命令按纽。
然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Label1标签的Caption属性改为请输入体重kg.
为Label2标签的Caption属性改为请输入身高m.
(2)将Label3,label4的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”BMI指数为:
”
(4)为按钮编写代码.
实验二线性表的基本操作
一.实验目的
使用数组模拟一个线性表,并完成简单的操作。
二.实验条件和环境
VisualBasic6.0集成开发环境
三.实验任务和要求
参照主教材《大学计算机基础》中例6-2,使用数组定义一个数组型的线性表,将0-20中的奇数依次插入到线性表中,并打印该表,输出13在线性表中的位置(以0为起始位置计算),随后删除13,并再次打印该表。
四.实验步骤和操作指导
(一)实验步骤
(1)运行VisualBasic6.0,新建一个工程应用程序。
(2)参照主教材《大学计算机基础》中的例6-2编写程序,包括定义线性表、主过程、线性表的插入过程、删除过程、打印过程、定位过程。
(二)操作指导
(1)线性表表使用如下方式定义。
(放在模块中)
Typelisttype
data()AsInteger
nAsInteger
EndType
(2)程序大致如下
(放在窗体中,教材中的程序)
PrivateSubForm_Click()
ConstMAXAsInteger=1000
DimlistAslisttype
DimiAsInteger
ReDimlist.data(MAX)
Callinitiate(list)
Fori=0To9
Callinsert(list,i,i+1)
Nexti
Callprint1(list)
Callinsert(list,5,99)
Callprint1(list)
Calldelete(list,8)
Callprint1(list)
EndSub
(实验要求程序)
PrivateSubForm_Click()
ConstMAXAsInteger=20
DimlistAslisttype
DimiAsInteger
DimlocAsInteger
ReDimlist.data(MAX)
Callinitiate(list)
Fori=0To9
Callinsert(list,i,2*i+1)
Nexti
Callprint1(list)
loc=locate(list,13)
Form1.Print"13在线性表的位置是:
";loc
Calldelete(list,loc)
Callprint1(list)
EndSub
(放在模块中)
Subinitiate(ByReflAslisttype)
l.n=0
EndSub
Functiongetlength(ByReflAslisttype)AsInteger
getlenth=l.n
EndFunction
Functiongetdata(ByReflAslisttype)AsInteger
Ifi>=0Andi getdata=l.data(i) ExitFunction Else Form1.Print"要求的元素不存在,程序终止" End EndIf EndFunction Functionpriordata(ByReflAslisttype,ByValiAsInteger)AsInteger Ifi>=1Andi priordata=l.data(i-1) ExitFunction Else Form1.Print"要求的元素不存在,程序终止" End EndIf EndFunction Functionnextdata(ByReflAslisttype,ByValiAsInteger)AsInteger Ifi>=0Andi nextdata=l.data(i+1) ExitFunction Else Form1.Print"要求的元素不存在,程序终止" End EndIf EndFunction Functionlocate(ByReflAslisttype,ByValxAsInteger)AsInteger DimiAsInteger i=0 DoWhilei Ifx=l.data(i)Then locate=i ExitFunction EndIf i=i+1 Loop locate=-1 EndFunction Subinsert(ByReflAslisttype,ByValiAsInteger,ByValxAsInteger) DimjAsInteger j=l.n Ifi>=0Andi<=l.nThen DoWhilej>i l.data(j)=l.data(j-1) j=j-1 Loop l.data(i)=x l.n=l.n+1 Else Form1.Print"插入位置不正确! ,程序终止" End EndIf EndSub Subdelete(ByReflAslisttype,ByValiAsInteger) Ifi>=0Andi DoWhilei l.data(i)=l.data(i+1) i=i+1 Loop l.n=l.n-1 Else Form1.Print"删除位置不正确,程序终止" End EndIf EndSub Subprint1(ByReflAslisttype) DimiAsInteger Fori=0Tol.n-1 Form1.Printl.data(i) Nexti Form1.Print"表长为: ";l.n EndSub 实验三VB冒泡排序法 一.实验目的 熟悉VB集成开发环境,掌握一种排序算法,即冒泡排序法 二.实验条件和环境 VisualBasic6.0集成开发环境 三.实验任务和要求 1.将一组数据(12.5,34,45,21,67,4,12,45,47,56)从小到大排序,要用冒泡排序法 四.实验内容 1.实验步骤 (1)运行VisualBasic6.0,新建一个工程应用程序。 (2)参照主教材《大学计算机基础》中的例6.3.1编写程序,包括定义数组、数组赋值,排序算法。 (3)新建工程,选择“标准EXE” (4)设计界面,用工具箱在窗体上分别绘制二个命令按纽command1,command2,然后调整控件大小,调整控件的位置。 (5)设计属性 (6)编写代码 2.操作指导(放在窗体中,教材中的程序)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB EX1to3