题目内容:
下列程序的功能是:把一维数组a的元素,每5个元素赋值给二维数组b的每一行。
Private SubCommand1_Click()
Dim a(25)As Integer,b(5,5)As Integer
For i=1 To 【10】
a(i)=Int(Rnd*25)
Print a(i);
Next i
For i=1 To 5
For i=1 To 5
b(i,j)= 【11】
Print b(i,j);
Next j
Next i
End Sub
参考答案:【答案仅供学习,请勿对照自行用药等】
答案解析: