VB数组求阶乘和n个 dim