用VB编程求解约瑟夫环的方法