发布网友 发布时间:2022-04-24 11:27
共1个回答
热心网友 时间:2023-10-11 04:30
Private Sub Form_DblClick()
Dim a(7, 7) As Integer
Dim i As Integer
Dim j As Integer
For i = 0 To 7
For j = 0 To 7
If i + j = 7 Or i = j Then
a(i, j) = 5
Else
a(i, j) = 0
End If
Debug.Print a(i, j);
Next
Debug.Print
Next
End Sub