VB编程输出对角线元素为0,上三角元素为1,下三角元素为1的5×5方阵如下图。(代码写在form1

2025-02-27 21:06:20
推荐回答(1个)
回答1:

Private Sub Form_Click()
Dim i, j
For i = 1 To 5
    For j = 1 To 5
        If i <> j Then
            Print 1;
        Else
            Print 0;
        End If
    Next
    Print
Next
End Sub