题目中指出是哪四个相邻数改怎么写代码？
救救孩子吧

相邻数是什么概念？是17 18 19那种吗？

这就是把原始数组中的每四个相邻数字求和，组成了一个新的数组
比如b(1)=a(1)+a(2)+a(3)+a(4)
然后找出新数组b中的最大值
现在的写法，x就表示了最大值本身，只要改成x表示最大值的下标：
If b(x) < b(i) Then x = i
就可以轻松找出是哪四个数字之和最大了
另外，谁教你这么用ReDim的？完全没必要，只要在进入循环之前用一次不带Preserve的ReDim就可以了；甚至这题目本身都没必要用动态数组……