以下程序的功能是:将一维数组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(

admin2012-03-22  35

问题 以下程序的功能是:将一维数组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  ______
        For j=1 To 10
          B(i,j)=  _______
          Print B(i,j);
        Next j
        Print
      Next i
   End Sub

选项

答案10 A((i-1)*10+j)

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

最新回复(0)