VB程序 建立一个8*8的矩阵,该矩阵的两条对角线上的元素都为1,其余元素都为0 求代码和具体操作
答案:1 悬赏:0
解决时间 2021-12-22 00:33
- 提问者网友：清茶柒夏
- 2021-12-21 19:23
VB程序 建立一个8*8的矩阵,该矩阵的两条对角线上的元素都为1,其余元素都为0 求代码和具体操作
最佳答案
- 二级知识专家网友：虚伪的现实
- 2021-12-21 19:50
添加一个command1按钮。本题主要利用数组特点，主对角线上i=j，副对角线i+j=9，根据这点判断，从而确定赋值1还是0，代码如下：
Private Sub Command1_Click()
Dim a(8, 8) As Integer
For i = 1 To 8
For j = 1 To 8
If i = j Or i + j = 9 Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Print a(i, j);
Next j
Print
Next i
End Sub
Private Sub Command1_Click()
Dim a(8, 8) As Integer
For i = 1 To 8
For j = 1 To 8
If i = j Or i + j = 9 Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Print a(i, j);
Next j
Next i
End Sub
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯