vb试做的东西。希望大家喜欢，有什么地方不好的指出