dzoibai
18-01-2011, 16:57
Sub p(a as intger, b as integer)
a = a + b
b = a + b
End Sub
Sub tt()
Dim a as integer
Dim b as integer
a = 3
b = 4
Call p(a,a)
Msgbox "a =" & a & vbCrl.f & "b =" & b
Call p(b,a-b)
Msgbox "a =" & a & vbCrl.f & "b =" & b
End Sub
Giả sử thủ tục tt gọi là thực thi. hãy chạy từng bước và cho kết quả 2 thủ tục trên.
Bro nào sẵn lòng giúp đỡ thì giải giùm em và giải thích hộ em nhé. Cám ơn nhiều :x
a = a + b
b = a + b
End Sub
Sub tt()
Dim a as integer
Dim b as integer
a = 3
b = 4
Call p(a,a)
Msgbox "a =" & a & vbCrl.f & "b =" & b
Call p(b,a-b)
Msgbox "a =" & a & vbCrl.f & "b =" & b
End Sub
Giả sử thủ tục tt gọi là thực thi. hãy chạy từng bước và cho kết quả 2 thủ tục trên.
Bro nào sẵn lòng giúp đỡ thì giải giùm em và giải thích hộ em nhé. Cám ơn nhiều :x