用vb程序设计输出一个右上三角元素（含对角线）为1,其余元素为0 的5×5矩阵.
问题描述：
用vb程序设计输出一个右上三角元素（含对角线）为1,其余元素为0 的5×5矩阵.
答
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