dim AG(),ABG(21, 21)
 AG = Array(0, 0.027815, 0.189065, 0.0793, 0.141239, 0.3325, 0.0885, 0.034369, 0.038953, 0.021, 0.256692, 0.281835, 0.332267, 0.366911, 0.289731, 0.337542, 0.383381, 0.427354, 0.469659, 0#, 0#)
    For i = 1 To 21
 For j = 1 To 21
  ABG(i, j) = (AG(i) + AG(j)) / 2
  Next j
  Next i
AG()为一维数组，通过Array输入21个数值，为何显示j=22，且AG()下标越界

array给数组赋值，数组下标从0开始，起始下标不是1。

AG数组为：AG（0） ....AG(20)

for 循环内AG（i-1)、AG（j-1）

for j=1to 21 默认步长1，当j=21，再next时，j=22，此时跳出for循环。

[此贴子已经被作者于2018-5-5 17:51编辑过]

前面用了 option base 1,不是从1开始了吗

如果在同一模块定义了 Option Base 1，那么上面的写法没问题。

我的程序运行正常，没有报错。
Option Base 1

Private Sub Command1_Click()
Dim AG(), ABG(21, 21)
 AG = Array(0, 0.027815, 0.189065, 0.0793, 0.141239, 0.3325, 0.0885, 0.034369, 0.038953, 0.021, 0.256692, 0.281835, 0.332267, 0.366911, 0.289731, 0.337542, 0.383381, 0.427354, 0.469659, 0#, 0#)
    For i = 1 To 21
 For j = 1 To 21
  ABG(i, j) = (AG(i) + AG(j)) / 2
  Next j
  Next i
End Sub

Dim ABG(1 tO 21, 1 to 21) '这样将没有问题了。

j=22时ABG(i, j) = (AG(i) + AG(j)) / 2并没运行！