Question

vb中将1到25的自然数依次赋值给5*5这个二维数组并且输出数组的下三角的

vb中将1到25的自然数依次赋值给5*5这个二维数组并且输出数组的下三角的代码

Answer 1

Private Sub command1_click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

a(i, j) = (i - 1) * 5 + j

Print Tab(4 * j); a(i, j);

Next j

Next i

Print: Print

For i = 1 To 5

For j = 1 To i

a(i, j) = (i - 1) * 5 + j

Print Tab(4 * j); a(i, j);

Next j

Next i  

End Sub