[教育]第8章 过程.ppt

事件过程解密 Private Sub Command2_Click() Dim L%,i%,n% Dim x as string,code as string N=val(text4.text) Text3.text= L=len(text2.text) For i=1 to L x=mid(text2.text,i,1) Call b(x,code,n) Text3.text=text3.text+code Next I End sub 8.6.4 数组合并问题 问题：两个有序(降序)数组a，b，合并成有序(降序)数组c。 算法： １、从a，b中各取一个元素比较，将大者放入c中，并用三个变量m，n，k分别标识三个数组中正在处理的数组元素的位置； 2、取较大元素所在数组的下一个元素，与上次比较后的较小者比较，重复上一步的过程，直到其中一个数组处理完为止； 3、将没有处理完数组的剩余元素直接放入c中。 界面设计和属性设置 二个命令按钮 Name: Command1、Command2 Caption: 原数组、合并数组 例8-26 将两个有序（降序）数组a和数组b合并成一个有序（降序）数组c。 Public sub combine(a(),b(),c()) 数组合并过程 Dim m%,n%,k% Redim c(ubound(a)-lbound(a)+1+ubound(b)-lbound(b)) Do while m=ubound(a) and n=ubound(b) If a(m)b(n) then c(k)=a(m):m=m+1 Else: c(k)=b(n):n=n+1 End if K=k+1:Loop Do while m=ubound(a) c(k)=a(m):m=m+1:k=k+1 Loop Do while n=ubound(b) c(k)=b(n):n=n+1:k=k+1 Loop End sub Dim a(),b(),c() Private Sub Form_Load() 事件过程 Command1.caption=原数组: Command2.caption=合并数组 End sub Private sub command1_click() dim i% A=array(800,750,510,430,117,50) B=array(950,615,320,200,9) Print a数组为： For i=0 to ubound(a):Print a(i);:Next Print:Print b数组为： For i=0 to ubound(b):Print b(i);:Next End sub Private sub command2_click() Dim i% Call combine(a(),b(),c()) Print:Print c数组为： For i=0 to ubound(c) Print c(i); next End sub 作业 一、课内： 选择题和填空题 二、课外： 综合题 8.3.5 数组参数的传递 Visual Basic允许把数组作为实参传送到过程中。 一、形参为普通变量，实参为普通变量或数组元素。 这种情况可以把数组元素当作普通变量使用来进行参数的传递。 Private Sub Form_Click() Dim i as Integer, a(1 to 20) as Integer For i=1 to 20 a(i)=I If b(a(i)) then print a(i);是偶数 else print a(i);是奇数 , Next End sub Function b(x as integer) as boolean If x mod 2 =0 then B=true Else B=false End if End function 例8-15 判断整数1-20中哪些是厅奇数，哪些是偶数。 二、形参是带括号的数组名，实参也必须是带括号的数组名 这种情况允许将整个数组的所有元素作为参数进行传递。 注意： 1、形参是数组名时，不指定数组的具体维数，但必须保留圆括号以指明该参数为数组类型，而调用时所有的实参也必须是带圆括号的数组名； 2、形参是数组名时，只能采用按地址传递方式，即定义形参数组时，前面不能加ByVal关键字。 3、数据类型一致； 4、形参数组在被调用前，数组下标的上、下界是不确定的，在被调用过程的代码中可以用Lbound和Ubound函数求得。 Option base 1 Private Sub Command1_Click() Dim a(5) as Integer, n as Integer For i=1 t