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