穷举法-VB