以下程序的功能是：将一维数组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 Print Next i End Sub