【原创】轻松反转基因序列，UT转换，互补配对。自己编写的小软件，简单实用。发放源代码！！！

在核酸的研究中我们总会遇到这个问题：将一段RNA序列中的U改写成T。将一段5’-3’的序列反过来书写成3’-5’。以及求一个片段的互补序列。这些事情是很简单的，但是十分消耗精力，U变T可以用Word轻松实现，反写序列据说用Excel可以实现，互补序列用各种引物设计软件。或者引物设计软件可以解决以上所有问题，但是操作还是不够简便，需要反复粘贴。这令需要设计大量引物的我深感不悦，以至于操起高中的VB课本自己编写了一个软件，一键式解决以上几个问题。VB对字符串的处理能力是十分强大的，有文献成我们常用的几个引物设计软件就是用VB编写的。我自己编写的这个软件十分简单，界面如下：

代码呈上：

Private Sub Command1_Click()

Dim j As Integer, c As String

c = Text3.Text

c = Replace(c, "A", "Q")

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

c = Replace(c, "Q", "T")

c = Replace(c, "C", "W")

c = Replace(c, "G", "C")

c = Replace(c, "W", "G")

c = Replace(c, "a", "q")

c = Replace(c, "t", "a")

c = Replace(c, "q", "t")

c = Replace(c, "c", "w")

c = Replace(c, "g", "c")

c = Replace(c, "w", "g")

Text1.Text = c

End Sub

Private Sub Command2_Click()

Dim i As Integer, a, b As String

a = Text1.Text

For i = 1 To Len(a)

b = Mid(a, i, 1) + b

Next i

Text2.Text = b

End Sub

Private Sub Command3_Click()

Dim k As Integer, d As String

d = Text4.Text

d = Replace(d, "U", "T")

d = Replace(d, "u", "t")

Text3.Text = d

End Sub

虽然不是很专业，代码不是最优化的，但是功能上已经无可挑剔了。这个软件在我的工作中帮我节省了不知多少时间和精力，希望对大家有帮助。

做好的在附件里哦~