vb-枚举算法