Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next i

问题描述:

Dim x(3,5) As Integer For i = 1 To 3 For j = 1 To 5 x(i,j) = x(i - 1,j - 1) + i + j Next j Next i
print (3,4)

x(3,4)=15
因为:
x(3,4)=x(2,3)+3+4
x(2,3)=x(1,2)+2+3
x(1,2)=x(0,1)+1+2
所以
x(3,4)=x(0,1)+1+2+2+3+3+4
=0+1+2+2+3+3+4
=15