以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(i)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给 B(2,1)到B(2,10),……,把A(91)到A(100)依次赋给B

admin2009-03-16  31

问题 以下程序的功能是:将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来,要求把A(i)到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【  】
B(i,j)=【  】
Print B(i,j);
Next j
Print
Next i
End Sub

选项

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

解析 最外层的循环负责控制二维数组B()的行数,内层循环负责控制二维数组B()的列数,将数组A()的A(1)到A(10)依次赋给数组B()的第一行,把A(11)到A(20)依次赋给B()的第二行,……。
转载请注明原文地址:https://jikaoti.com/ti/edq0FFFM
0

随机试题
最新回复(0)