VB如何实现反向互补序列，比如将CGCCAGGGTTTTCCCAGTCACGAC转化为GTCGTGACTGGGAAAACCCTGGCG。

暗淡？答？作为？线

暗淡？b？作为？线

答？=?InputBox("请输入基本序列:"，？“进入！”)

答？=?UCase(A)'变成大写。

雷姆？碱基互补配对

答？=?替换(A，？“C”，？"1")

答？=?替换(A，？“T”，？"2")

答？=?替换(A，？“G”，？"3")

答？=?替换(A，？一个。"4")

答？=?替换(A，？"1",?“G”)

答？=?替换(A，？"2",?“A”)

答？=?替换(A，？"3",?“C”)

答？=?替换(A，？"4",?“T”)

雷姆？反向

为了什么？我？=?Len(A)？-?1?去哪？1?一步？-1

b？=?b？& amp？Mid(A，？我，？1)

下一个？我

雷姆？输出

打电话？InputBox("反向碱基序列是:"，？“输出反向碱基序列！”,?b)

结束

结束？潜水艇

-

把上面的代码复制到代码框里看看效果，有问题再说。