Dim A(6) As Integer
Dim I, J As Integer
For I = 1 To 3
For J = 3 To 1 Step -1
A(I + J) = I * J + A(I + J)
Next J
Next I
For I = 0 To 6
Print A(I)
Next I

求数值中最大值元素的下标是几，最大值是几

循环9次，i从1到3，j从1到3（虽然实际上是从3到1，但是顺序没有影响），每次进行以下操作：
对于下标为i+j的元素，将i*j的值累加到该元素中
比如：当i=1，j=1时，i+j=2，i*j=1，因此令a(2)的值增加1
按此操作之后，所有非0的元素值如下：
a(2)=1*1=1
a(3)=1*2+2*1=4
a(4)=1*3+2*2
+3
*1=10
a(5)=2*3+3*2=12
a(6)=3*3=9