Visual Basic辅导讲义5-过程自定义函数.pptVIP

Function过程 Function过程又叫函数过程 　 在VB中函数分为系统函数和自定义函数,系统函数是预设的,而自定义函数是由用户编写的,用来补充系统没有的函数功能. 函数的特点： 函数由函数名和括号组成； 括号内可以有n个参数； 函数的结果必须唯一。 Print Time() Print Int(4.56) Print Left(abcde, 3) Print Mid(abcde, 4, 5) Print InStr(3, cabcdeabcd, Ab, 1) Private Sub Command1_Click() Dim x As Integer x = Val(InputBox(输入值)) s = 1 For i = 1 To x s = s * i Next i Print s End Sub 红色语句的作用是求输入数字x的阶层,如果组织出来单独形成一个过程,即可方便在程序中其他位置调用 Function jc(n As Integer) As Long s = 1 For i = 1 To n s = s * i Next i jc = s End Function 声明函数接收整形参数 声明函数结果的类型 以function开始，End function结束，形成一段过程 在Funtion语句中说明自定义函数名称，括号内说明接收的参数个数和类型，也可以说明函数的结果（返回值）类型。 在函数过程中，最少有一条语句作为函数的返回值。 Print jc(8) X=6 Print jc(x) 函数定义时，可以用private或public声明该函数使用范围。在使用范围内可以像使用系统函数一样使用 Private function abc(。。。。) Public function abc(。。。) 例：输入m，n值，mn，求 一种特殊的函数调用——递归 Function abc(n As Integer) If n = 1 Then abc = 1 Else abc = n * abc(n - 1) End If End Function 6. 2003年9月（23） 设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 10 y=5 y = f(x) Print x; y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是______。 A）10 5 B）20 5 C）20 40 D）10 40 10. 2004年4月 (28) 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。 A) 11 B) 10 C) 9 D) 8 20. 2006年4月（25) 在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To 10 a(i) = 8 + i Next x = 2 Print a(f(x) + x) End Sub Function f(x As Integer) x = x +