VB中的函数,可实现弹出窗口