VB的函数代码，可以根据的函数说明使用，简单方便。