VB.NET初学者作品! 用sub 子过程做的! 一个很简单的程序