[填空题] 下列程序的功能是:把一维数组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 Print For i=1 To 5 For i=1 To 5 b(i,j)= 【11】 Print b(i,j); Next j Print Next i End Sub
[填空题] 下列程序的功能是:把一维数组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 Print For i=1 To 5 For i=1 To 5 b(i,j)= 【11】 Print b(i,j); Next j Print Next i End Sub
[10]25 [11]a((i-1)*5+j)
本题首先利用一维数组存储25个随机数,因此空[10]中填写25。下一步,将一维数组中的数据按照行列的顺序存储到二维数组中,i和j分别控制行和列,即将a((i-1)*5+j)的元素赋值给b(i,j)。
VIP截止日期:2025-01-01 23:45:39
←请使用支付宝扫码支付VIP截止日期:2025-01-01 23:45:39
←请使用微信扫码支付