VB EX1to3Word格式.docx
- 文档编号:16800124
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:14
- 大小:212.15KB
VB EX1to3Word格式.docx
《VB EX1to3Word格式.docx》由会员分享,可在线阅读,更多相关《VB EX1to3Word格式.docx(14页珍藏版)》请在冰豆网上搜索。
实验步骤
(1)新建工程,选择“标准EXE”
(2)设计界面,用工具箱在窗体上分别绘制一个文本框Text1,和三个命令按纽command1,command2,command3.然后调整控件大小,调整控件的位置。
(3)设计属性
(4)编写代码
操作指导
(1)在设计属性时,为Text1文本框的Text属性值删除
(2)用相同的办法,将command1按钮,command2按钮,command3按钮的Caption属性分别设置为”显示”,“清空”,”退出”
(3)分别为三个按钮编写代码.
2.条件判断语句在程序中的应用
在窗体上绘出两个标签,两个文本框和两个按钮,当用户输入两个数值后,求出两个数中的最大的数,运行如下图所示。
实验步骤
(2)设计界面,用工具箱在窗体上分别绘制两个标签,两个文本框,和两个命令按纽。
然后调整控件大小,调整控件的位置。
操作指导
(1)在设计属性时,为Text1,Text2文本框的Text属性值删除
(2)将Label1,Label2的Caption属性分别改为”输入第一个数”,”输入第二个数”
(3)将command1按钮,command2按钮Caption属性分别设置为”最大值”,”退出”
(4)分别为两个按钮编写代码.
3.循环语句在程序中的应用
在窗体上绘出两个标签,一个文本框和一个按钮,当用户输入数值后,求出该数的阶乘,运行如下图所示。
(2)设计界面,用工具箱在窗体上分别绘制两个标签,一个文本框,和一个命令按纽。
(1)在设计属性时,为Text1文本框的Text属性值删除
(2)将Label1的Caption属性分别改为”请输入一个整数”
Label2的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”计算”
(4)为按钮编写代码.
4.书上例题,计算1+1/2+1/3+....+1/n的值,当1/n小于1e-6时结束计算
在窗体上绘出一个标签,一个文本框和一个按钮,当用户输入数值后,求出该数的阶乘,运行如下图所示。
(2)设计界面,用工具箱在窗体上分别绘制一个文本框,和一个命令按纽。
(3)设计属性
(1)在设计属性时,为Text1文本框的Text属性值改为计算1+1/2+1/3+...+1/n,
当1/n小于1e-6结束计算
(2)将Label1的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”计算结果为:
”
注意:
如把源码中的sum和n改为integer,再运行程序,出现错误,思考一下为啥错,
结论写教材的作者他写错了(P155),他的代码没有上机调试过,只是想当然。
5.书上例题(P155),计算BMI指数
在窗体上绘出4个标签,2个文本框和一个按钮,当用户输入数值后,求出BMI指数,运行如下图所示。
(2)设计界面,用工具箱在窗体上分别绘制4个标签,2个文本框,和1个命令按纽。
(1)在设计属性时,为Label1标签的Caption属性改为请输入体重kg.
为Label2标签的Caption属性改为请输入身高m.
(2)将Label3,label4的Caption属性值删掉
(3)将command1按钮的Caption属性设置为”BMI指数为:
实验二线性表的基本操作
使用数组模拟一个线性表,并完成简单的操作。
参照主教材《大学计算机基础》中例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)
Calldelete(list,8)
EndSub
(实验要求程序)
ConstMAXAsInteger=20
DimlocAsInteger
Callinsert(list,i,2*i+1)
loc=locate(list,13)
Form1.Print"
13在线性表的位置是:
"
;
loc
Calldelete(list,loc)
Subinitiate(ByReflAslisttype)
l.n=0
Functiongetlength(ByReflAslisttype)AsInteger
getlenth=l.n
EndFunction
Functiongetdata(ByReflAslisttype)AsInteger
Ifi>
=0Andi<
l.nThen
getdata=l.data(i)
ExitFunction
Else
Form1.Print"
要求的元素不存在,程序终止"
End
EndIf
Functionpriordata(ByReflAslisttype,ByValiAsInteger)AsInteger
=1Andi<
priordata=l.data(i-1)
End
Functionnextdata(ByReflAslisttype,ByValiAsInteger)AsInteger
l.n-1Then
nextdata=l.data(i+1)
Functionlocate(ByReflAslisttype,ByValxAsInteger)AsInteger
i=0
DoWhilei<
l.n
Ifx=l.data(i)Then
locate=i
ExitFunction
EndIf
i=i+1
Loop
locate=-1
Subinsert(ByReflAslisttype,ByValiAsInteger,ByValxAsInteger)
DimjAsInteger
j=l.n
=l.nThen
DoWhilej>
i
l.data(j)=l.data(j-1)
j=j-1
l.data(i)=x
l.n=l.n+1
插入位置不正确!
,程序终止"
Subdelete(ByReflAslisttype,ByValiAsInteger)
l.data(i)=l.data(i+1)
l.n=l.n-1
删除位置不正确,程序终止"
Subprint1(ByReflAslisttype)
Fori=0Tol.n-1
Form1.Printl.data(i)
表长为:
实验三VB冒泡排序法
熟悉VB集成开发环境,掌握一种排序算法,即冒泡排序法
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