克苏鲁 黄衣之王 真探:VB小问题3

来源：百度文库 编辑：中科新闻网 时间：2024/04/25 16:57:55
Dim Y As Integer
Private Sub Command_click( )
Dim X as integer
x=1
y=1
call AA (Y+1) *到这里就不明白了 这个语句是什么意思
z=BB(x) 是什么意思
print x, y, z
end sub
private sub AA(ByVal Z as integer )是什么意思
y=z+x
z=x+y
end sub
private function BB(ByRef y as integer)是什么意思
y=y+1
BB=x+y
end function

结果是2,2,2 怎么得到的........

我怎么什么都不会呀`~!!!

Dim Y As Integer
Private Sub Command_click( )
Dim X as integer
x=1
y=1
call AA (Y+1) '设用AA（2）子过程；
z=BB(x) '调用函数BB（1），返回值赋于Z变量
print x, y, z ,在窗口输入,2,2,2
end sub 'Command_click过程结束。
private sub AA(ByVal Z as integer ) '由call AA（2）传入z=2
y=z+x 'x为0，y=2
z=x+y ’x为0，z=2+0=2
end sub '执行完些句再返回到z=BB(X);
private function BB(ByRef y as integer)，BB(x)传入参数，y=1
y=y+1 'y=2,同时使得BB（X）中X的值也因y值的改变而变为X=2
BB=x+y, ‘此处x值仍为零，BB=0+2=2

end function '此句结束，后BB的值返回给Z;

Dim Y As Integer
Private Sub Command_click( )
Dim X as integer
x=1
y=1
call AA (Y+1) 'AA加了括号 需要等号 加了Call就不用等号了
z=BB(x) 'z等于
'y=z+x
'z=x+y
'和函数BB是一样的
print x, y, z
end sub
private sub AA(ByVal Z as integer )'这个是过程AA
y=z+x
z=x+y
end sub
private function BB(ByRef y as integer)'这个是函数BB
y=y+1
BB=x+y
end function

VB小问题3 VB 问题小问题 vb小问题 VB小问题 一个VB小问题。 vb小问题 vb小问题 VB小问题 一个vb小问题 一个vb小问题