VB考试编程题目:生成一个8*8的二维数组，这个数组是一个左下角元素为5
发布网友
共1个回答
热心网友
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
