A = 4

    IF A<4 Then

      A = A-2

    Else

      Print A

    EndIF      

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF {#blank#}1{#/blank#}

                A（I，J）=1

              {#blank#}2{#/blank#}

               A（I，J）=0

              END IF

              PRINT A（I，j）;

              {#blank#}3{#/blank#}

            PRINT

              {#blank#}4{#/blank#}

        END SUB

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。