第20讲b VB课件new.pptVIP

Private sub form_click() Dim a() Cls B=array(5,11,23,27,29,32,38,43,58,77,89) Fori=0 to ubound(b) Print b(i) Next I Print K=val(inputbox(“input key value:)) Call seach(b(),lbound(a),ubound(a),k,m%) If m-1 then Print m Else Print “not found” Endif End sub Sub search(a(),byval low%,byval high%,byval key%,inrex%) Dim mid as integer Dim=(high+low)\2 If a(mid)=key then Index=mid Exit sub Elseif lo * 过程之间参数的传递 形式参数与实际参数 1、形式参数 是指在定义过程时，出现在Sub或Function后面园括号内的变量，用来接收传送给子过程的数据。 2、实际参数 实际参数是指在调用Sub或Function过程时，写在子过程名或函数名后括号内的参数，其作用是将它们的数据（数值或地址）传送给Sub或Function过程与其对应的形参变量。 3 参数传递 参数传递指主调过程的实参（调用时已有确定值和内存地址的参数）传递给被调过程的形参，参数的传递有两种方式：按值传递、按地址传递。形参前加“ByVal”关键字的是按值传递，缺省或加“ByRef”关键字的为按地址传递。 4、传址与传值 传址：实参必须是变量，如果不是变量，传址失效，此时相当于值传递。形参得到的是实参的地址，这时，形参和实参表示的是同一内存存储单元，或者说，形参是实参表示的内存存储单元的别名（引用）。此后，形参值的改变同时也改变实参的值。 传值： 实参可以是常量、表达式、变量名。形参得到的是实参的值，相当于将实参的值赋予形参。此后，形参值的改变不会影响实参的值。 例6.4 Sub Swap2 (x%, y%) Dim Temp% Temp = x x = y y = Temp End Sub Sub Swap1 (ByVal x%, ByVal y%) Dim Temp% Temp = x x = y y = Temp End Sub 例 Private Sub CmdOK_Click() a% = 10 b% = 20 Swap1 a, b ‘传 值 Print a, b a = 10 b = 20 Swap2 a, b 传地址 Print a, b End Sub 程序调用执行过程： 值传递的执行过程如下图： 通过地址传递数据的执行过程 例题1：　编写判断一个整数是不是素数写函数过程。如果给定的整数是素数，则返回逻辑值True，否则返回False Private Function Prime(n As Integer) As Boolean Dim k%,Yes As Boolean Yes=True For k=2 to n\2 IF n mod k =0 then Yes=False : Exit For Next k Prime=Yes　　‘ 给函数名赋值，作为函的返回值 End Function 如何调用该函数呢？ 使用该函数，编一验证哥德巴赫猜想。 Private Sub Form_Click() Dim n%,n1%,n2% n=Val(InputBox(输入大于6的正整数)) For n1=3 to n\2 step 2　 让n1从3开始分解 n2=n-n1 　　　　　 　 求得n2 ‘ 如果n1和n2都是素数，则打印输出 If prime(n1) And prime(n2) then Print n = n1 + n2 Exit For 结束循环 End if Next n1 End Sub 数组作过程的参数 1．为了把一个数组的全部元素