过程VB武科大教学公开课一等奖优质课大赛微课获奖课件.pptx

过程;目的;过程引入;过程引入;过程引入;过程引入;过程引入;VB应用程序构成;定义：将程序分割成较小逻辑部件就能够简化程序设计任务，称这些部件为过程。

过程作用：压缩重复任务和共享任务。

如：数据连接和大小写转换等

;过程概述;通用过程和事件过程关系;事件过程;通用过程;SUB过程;通用（SUB）过程;静态和动态变量区别;SUB过程建立;SUB过程建立和调用;SUB过程建立和调用;形参与实参;举例;程序举例;例编写一个互换两个整型变量值过程Swap，然后在窗体Click事件过程中，随机产生两个小于1000正整数，调用过程Swap完毕对其值互换，并输出互换前后结果。

程序代码下列：;举例;程序举例----计算5!+10!;课堂练习;

自定义函数过程有两种办法：

(1)利用代码窗口下“工具”菜单下“添加过程”命令定义，生成一个函数框架。

(2)利用代码窗口直接定义。

;Function函数过程;Function函数过程;Function函数过程与调用;Function过程调用;举例---输入三个数，求出它们最大数;举例—计算计算1!+2!+...+10!;举例;Fabonacci数列;课堂练习;总结----sub和function过程比较;总结----sub和function过程比较;参数传递;按值传递和按地址传递;数组作为参数值传递方式;3.数组参数;④调用通用过程时，假如形参是数组，则相应实参必须是与形参同类型数组。实参数组格式为：实参数组名()或实参数组名。

⑤整个数组必须以ByRef（按地址方式）传递，但数组中数组元素可用ByVal（按值）传递。当数组元素作为实参出现时，一定要写上下标。

⑥数组作参数时，对形参数组元素改变，将最后改变实参数组中相应元素值。;例PrivateSubForm_Click()

DimaAsInteger,b(4)AsSingle,cAsString*5

a=3

Fori=0To4

b(i)=i

Nexti

c=“china”

Calltestsub(a,b,c)

Print“返回后数组b值为:”

Fori=0To4

Printb(i);

Nexti

EndSub;数组参数传递;数组参数传递;顺序查找代码;折半查找代码;冒泡法;使用过程处理冒泡法;使用过程处理冒泡法;选择法;使用过程处理选择法（升序）;使用过程处理选择法;变量作用域—按空间角度分;变量作用域表;变量作用域问题;过程－作用域;例：下面程序中有三个同名变量wv，图是运营该程序后，三次单击Command1后显示结果。

PublicwvAsInteger

PrivateSubCommand1_Click()

DimwvAsInteger

wv=wv+3

Callwholesub

PrintCommand1事件过程wv=;wv,全局wv=;Form1.wv

EndSub

PublicSubwholesub()

StaticwvAsInteger

wv=wv+1

Form1.wv=wv+5

Printwholesub过程wv=;wv,全局wv=;Form1.wv

EndSub

PrivateSubForm_Load()

wv=1

EndSub;过程－作用域;SubMain过程--启动过程;练习;练习;练习;试验汇报;第1题答案;第2题答案;下课了！