Question

用vb程序设计输出一个右上三角元素（含对角线）为1，其余元素为0 的5×5矩阵。

Answer 1

Dim a(5, 5)
Private Sub Command1_Click()
'右，倒三角形
For i = 0 To 4
For j = 0 To 4
If j >= i Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Print a(i, j),
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
'右，三角形
For i = 0 To 4
For j = 0 To 4
If 4 - j <= i Then
a(i, j) = 1
Else
a(i, j) = 0
End If
Print a(i, j),
Next j
Print
Next i
End Sub