第5章vb程序设计2.pptVIP

第5章 VB程序设计之二-- 过程与过程应用(P108~122) 引入 1、计算3！+5！+9！ 2、随机产生n个学生5门课程的成绩，要求计算： （1）每个学生的平均分； （2）每门课程的平均分； （3）找出最高平均分所对应的学生课程信息。 主要内容 过程概述 过程的定义及应用 参数传递 任务1—认识过程 过程是完成特定功能的一组独立的程序代码。 在结构化的程序中，经常将一个较大的程序划分成若干个较小的程序模块，每个模块只完成一个或若干个功能。 过程的使用场合 1）程序内，多次出现相同或相似的运算或处理过程。 例如:任务1 3！+5！+9! 2）程序复杂。（结构化程序设计） 例如：任务2 过程的种类 系统提供的内部函数过程和事件过程 通用过程 任务2：Sub过程（子程序过程） 基本格式: (P106) [static][private][public] sub过程名([形参表]) 语句块1 [exit sub] [ 语句块2] end sub 形参表定义格式： [ByVal |ByRef] 变量名 [( )][As 数据类型] … ByVal表示该参数按值传递 ByRef表示该参数按地址传递 (缺省) sub过程建立 Sub过程可以保存在两种模块中：窗体模块(.frm)和标准模块(.bas) A、可以在代码窗口中直接键入来创建Sub过程 B、选择“工具”菜单中的“添加过程”命令 应用1 计算3！+5！+9！ Sub的调用 调用Sub过程有以下两种方法： (1)使用Call语句 格式： Call 过程名［ (实参表) ］ (2)直接使用过程名 格式： 过程名［实参表］ 调用该子程序求3！+5！+9！ Private Sub Command1_Click() Dim a, b, c Call fac(3, a) Call fac(5, b) Call fac(9, c) Print a + b + c End Sub 问题与应用 编写一个判断素数的子过程.要求输入一个整数,就能够通过该子过程求得该整数是否是素数. 分析: 1)主过程(事件过程)中输入一个整数 2)调用定义的子程序对该整数进行判断 3)主程序输出判断结果 素数 只能被1和它本身整除的数。 验证方法: {2,3,…,n-1}之中的数都不是n的因子 Private Sub Command1_Click() Dim n%, t As Boolean n = Val(InputBox(请输入一个整数)) If n = 0 Then MsgBox 输入的数据不正确 Else Call prime(n, t) If t Then Print Str(n) + 是素数 Else Print Str(n) + 不是素数 End If End If End Sub Private Sub prime(n As Integer, t As Boolean) Dim i% If n = 1 Then t = False Exit Sub Else t = True For i = 2 To n - 1 If n Mod i = 0 Then t = False: Exit Sub End If Next i End If End Sub 任务2小结 SUB子程序的定义及调用 虚参数的定义及传递 任务3：function 过程（函数过程） [static][private][public]function 函数名([形参表]) [as 类型] [语句块] [函数名=表达式] [exit function] [语句块] End function 应用2 计算3！+5！+9！ 分析： 定义一个求N!的function子程序 Function过程的调用 (1)直接调用 只需写出函数名和相应的参数即可。 例如： s = Max(a, b) Print Max(s, c) (2)用Call语句调用 与调用Sub过程一样来调用Function过程， 例如： Call Max(a, b) 当用这种方法调用Function过程时，将会放弃返回值 问题与应用 利用用户定义函数,编写求任意数的立方的函数,然后求