填空题以下程序的功能是：将一维组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),……,把A(91)到A (100)依次赋给B(10,1)到B(10,10)。请填空。 Option Base 1 Private Sub Form_Click1 Dim i As Integer,J As Integer Dim A(1 To 100)As Integer Dim B(1 To 10,1 To 10)As Integer For i=1 To 100 A(i)=Int(Rnd*100) Next i For i=1 To 2 For J=1 To 3 B(i,j)= 4 Print B(i,j)； Next j Print Next i End Sub

1、
2、
3、

【正确答案】 1、10, 2、10, 3、A((i-1)*10+j)

【答案解析】根据题意,在嵌套循环中,i为外循环变量,循环次数为10次,控制数组B的行值,j为内循环变量,循环次数为10次,决定着数组B的列值,然后根据数组下标的关系,可写出(i-1)*10+j表达式,从而相应地对数组B进行赋值。二维数组B的元素与一维数组A的元素存在这样的对应关系：B(i,j)=A((i-1)*10+j),如B(1,1)=A(1)、B(2,1)=A(11)、B (10,1)=A(91)。