> [填空题] 以下程序的功能是:将一维数组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 (8) For j=1 To (9) B(i,j)= (10) Print B(i,j) Next j Print Next i End Sub
问题:
发布时间:2022-07-01
[填空题] 以下程序的功能是:将一维数组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 (8) For j=1 To (9) B(i,j)= (10) Print B(i,j) Next j Print Next i End Sub