sub a() as 数据类型
end sub ‘这是a 函数
sub b() as 数据类型
end sub '这是b函数
调用:
取一个a()的值a(i)
b(a(i))
'新建窗体加入按钮,测试
private sub command1_click()
call a 5
end sub
private function a (byval i as integer) as integer
a = i
end function
private function b (byval a as integer) as integer
msgbox a
end function
貌似做不了,说说你为什么要这么做,肯定有别的方法解决。
干嘛要这样,没必要吧