VB函数与过程.docVIP

VB函数与过程 教学目的： 熟悉VB中函数的含义及函数的分类。 掌握VB中用户函数的定义及应用。 掌握VB中通用过程的含义及使用方法。 教学重点： VB中函数基本概念的理解。 VB中用户函数定义方法。 VB中变量的作用范围。 VB中通用过程的应用。 课时安排： 理论教学安排6课时，上机练习8课时 VB通用过程 重复使用的程序段独立定义为过程。 过程的分类 （1）事件过程（例如click,dblclick,……） （2）通用过程（由用户定义，可供VB过程来调用；用户定义的过程称为“子过程”） 3、通用调用流程： 程序过程： 调用过程可以事件过程或者用户定义过程。调用过程按顺序执行时，遇到CALL命令则转向指定的子过程。 子过程按顺序执行，遇到子过程的结束语句时，返回到调用过程的断点后一条语句（CALL的下一条语句）。 调用过程接着执行，遇CALL命令重复（2）；否则执行到程序结束。 4、VB中的通用过程： （1）SUB（过程）------无返值 （2）FUNCTION（函数）-------有返值 SUB过程 上机练习： P165例7.1 Private Sub Form_Load() Show Call sub1(30) Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub2 Call sub1(30) End Sub Private Sub sub1(n) Print String(n, *) string函数用来重复出现n次* End Sub Private Sub sub2() Print *; Tab(30); * End Sub Sub过程的定义 Private|public|static sub 过程名(形式参数列表) 过程语句块(可以含有Exit sub) End sub Private表示过程只在当前模块有效，public则表示在整个程序范围都有效。 Static表示过程的局部变量静态分配空间（局部变量保持到整个程序结束才释放，而动态变量则是过程退出就释放变量。） Sub过程的建立 窗体中打开代码窗口（.frm），选择通用过程，直接编写sub过程。 在标准模块（.bas）中来创建sub过程。 第一步，在“工程”菜单或工程面板的快捷菜单中选择“添加模块”。 第二步，在“工具”菜单中选择“添加过程”，弹出“过程对话框”，输入过程名，录入过程代码；也可以直接在通用代码框中录入过程。 注意：在标准模块书写通用过程时，单独保存.bas的模块文件。如果过程中使用窗体等对象，不能省缺对象名。 Sub过程的调用 Call 过程名(实参数表) 过程名 实参表 上机练习： 1、P168例7.2 2、P169例7.3 3、P195上机调试1 Private Sub ifnum(str1 As String, n As Integer) Dim k As Integer For k = 1 To Len(str1) ‘逐个字符判断是否为数字 If Asc(Mid(str1, k, 1)) 48 Or Asc(Mid(str1, k, 1)) 57 Then n = 0: Exit Sub End If Next k n = 1 End Sub Private Sub Command1_Click() Dim a As String, b As String, c As String Dim y1 As Integer, y2 As Integer, y3 As Integer a = Text1.Text ‘a,b,c用来取得三个文本框的字符串 b = Text2.Text c = Text3.Text Call ifnum(a, y1) 用来判断a,b,c是否为数字串，为数字串时y1,y2,y3都为1 Call ifnum(b, y2) Call ifnum(c, y3) If y1 = 1 And y2 = 1 And y3 = 1 Then Text4.Text = Val(a) + Val(b) + Val(c) Else Text4.Text = 三个文本框内有非数字串 End If End Sub 4、P186例7.14 5、P186例7.15（变化可以产生变幻线的效果。） 作业： 1、什么是通用过程？它是否依赖于对象？试简述通用过程的调用执行过程。 2、在VB中如何加入标准模块。通用过程可以书写在标准模块中吗？ 3、简述VB通用过程定义中private,public与static的区别。 三、Function过程(直接返回主调用程序一个值)