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

For j=1 To (9)

B(i,j)= (10)

Print B(i,j)

Next j

Print

Next i

End Sub