1. (2019高二下·临河期中) 打印矩阵

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF

                A（I，J）=1

             

               A（I，J）=0

              END IF

              PRINT A（I，j）;

             

            PRINT

             

        END SUB