下列程序的功能是:把一维数组a的元素,每5个元素赋值给二维数组b的每一行。 Private SubCommand1_Click() Dim a(25)As Integer,b(5,5)As Integer For i=1 To【 】

admin2009-03-15  28

问题 下列程序的功能是:把一维数组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)。
转载请注明原文地址:https://kaotiyun.com/show/0G1p777K
0

最新回复(0)