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

[填空题] 以下程序的功能是：将一维数组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 (9)

　　　　　For j=1 To 10

　　　　　　　B(i,j)= (10)

　　　　　　　Print B(i,j)；

　　　　　Next j

　　　　　Print

　　　Next　i

End Sub

A((i-1)*10+j)