A-A+

下列程序的功能是：把一维数组a的元素每5个元素赋值给二维数组b的每一行。 Private

2022-08-12 20:22:24 问答库阅读 197 次

问题详情

下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer，b(5，5)As Integer For i=1 To【】 a(i)=Int(Rnd*25) Print a(i)； Next i Print For i=1 To 5 For i=1 To 5 b(i，j)=【】 Print b(i，j)； Next j Print Next i End Sub

请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：25 a((i-1)*5+j)
本题首先利用一维数组存储25个随机数，因此空[10]中填写25。下一步，将一维数组中的数据按照行列的顺序存储到二维数组中，i和j分别控制行和列，即将a((i-1)*5+j)的元素赋值给b(i，j)。