Question

生成一个10×10的二维数组,要求该二维数组位于两条对角线上的元素均1,其余均为0,

Answer 1

Option Base 1

Dim a(10,10) As Integer

Private Sub Form_Load()

Show

Dim i, j As Integer

For i = 1 To 10

For j = 1 To 10

If i = j Then

a(i, j) = 1

Else

a(i, j) = 0

End If

Print a(i, j);

Next j

Print

Next i

End Su