s="ABBACDDBA "ForI=6To2,paso-2 x=Mid(s,I,I) y=izquierda(s,I) z=rigt(s,I) Siguiente I Msgbox z Fin sub

¿Privado?ABBACCDBA"

Para?I?=?6?A?2?Paso?-2

'x?=?Mid(s, ?I,?I)

'y?=?Left(s,?I)

'From?MsgBox?z?'

z?= ?Right(s,?I)

'Se puede ver a partir de esto que cada vez que el ciclo continúa, el valor de z? sobrescribirá el valor anterior

' Por lo tanto, hay es solo un bucle Solo funciona la última vez, y se sabe que el I de cada ciclo

' es ?6,4,2, y la última vez es ?2?, entonces ?z. =Derecha(s,2)

Los dos lados derechos de 'z?ABBACDDBA", es decir, "BA".

Siguiente paso: ¿

MsgBox?"BA"?