月二级VB等级考试辅导第7次

,2011,年,9,月等级考试辅导,二级,Visual Basic,第七讲 过程,第,8,章,Sub,过程,2,第,3,章 变量作用域,1,第,8,章,Function,过程,3,数组参数,4,第,8,章 对象参数,5,P20,局部变量和全局变量,名称,作用域,声明位置,使用语句,局部变量,过程,过程中,Dim,或,Static,模块变量,窗体模块或标准模块,模块的通用声明段,Dim,或,Private,全局变量,整个应用程序,标准模块的声明部分,Public,或,Global,定义在过程中的静态变量（,static,）,在每次执行该过程时会保留上次执行的结果,2006,年,9,月,33,题,以下叙述中错误的是,A,）语句“,Dim a,b As Integer”,声明了两个整型变量,B,）不能在标准模块中定义,Static,型变量,C,）窗体层变量必须先声明，后使用,D,）在事件过程或通用过程内定义的变量是局部变量,2004,年,9,月第,8,题,在窗体上画一个名称为,Command1,的命令按钮，然后编写如下事件过程：,Private Sub Command1_Click()Static x As Integer,Cls,For i=1 To 2y=,y+x,x=x+2Next Print,x,y,End Sub,程序运行后，连续三次单击,Command1,按钮后，窗体上显示的是,A)4 2 C)12 30 D)4 6,B)12 18,2002,年,9,月,26,题,在窗体上画一个名称为,Commandl,的命令按钮，然后编写如下程序：,Private Sub Command1_Click()Static X As IntegerStatic Y As Integer,Cls,Y=1Y=Y+5X=5+XPrint X,YEnd Sub,程序运行时，三次单击命令按钮,Commandl,后，窗体上显示的结果为,A)15 16 C)15,15,D)5 6,B)15 6,P101,考点,1 Sub,过程,一、建立,Sub,过程,StaticPrivate|Public,Sub,过程名,(,参数表,),语句块,Exit Sub,语句块,End Sub,Private Sub,abc(x,As Integer),If,Sgn(x,)=1 Then,MsgBox,输入的是正数,ElseIf,Sgn(x,)=-1 Then,MsgBox,输入的是负数,Else,MsgBox,输入的,0,End If,End Sub,子程序过程,P102,调用,Sub,过程,1.,用,Call,语句调用,Sub,过程,Call,过程名（实际参数）,2.,把过程名作为一个语句来使用,过程名 实际参数,与第一种方式相比，它有两点不同,:,（,1,）去掉关键字,Call,；,（,2,）去掉,实际参数,的括号。,Private Sub Command1_Click(),Dim a As Integer,a=,InputBox(enter,a),Call,abc(a,),End Sub,Private Sub,abc(x,As Integer),If,Sgn(x,)=1 Then,MsgBox,输入的是正数,ElseIf,Sgn(x,)=-1 Then,MsgBox,输入的是负数,Else,MsgBox,输入的,0,End If,End Sub,Private Sub Command1_Click(),Dim a As Integer,a=,InputBox(enter,a),abc,a,End Sub,Private Sub,abc(x,As Integer),If,Sgn(x,)=1 Then,MsgBox,输入的是正数,ElseIf,Sgn(x,)=-1 Then,MsgBox,输入的是负数,Else,MsgBox,输入的,0,End If,End Sub,通用过程只有通过事件过程调用才能被执行,P103,（,2007,年,9,月选择题第,30,题）,下面程序的输出结果是,_,。,PrivateSubCommand1_Click(),ch,$=”ABCDEF”proc,ch,Print,ch,EndSubPrivateSub,proc(ch,AsString)s=Fork=,Len(ch,)To1Step-1 s=s&Mid(ch,k,1)Nextk,ch,=sEndSub,（,A,）,ABCDEF,（,C,）,A,（,D,）,F,（,B,）,FEDCBA,上机真题,【,例,】,捷成,62-3,上机真题,8.1,【,例,】,捷成,37-5,P104,考点,2 Function,过程,StaticPrivate|Public,Function,过程名,(,参数,)As,数据类型,语句块,过程名,=,表达式,Exit Function,语句块,End Function,Private Sub Command1_Click(),Dim a As Single,Dim b As Single,a=,InputBox(enter,a),b=,InputBox(enter,b),s=,xiebian(a,b),Print s,End Sub,Private Function xiebian(b1 As Single,b2 As Single)As Single,xiebian,=(b1 2+b2 2)(1/2),End Function,函数过程,P104,考点,2 Function,过程,说明：,（,1,）调用,Sub,过程相当于执行一个语句，不直接返回值；调用,Function,过程要返回一个值，因此可以像内部函数一样在表达式中使用。,（,2,）过程定义不可嵌套，因而不能在事件过程中定义通用过程，但可在事件过程内调用通用过程。,过程不可嵌套定义、但可嵌套调用,真题,P105-3,P105-4,2003,年,9,月,23,题,设有如下通用过程：,Public Function,f(x,As Integer)Dim y As Integer x=20 y=2 f=x*yEnd Function,在窗体上画一个名称为,Command1,的命令按钮，然后编写如下事件过程：,Private Sub Command1_Click()Static x As Integer x=10 y=5 y=,f(x,)Print x;yEnd Sub,程序运行后，如果单击命令按钮，则在窗体上显示的内容是,A,）,10 5 B,）,20 5 D,）,10 40,C,）,20 40,上机真题,【,例,】,捷成,36-4,过程参数设置原则,逆向思维,函数过程：当过程被调用时需外界给定的值作为参数,子程序过程：过程调用时需外界给定的值以及过程执,行结束时需得到的值作为过程参数,P106,考点,3,参数传送,行参：过程定义时的参数,实参：过程调用时的参数,P106,考点,3,参数传送,一、参数传递,Private Sub Command1_Click(),Dim a As Single,Dim b As Single,a=,InputBox(enter,a),b=,InputBox(enter,b),s=,xiebian(a,b),Print s,End Sub,Private Function xiebian(b1 As Single,b2 As Single)As Single,xiebian,=(b1 2+b2 2)(1/2),End Function,形参,实参,传地址：实参为变量名或数组、形参,ByRef,声明,传值：实参为常量或表达式、形参,ByVal,声明,4,d,e(,传地址,),6,a=1:b=2:c=3:d=4,Call test1(a,b,c,d),Print a;b;c;d,Private Sub test1(b%,c%,d%,e%),e=b+c+d,End Sub,1 2 3 6,内存单元,传地址,ByRef,传地址调用：形参改变，实参发生对应变化,形参和实参类型必须一致,2004,年,9,月,22,题,在窗体上画一个名称为,Command1,的命令按钮，并编写如下程序：,Private Sub Command1_Click()Dim x As Integer Static y As Integer x=10 y=5 Call f1(x,y)Print,x,y,End SubPrivate Sub f1(ByRef x1 As Integer,y1 As Integer)x1=x1+2 y1=y1+2End Sub,程序运行后，单击命令按钮，在窗体上显示的内容是,A)10 5 B)12 5 C)10 7,D)12 7,P108,（,2006,年,4,月选择题第,25,题）,在窗体上画,1,个命令按钮，其名称为,Commandl,，然后编写如下程序：,Private Sub Command1 _ Click(),Dim a(10)As Integer,Dim x As Integer,For i=l To 10,a(i)=8+i,Next,x=2,Print a(f(x)+x),End Sub,Function f(x As Integer),x=x+3,f=x,End Function,程序运行后，单击命令按钮，输出结果为,_,。,（,A,）,12,（,B,）,l5,（,C,）,17,（,D,）,18,a=1:b=2:c=3:d=4,Call test2(a,b,c,d),Print a;b;c;d,Private Sub test2(b%,c%,d%,ByVal,e%),e=b+c+d,End Sub,1 2 3 4,e(,传值,),d,4,4,6,内存单元,传值,ByVal,传值调用：形参改变，不影响实参,P115 13,题,（,2005,年,4,月选择题,29,题）,在窗体上画一个名称为,Command1,的命令按钮，然后编写如下通用过程和命令按钮的事件过程：,Private Function,fun(ByVal,m As Integer)If m Mod 2=0 Then fun=2 Else fun=1 End If,End Function,Private Sub Command1_Click()Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+,fun(i,)Next Print sEnd Sub,程序运行后，单击命令按钮，在窗体上显示的是,_,。（,A,）,6,（,C)8,（,D)9,（,B,）,7,上机真题,【,例,】,捷成,21-5,P108,数组参数,用数组作为过程的参数时，应在数组名的后面加上一对括号。,1,、要把整个数组作参数传递给过程，形参与实参都要使用数组名，但要省略数组的上下界，且保留括号；,2,、整个数组作参数传递时，,只能传地址,；,3,、单个数组元素作参数传递给过程时，实参要指明元素的下标；,4,、在过程中可以使用,LBound,(),和,UBound,(),函数来确定数组的上下界。,P103,（,2006,年,9,月选择题第,26,题）,Sub,subP(b,()As Integer),For i=1 To 4,b(i,)=2*i,Next i,End Sub,Private Sub Command1_Click(),Dim a(1 To 4)As Integer,a(1)=5,a(2)=6,a(3)=7,a(4)=8,subP,a(),For i=1 To 4,Print,a(i,),Next i,End Sub,（,A,）,2,（,B,）,5,（,C,）,10,（,D,）出错,4 6 12,6 7 14,8 8 16,P109,（,2003,年,9,月选择题第,24,题）,设有如下通用过程：,Public Sub,Fun(a,(),ByVal,x As Integ