问题
填空题
以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(i)到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_Click()
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 （）
For j＝1 To （）
B(i,j)＝（）
Print B(i,j)；
Next j
Next i
End Sub
答案
参考答案：10；10；A(10*(i-1)+j)
解析：
[评析] 最外层的循环负责控制二维数组B()的行数，内层循环负责控制二维数组B()的列数，将数组A()的A(1)到A(10)依次赋给数组B()的第一行，把A(11)到A(20)依次赋给B()的第二行，……。