vb版约瑟夫算法