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
貌似做不了，说说你为什么要这么做，肯定有别的方法解决。
干嘛要这样，没必要吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024