以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程序。 OptionBase 1 Private Sub Command1_Click(Index As Integer)

admin2012-03-22  37

问题 以下程序的功能是将多维数组a(1 To m,1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中,完成该程序。
   OptionBase 1
   Private Sub Command1_Click(Index As Integer)
   Dima(1 To 20,1 To 10)
   Dim b()
   ReDimb(1 To 200)
   For i=1 To 20
   For j=1 To 10
   A(i,j)=i*j
   Next j
   Next i
   Tran a,20,10b
   End Sub
   Sub Tran(a()an,n,b())
   Dim i As Integer
   For i=1 To m
   For j=1 To n
   ______=a(i,j)
   Next j
   Next i
   End Sub

选项

答案b((i-1)*n+j)

解析
转载请注明原文地址:https://jikaoti.com/ti/hNO0FFFM
0

最新回复(0)