09秋理科VB考前辅导_4.docVIP

自定义过程的定义 //无参数过程 Private sub printstr() Dim I as byte For I=1 to 5 Print “hello world” next End sub //有参数过程 Private sub printstr(n as integer) Dim I as byte For I=1 to n Print “hello world” next End sub 参数的作用：实现主调过程与被调过程的数据传递 过程的调用（以调用第二个过程为例） Private sub form_Click() Printstr 5 Call printstr(5) End sub 过程调用的执行流程讲解 试题讲解：调试34 另外：事件过程也可以被调用，举例说明 自定义过程的编写练习 练习1：编写一个打印n层*金字塔的自定义过程 自定义函数的定义 定义格式： private function 函数名(参数表) as 函数返回值类型 函数体 函数名=表达式 end function 定义举例： private Function nFact(n as byte) as long dim k as byte,temp as Long temp = 1 for k = 1 to n temp = temp * k next k nFact = temp end function 函数调用格式 s = nfact(5)*3 print nfact(5) 试题讲解：调试35、调试36、调试37、调试38 函数定义举例 十进制到二进制 数组作为函数或过程的参数 数组作为参数的定义形式 编制通用函数过程fsum，计算single类型一维数组所有元素的和。(2005年春) function fsum(b() as single, n as byte) as single dim k as byte, s as single for k =1 to n s = s + b(k) next k fsum = s end function 数组作为参数的调用形式 private sub form_click() dim a(1 to 10) as single, k as byte,avg as single for k = 1 to 10 a(k) = rnd * 90 + 10 next k avg = fsum(a,10)/10 end sub 数组作为参数的自定义过程（函数）练习 练习：编写一个自定义过程，该过程对一维单精度数组进行反序操作，例如：原数组数据为1、2、3、4、5，反序后变为5、4、3、2、1。 参数的传递规则：分按值传递(byVal)和按地址传递(byRef)两种。 Private sub chg1(byval n as byte) n = n + 2 End sub private sub chg2(byRef n as byte) n = n + 2 end sub private sub form_Click() dim k as byte k = 2 : chg1(k) : print k call chg2(k) : print k end sub 参数的传递规则考点训练 练习1： Private Sub Form_Click() Dim a As Byte, b As Byte a=1 ：b=2 Call Proc1(a,b) Print a,b End Sub Private Sub Proc1(c As Byte,d As Byte) Dim a As Byte,b As Byte c=a+b ：d=a-b Print c,d End Sub 练习二： Sub chg1(ByVal x As Byte, y As Byte) Dim t As Byte t = x: x = y: y = t Print x, y End Sub Sub form_click() Dim a As Byte, b As Byte a = 12: b = 21 Call chg1(a, b) Print a, b End Sub 练习三： Private Function chg(a As Byte, byval b as byte) As Byte b = b + 1 a = a + 3 * b Chg= a+ b End Function Privat