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"?