填空题：以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(IO)依次赋给

以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(IO)依次赋给B(1，1)到B(1，1O)，A(11)到A(20)依次赋给B(2，1)到B(2，10)，……，把A(91)到A(100)依次赋给Bt0，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
DimB(1 T0 10，1 T0 10)AsInteger
For i=1 To 100
A(i)=Int(Rnd * 100)
Next i
For i=1 To U
Forj=1 T0【1】
B(i，j)= 【2】
Print B(i，j)；
Next j
Print
Next i
End Sub