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

Question

请高手指点，最好具体一点，举个例子

Answer 1

可能是你输入错误吧，答案d应该是
form1.fun
i,(j)
'（也就是fun和i之间是有个空格的）
这个最后的(j)是为了让j参与一次虚拟的四则运算（这里括号()是作为运算符来处理的），这样运算结果vb会自动根据fun过程的参数类型（即single）进行转换。如果不加()，则vb会提示你类型不符（因为j是integer，不是single）。
具有同样效果的处理方式还有：
form1.fun
i,j+0
原理同样
其实标准的做法是要显式进行格式转换：
form1.fun
i,csng(j)

Answer 2

是说定义函数吗?

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

Answer 3

我恰好知道，就告诉你了
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