¿Cómo realiza VB la secuencia complementaria inversa, como convertir CGCCAGGGTTTTCCCAGTCACGAC en GTCGTGACTGGGAAAACCCTGGCG?

¿Atenuado? ¿respuesta? ¿Como? Línea

¿Oscura? ¿b? ¿Como? Línea

¿Respuesta? =?InputBox("Ingrese la secuencia básica:",? "¡Ingrese!")

¿Respuesta? =?UCase(A)' se vuelve mayúscula.

¿Rem? Emparejamiento de bases complementarias

¿Respuesta? =?Reemplazar(A,?"C","1")

¿Respuesta? =?Reemplazar(A,?"T","2")

¿Respuesta? =?Reemplazar(A,?"G","3")

¿Respuesta? =?Reemplazar(A,?A."4")

¿Respuesta? =?Reemplazar(A,?"1",?"G")

¿Respuesta? =?Reemplazar(A,?"2",?"A")

¿Respuesta? =?Reemplazar(A,?"3",?"C")

¿Respuesta? =?Reemplazar(A,?"4",?"T")

Rem? Reverso

¿Para qué? ¿I? =?Len(A)? -?1?¿Adónde ir? 1? -1

b? =?b? y amplificador? Medio(A,?I,?1)

¿Siguiente? Yo

¿Rem? Salida

¿Llamar? InputBox("La secuencia de bases inversa es:",? "¡Genere la secuencia de bases inversa!",?b)

Fin

Fin? Submarino

-

Copie el código anterior en el cuadro de código para ver el efecto y avíseme si tiene alguna pregunta.