VB程序设计子程序Word文档格式.docx
- 文档编号:14587764
- 上传时间:2022-10-23
- 格式:DOCX
- 页数:6
- 大小:42.89KB
VB程序设计子程序Word文档格式.docx
《VB程序设计子程序Word文档格式.docx》由会员分享,可在线阅读,更多相关《VB程序设计子程序Word文档格式.docx(6页珍藏版)》请在冰豆网上搜索。
形参列表:
参数1,参数2z……
参数定义:
[byval]变量名as数据类型
Byval数据传递方式:
值传递,省略时为地址传递
Exitsub/Exitfunction中途退出过程
子程序名渗数列表]
/Call子程序名[渗数列表)]变量名二函数名([参数列表])
例:
过程调用
callexchange(a,b)或exchange(a,b)
函数调用
Printmaxnum(a,b)
X=maxnum(a,b)
例5」编一交换两个数的过程。
PrivateSubjiaohuan(xAsInteger,yAsInteger)
DimtAsInteger
t=X
x=y
y=t
形参:
x,yJ数据传递方式:
地址传递
参数传盪
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=10:
b=20
Print”原值:
字U;
a「b1』;
b
calljiaohuan(a5b)
Print1咬换后:
”;
Ha1=n;
a,Hb1=n;
vEndSub
函数的定义和调用
fori=1tonf=f*i
nexti
jch=f
endfunction
在表达式中使用计算m!
*n!
/(m-n)!
jch(m)*jch(n)/jch(m-n)
privatefunctionjch(nasinteger)dimfasinteger,!
asintegerf=1
过程的作用域
(1)窗体中的过程
private子程序只能在本窗体中调用
public子程序可以在其它窗体中应用,但调用方式为窗体名•过程名
(2)标准模块中的过程
public可以在任意窗体和模块中使用
递归
用自身的结构来描述自身称为〃递归〃。
递归总有一个〃结束条件〃,此结束条件称为〃边界条件〃。
例1:
五个人论岁数,第一个人说比第二个人大2岁,第二个人说比蓊三个人大2岁z第三个人说比第四个人大2岁,第四个人说比第五个人大2岁,第五个说他10岁,
问每人多大岁数?
适归
督s(4)+2
s(4^3)+2
递推
s(3)=^+2s
(2)=s
(1)>
J
s
(1)=10
回推
Li:
阶乘
5!
二4!
*5\,递推
4!
二3!
*4\
3!
二2!
*3\
2!
二1!
*2\
1!
二1'
边界条件
二1*2=2'
=2*3=6/
二6*4二
二24*5二12。
/
代码如下:
PrivateFunctionfac(nasinteger)ifn=1then
fac=1
else
fac=n*fac(n-1)
endif
菲波那契数列
前两项为1,从第三项开始,其值为它前面两项的和。
PrivateFunctionfibo(nAsInteger)
Ifn=1Orn=2Then
fibo=1
Else
fibo=fibo(n-1)+fibo(n-2)
EndIf
PrivateSubCommand1_Click()
DimnAsInteger,iAsInteger,kAsIntegerPicturel.cls
n=Val(Textl.Text)
Fori=1Ton
Picturel.Printfibo(i);
"
k=k+1
Ifk=5Then
k=0
Picturel.Print
NextI
常用算法举例•求素数
•选择法排序
•冒泡法排序
•顺序查找
丿
例题:
素数
要判断一个数X是否是素数z需要判断X是否能被2至xJ内的某一个自然数整除。
若都不能整除,贝収是素数。
(所以,判断一个数是否为素数,只要看在2到它的平方根之间有没有约数。
砌所有约驼分布劃测
1234669121836
第一次从未排好序的数组中找出最小(或最大)的/放社翕一个位置;
第二次从后面的n-1个娄女中找出最小(或最大)白勺/放衽第二个位置;
……
选择排序每次对相邻的两个数进行比较,若不
符合顺序,则交换位置;
冒泡排序
查找
顺序查找即将关键字与数组中的元素逐一比较,若相同z查找成功。
顺序查找
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 子程序