AQUI UN EJEMPLO DEL LIBRO DEL SR. FRANCISCO CHARTE, COLARORADOR ESPECIAL DE ESTE PORTAL:
Private Sub Command1_Click()
Dim I As Integer, J As Integer, K As Integer
For I = 0 To 31 ' 32 filas
Print I * 8; "-> ", ' Primer número de la fila
For K = 0 To 7 ' por 8 columnas
For J = 7 To 0 Step -1 ' Cada número tiene 8 bits
' I*8+K es el número a comprobar, de 0 a 255
' 2^J nos dará un número cuyo bit J esté a 1
' y los demás a 0.
' El resultado de la expresión será True
' si dicho bit está a 1 en I*8+K, y False
' en caso contrario
If I * 8 + K And 2 ^ J Then Print "1"; Else Print "0";
Next
Print , ' Ir al próximo punto de tabulación
Next
Print ' Ir a la siguiente línea
Next
End Sub
