您的源程序稍稍有点小bug，调整后可以运行，结果如下：x=19，n=27
1、dim a 这句话不完整，应该是 Dim a as Variant
2、数组a有六个数字，应该是 a(0) - a(5)，如果用题干里面的1-6，那么运行到a(6)的时候，系统会出错，提示：下标越界。
3、Print 这句话系统不会执行，一般用Debug.Print 或者用 Msgbox输出，我这里为了截图方便，使用的是Debug.Print
