如何用VB实现直线的Cohen_SutherLand裁剪算法?