VB编写函数fun