Question

请问一下这个VB的程序设计题目怎么编写程序代码。

按下列要求建立A（5,5）矩阵，将其显示在窗体上，要求如下：
1.主对角线上元素均为0
2.上三角上的元素均为1
3.下三角上的元素均为2
使用数组。
输出是像下面这样的：
0 1 1 1 1 1
2 0 1 1 1 1
2 2 0 1 1 1
2 2 2 0 1 1
2 2 2 2 0 1
2 2 2 2 2 0

程序代码是怎么编的？我写的老是错误……
先谢谢了……

Answer 1

Private Sub Form_Load()
Dim a(1 To 6, 1 To 6) As Integer
Me.AutoRedraw = True
For i = 1 To 6
For j = 1 To 6
If i = j Then
a(i, j) = 0
ElseIf i < j Then
a(i, j) = 1
Else
a(i, j) = 2
End If
Next j, i
For i = 1 To 6
For j = 1 To 6
Print a(i, j);
Next j
Print
Next i
End Sub

Answer 2

Dim a(5, 5)
For i = 0 To 5
For j = 0 To 5
If i = j Then a(i, j) = 0
If i > j Then a(i, j) = 2
If i < j Then a(i, j) = 1
Next
Next
For i = 0 To 5
For j = 0 To 5
Print a(i, j);
Next
Print
Next