[Reto] Show My Source Code. página 5

Sub main(): a = "Sub main(): a = ": b = ": MsgBox a & Chr$(34) & a & Chr$(34) & Chr$(58) & Chr$(32) & Chr$(98) & Chr$(32) & Chr$(61) & Chr$(32) & Chr$(34) & b & Chr$(34) & b: End Sub": MsgBox a & Chr$(34) & a & Chr$(34) & Chr$(58) & Chr$(32) & Chr$(98) & Chr$(32) & Chr$(61) & Chr$(32) & Chr$(34) & b & Chr$(34) & b: End Sub

HOLA!!!

Mi codigo es un poco diferente a los suyos

(Y a mi gusto queda mas lindo

con los VbTab y demas XD)
[Conste que no consulte fuentes externas]

[00 LINEAS]Codigo 1:

Código

[15 LINEAS]Codigo 2: (Con declaraciones)

Código

Private Sub Form_Load()
Dim PRIN As String
Dim X As Long
    Form1.AutoRedraw = True
    Const CODIGO As String = "Private Sub Form_Load()$Dim PRIN As String$Dim X As Long$    Form1.AutoRedraw = True$    Const CODIGO As String = +%+$    For X = 1 To Len(CODIGO)$        '36*vbNewLine$        '37*CODIGO$        '43*Chr(34)$        '39*+If Mid(CODIGO, X, 1) = Chr(+$        '42*+) Then PRIN = PRIN & +$        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = " & " Then PRIN = PRIN & Mid(CODIGO, X, 1)$    Next$    Print PRIN$End Sub"
    For X = 1 To Len(CODIGO)
        If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
        If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
        If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
        If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
        If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
    Next
    Print PRIN
End Sub

[13 LINEAS]Codigo 3: (Sin declaraciones)

Código

Private Sub Form_Load()
    Form1.AutoRedraw = True
    CODIGO = "Private Sub Form_Load()$    Form1.AutoRedraw = True$    CODIGO = +%+$    For X = 1 To Len(CODIGO)$        '36*vbNewLine$        '37*CODIGO$        '43*Chr(34)$        '39*+If Mid(CODIGO, X, 1) = Chr(+$        '42*+) Then PRIN = PRIN & +$        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = +&+ Then PRIN = PRIN & Mid(CODIGO, X, 1)$    Next$    Print PRIN$End Sub"
    For X = 1 To Len(CODIGO)
        If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
        If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
        If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
        If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
        If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
        If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
    Next
    Print PRIN
End Sub

GRACIAS POR LEER!!!