请问vb中的fun函数怎么用？？

是说定义函数吗?

Public Function Test(Num%) As Boolean '定义函数返回值为布尔型,接收传递的数值变量
Test = (Num>0) '如果Num>0则函数Test的值为True,反之为False
End Function

我恰好知道，就告诉你了
Private function getmmax(a%,b%)
getmax=iif(a>b,a,b)
end function

调用
……command1_click（）
dim x,y,z as integer
x=2:y=5
z=getmax(x,y)
msgbox z
end sub