(过程调用.docVIP

过程调用 1 sub 子过程 调用方式： call 子过程名（[实参]） 子过程[实参] Sub 过程无返回值，可以用call调用 2function 函数过程 调用方式：函数过程名（[实参]） Function 有返回值，不可以用call调用 参数传递 1 byval 按值传递 a——b 2 byref 按地址传递 a——b 注 不写byval也不写byref默认按地址传递 211.1 要想在过程Proc调用后返回形参X和Y的变化结果，下列定义语句中正确的是 A）sub proc(x as integer,y as integer) B）sub proc(byval x as integer,y as integer) C）sub proc(x as integer,byval y as integer) D）sub proc(byval x as integer,byvaly as integer) 212.10 在过程定义中有语句 private sub getdata(byval data as integer) 其中“byval”的含义是 a)传值调用 b)传址调用 c)形式参数 d)实际参数 257.12 在窗体上添加两个文本框（名为txtD1和txtD2）和一个命令按钮（名为btnOK） ，然后在命令按钮的单击代码窗口中编写如下事件过程： private sub btnok_click() me!txtD1=ABCD me!txtD2=123 me!txtD1=txtD2 me!txtD1 me!txtD2=me!txtD2+456 end sub 文本框txtD1和txtD2显示内容分别为__和__ 204.16 在窗体上有一个命令按钮command1,编写事件代码如下： private sub command1_click() dim x as integer,y as integer x=12: y=32 call proc(x,y) debug.print x;y end sub public sub proc(n as integer,byval m as integer) n=n mod 10 m=m mod 10 end sub A)2 32 b)12 3 c)2 2 D)12 32 250.08 在窗体中添加一个命令按钮（名为command1）和一个文本框（名为text1）,然后 编写如下事件过程 private sub command1_click() dim x as integer,y as integer,z as integer x=5 :y=7 :z=0 me!text1= call p1(x,y,z) me!text1=z end sub sub p1(a as integer,b as integer,c as integer) c=a+b end sub 打开窗体运行后，单击命令按钮，文本框中显示________ 233.8 在窗体中添加一个名称为command1的命令按钮，然后编写如下事件代码： private sub command1_click() msgbox f(24,18) end sub public function f(m as integer,n as integer) as integer do while mn m=m-n loop do while mn n=n-m loop f=m end function 消息框的结果： a)2 b)4 c)6 D)8 213.8 若窗体已有一个名为command1的命令按钮，一个名为label1和标签和一个名为 text1的文本框，且文本框的内容为空，然后编写如下事件代码： private function f(x as long) as boolean if x mod 2=0 then f=true else f=false end if end function private sub command1_click() Dim n as long n=val(me!text1) p=iif(f(n),Even number,Odd number me!Label1.caption=n is p end sub 窗体打开运行后，在文本框中输入21，单击命