以下程序的功能是:将一维组 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_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