![[填空题] 以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)～A(10)依次赋给B(1，1)～B(1，10)，把A(11)～A(20)依次赋给B(2](http://www.mshxw.com/aiimages/31/247809.png "[填空题] 以下程序的功能是：将一维数组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
参考答案：
(8)10 (9)10 (10)A((i-1)*10+j)问题解析:
从循环体内的B(i，j)可以看出循环控制变量i和j用于控制二维数组B的下标，二维数组B的每维大小为10，所以第[8]空和第[9]空均填写10；第[10]空所在的语句的作用是读取一维数组A的各个元素并赋给二维数组B，因此根据题目要求推算一维数组A的下标和二维数组B的下标的对应公式，第[10]空应填写A((i-1)*10+j)。
