第四章 函数与过程精要.ppt

gejinhuan@163.com 第四章 函数与过程 葛锦环 gejinhuan@163.com 温州医学院计算机教研室 自定义函数的引入 Private Sub Form_click() Dim a As Integer, temp As Integer a = InputBox(please input a number) temp = 1 For i = 2 To a temp = temp * i Next i Print temp End Sub 自定义函数的引入 Private Sub Form_click() Dim a As Integer, temp As Long a = InputBox(please input a number) temp = fact(a) Print temp End Sub Private Function fact(k As Integer) As Long Dim i As Byte fact = 1 For i = 2 To k fact = fact * i Next i End Function 实例4-3 显示1～1000之间的素数。 要求编制函数过程，用于判断一个整数是否是素数。 自定义过程（SUB）的引入 注意Msgbox函数的用法 [变量名]=MsgBox(prompt[，button] [，title] ） 比如： i = MsgBox(“请关机“, 0 + 64 + 0 , ”关机确认) 如果有时候并不需要用到返回值，仅仅是一个操作过程的话，那就引入自定义过程。 比如：MsgBox “请关机“, 0 + 64 + 0 , ”关机确认 两种调用方式： (1) 子过程名 实参列表 (2) Call 子过程名 （实参列表） 4.2.1 按值传递 形参变量名前的修饰符是Byval 调用时，创建形参，用实参的表达式的值复制给形参变量，调用结束，形参变量被取消。它是一种单向传递，即对形参的改变不会导致对实参变量的任何改变。 4.2.2 按地址传递 按地址传递的形参变量名前的修饰符是Byref 如果形参变量名前不做任何说明默认是Byref 按地址传递时，过程中对形参变量值的改变即是对实参变量的改变，即双向传递。 例：单击Command1后的运行结果 Private Sub ss(ByVal x as integer, ByRef y%, z%) x = x + 1 y = y + 1 z = z + 1 End Sub 数组为参数 Private Sub Command1_Click() Dim a(3) As Integer Dim k As Integer, j As Integer For j = 0 To 3 a(j) = InputBox(请输入a( j )的值, 数组输入) Next j k = tim(a(), 3) Print k End Sub 回顾变量声明的格式 局部变量的作用域和生存期 Private x% , y%, z% Private Sub Form_click( ) Dim x as integer x=1 y=2 Call AA(y+1) z=BB(x) Print x,y,z End Sub 练习题 1、工程的扩展名是——？ 2、对象的三要素是——？ 3、输入对话框inputbox的返回值的类型是？ 4、Int(Rnd*100)表示的数的范围是？ 5、Print “5*5”的执行结果是？ 6、表达式16/2-2^3*7 Mod 9的值是？ 7、x大于5小于10 和 a和b中有且只有一个为0的表达式怎么写？ 8、用Inputbox函数为数组B的所有元素B(0)、 B(1)、……B(9)依次赋值的语句怎么写？ 9、数组名作为参数，相应的形参传递方式是？ 10、函数名在函数体中必须被赋值？ 程序阅读题： 1、Private Sub form_click() Dim a As Integer, s As Integer a = 5: s = 0 Do While a = 0 s = s + a: a = a - 1 Loop