成都十八中刘田《VB过程》课件

VB过程成都十八中刘田2.5.2VB过程与函数

第一课时

打地鼠游戏需要实现哪些功能？打地鼠

打地鼠游戏需要实现哪些功能？击中得分出现地鼠游戏结束游戏初始化所有程序代码连接在一起出现地鼠击中得分开始计时结束游戏打地鼠游戏程序模块化VB过程成都十八中刘田2.5.2VB过程与函数

第一课时

一、什么是过程？

我们将程序划分成一个个较小的逻辑单元，每个这样的逻辑单元可以构成一个过程。过程是一段程序代码，能独立完成一定的操作和功能。一个完整的VB应用程序由若干过程模块组成。

过程4:击中计分

一、什么是过程？

过程2:启动计时器过程1:系统初始化过程5:结束过程3:随机出现地鼠

1.分而治之:细化算法，使程序易于调试

二、为什么使用过程

生活中的排序算法分析：1.输入4个整数a,b,c,d2.将a与b比较,并把小者赋给b,大者赋给a3.将a与c比较,并把小者赋给c,大者赋给a4.将a与d比较,并把小者赋给d,大者赋给a5.将b与c比较,并把小者赋给c,大者赋给b6.将b与d比较,并把小者赋给d,大者赋给b7.将c与d比较,并把小者赋给d,大者赋给c编程实现：使任意输入的4个整数按从大到小

的顺序输出。

实践体验活动一abcd2342134312442

134312432

14123学案“任务一”：完善流程图

实践体验活动一想一想有没有功能类似的算法步骤？如何优化程序？PrivateSUB

过程名（参数表）

语句块ENDSUB

三、过程的定义

注：1.过程名的命名规则与变量名相同2.括号里的形式参数表可以缺省Call过程名（参数表）

三、过程的调用

a=inputbox(“a=”)b=inputbox(“b=”)c=inputbox(“c=”)ifb>athen

endififc>athen

endififc>bthen

endifPrivatesubExchange(xasinteger,yasinteger)Dimzasintegerz=xx=yy=zendsubcallexchange（a,b)callexchange（a,c)callexchange（b,c)三个数a,b,c降序排列a=inputbox(“a=”)b=inputbox(“b=”)ifb>athen

endififc>athen

endififc>bthen

endifcallexchange（a,b)callexchange（a,c)callexchange（b,c)a=inputbox(“a=”)b=inputbox(“b=”)ifb>athen

endififc>athen

endififc>bthen

endift=aa=bb=tt=aa=cc=tt=bb=cc=t

二、为什么使用过程

使用过程未使用过程

1.分而治之

细化算法，使程序易于调试2.代码重用

使同类操作不重复编写，写一次多次用。

二、为什么使用过程

学案“任务一”：

实践体验活动一

打开“四个数排序.frm”文件，完善程序。

编程实现：在一定范围内验证哥德巴赫猜想

实践体验活动二算法分析：1.输入1个大于4的偶数x编程实现：在一定范围内验证哥德巴赫猜想：任何一个大于4的偶数，可以表示为两个素数之和

实践体验活动二2.令m=33.n=x-m4.检查m是否是素数（flag1=true?）5.检查n是否是素数（flag2=true?）6.若m,n都是素数,则输出表达式x=m+n,

否则m=m+2,返回第3步，直到m>x-3时结束。学案“任务二”：完善流程图

实践体验活动二想一想有没有功能类似的算法步骤？如何优化程序？学案“任务二”：

实践体验活动二

打开“哥德巴赫猜想.frm”文件，完善程序。

请将打地鼠游戏1.0升级版本2.0，游戏分为初级、中级、高级，用户可以选择不同等级体验游戏。

实践体验活动三调整游戏难易程度，需要考虑哪些因素？分等级打地鼠游戏结束选择等级随机出现地鼠20-24只初级随机出现地鼠10-14只中级高级随机出现地鼠5