[填空题] 请填写下列空白,以实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。 Private Sub Command1 Click() Dim s(6,6) For i=1 To 6 For j=1 To 6 If i=j Then 【 】 Else 【 】 End If Print 【 】 Next j Print Next i End Sub
[填空题] 请填写下列空白,以实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。 Private Sub Command1 Click() Dim s(6,6) For i=1 To 6 For j=1 To 6 If i=j Then 【 】 Else 【 】 End If Print 【 】 Next j Print Next i End Sub
s(i,j)=1
此程序段开始声明了一个二维数组,用两个For…Next语句嵌套使用为其赋值,当满足条件i = j时,s(i,j)=1,当不满足i=j时,s(i,j)=0;最后输出数据,即在屏幕上输出6×6阶矩阵。
VIP截止日期:2025-01-01 12:30:25
←请使用支付宝扫码支付VIP截止日期:2025-01-01 12:30:25
←请使用微信扫码支付