VB如何实现反向互补序列,如将CGCCAGGGTTTTCCCAGTCACGAC 转换为:GTCGTG...答:Private Sub Form_Load()Dim A As String Dim B As String A = InputBox("请输入碱基序列:", "输入!")A = UCase(A) '变成大写 Rem 碱基互补配对 A = Replace(A, "C", "1")A = Replace(A, "T", "2")A = Replace(A, "G", "3")A = Replace(A, "A", "4")A = ...