用VB程序将1到25的自然数依次赋值给5*5的二维数组并且输出数组的下三角。

Question

如题所述

Answer 1

代码如下：

Private Sub Command1_Click()

    Dim a(1 To 6, 1 To 6) As Integer
For i = 1 To 5
For j = 1 To 5
tmp = 99
If i < tmp Then
tmp = i
End If
If j < tmp Then
tmp = j
End If
If 6 - i < tmp Then
tmp = 6 - i
End If
If 6 - j < tmp Then
tmp = 6 - j
End If
a(i, j) = tmp
Next j
Next i

    For i = 1 To 5
For j = 1 To 5
Picture1.Print Tab(j * 5); a(i, j);
Next j
Picture1.Print
Next i
End Sub1

扩展资料

数组，是有序的元素序列。若将有限个类型相同的变量的集合命名，那么这个名称为数组名。组成数组的各个变量称为数组的分量，也称为数组的元素，有时也称为下标变量。用于区分数组的各个元素的数字编号称为下标。

数组是在程序设计中，为了处理方便， 把具有相同类型的若干元素按无序的形式组织起来的一种形式。这些无序排列的同类数据元素的集合称为数组。