Question

看图，visual basic剩下两个方向的三角矩阵怎么写？

For i = 1 To 5For j = 1 To 5 - i + 1【这个1 to 5-i+1的循环是怎样循环的呢？】a(i, j) = 5 * i + jPrint a(i, j);NextPrintNext





Answer 1

Private Sub Form_Load()
Dim i As Integer, j As Integer, num As Integer, strTemp As String
'--第一个图
For i = 1 To 5 '--循环 行数
num = 5 * i + 1 '--每行的第一个数
strTemp = "" '--用来拼接 每行显示的数据
For j = 0 To i - 1 '--循环列数
strTemp = strTemp & (num + j) & " "
Next
Debug.Print strTemp & vbCrLf
Next
'--第二个图
For i = 1 To 5 '--循环 行数
num = 5 * i + 1
strTemp = ""
For j = 1 To 5 - i + 1 '--循环 列数.意思-循环第j行的 5-j+1 个数
strTemp = strTemp & (num + j - 1) & " "
Next
Debug.Print strTemp & vbCrLf
Next
End Sub