![[填空题] 下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)](http://www.mshxw.com/aiimages/31/255398.png "[填空题] 下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)")
[填空题] 下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。
Private SubCommand1_Click()
Dim a(25)As Integer，b(5，5)As Integer
For i=1 To 【10】
a(i)=Int(Rnd*25)
Print a(i)；
Next i
Print
For i=1 To 5
For i=1 To 5
b(i，j)= 【11】
Print b(i，j)；
Next j
Print
Next i
End Sub
参考答案：
[10]25 [11]a((i-1)*5+j)问题解析:
本题首先利用一维数组存储25个随机数，因此空[10]中填写25。下一步，将一维数组中的数据按照行列的顺序存储到二维数组中，i和j分别控制行和列，即将a((i-1)*5+j)的元素赋值给b(i，j)。
