VB如何实现反向互补序列，如将CGCCAGGGTTTTCCCAGTCACGAC 转换为：GTCGTGACTGGGAAAACCCTGGCG

Question

财富值有限，请高手指点，非常感谢！！

Answer 1

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 = Replace(A, "1", "G")

    A = Replace(A, "2", "A")

    A = Replace(A, "3", "C")

    A = Replace(A, "4", "T")

    

    Rem 反向

    

    For i = Len(A) - 1 To 1 Step -1

        B = B & Mid(A, i, 1)

    Next i

    

    Rem 输出

    

    Call InputBox("反向碱基序列为：", "输出反向碱基序列！", B)

    

    End

End Sub

------------------------------

复制上述代码至代码框运行看下效果吧，有问题再说.

Answer 2

设个字符串数组 大小为序列的长度 挨个读出每一个字符 用互补的替换了 然后再反向打印出来

追问

非常感谢，能否给出参考代码？谢谢！

追答

不会VB。。。 给你C的代码看看吧。。。
int i,n;
char a[1000]; *假设有1000长度*
gets(a); *输入序列*
n=strlen(a); *计算序列的长度*
for(i=0;i=0;i--) *反向输出*
printf("%c",a[i]);
}

Answer 3

用contig 1软件将上述两段序列拼接后，用拼接结果的反向互补序列进行BLAST。BLAST结果显示，你的菌株与动物乳杆菌，鼠乳杆菌，乳酸乳球菌Max ident均为96%。2011/8/6 7:38:15

Answer 4

不在引物上，应该没啥问题。如果PCR产物特异性差，建议适当提高退火温度或者换用保真度高的酶。
如果非要认为模板特殊结构有影响的话，不妨试着调整一下PCR 缓冲液的成分，针对不同的结构有专用缓冲液。
祝楼主好运！2011/8/6 18:01:42