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

代码如下：

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

扩展资料

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

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

dim a(25) as arr?? （记不清楚了，自己查一下，这里是定义一个数组）
dim i,j as intger

for i= 0 to 24
a(i)=i+1
next

for i = 1 to 5
for j= 1 to i
print a((i -1) * 5 + j-1)
print " "
next j
print vbcrlf
next i

所要求的程序如下，请采纳：

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

      If j <= i Then Print a(i, j);

    Next j

    Print

  Next i

End Sub