题目

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

提问时间：2021-01-08

答案

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