作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/11/23 20:47:50
用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