主题：【求助】vb 字母转化为数字
cjhcjh
[专家分：0] 发布于 2008-10-30 19:43:00
现在把1234四个数随机排列后输出，但输出的对应关系为
1=A 2=C 3=G 4=T
用VB 编程
解释一下，就是说假如输出4个数1234，1243，1324，3214
实际输出 ACGT,ACTG,AGCT,GCAT 2008
回复列表 （共7个回复）
沙发
artless [专家分：1490] 发布于 2008-10-30 22:04:00
1234=acgt
1243=actg
1324=agct
3214=gcat
2008?
板凳
一江秋水 [专家分：9680] 发布于 2008-10-31 07:51:00
可以写一个简单的函数，输入参数为4位数字，返回转换好的字符串：
Function NumToChr(n As Integer) As String
Dim i As Integer, st As String, NumA(1 To 4) As String
st = Format(n)
For i = 1 To 4
Select Case Mid$(st, i, 1)
Case "1": NumA(i) = "A"
Case "2": NumA(i) = "B"
Case "3": NumA(i) = "C"
Case "4": NumA(i) = "D"
End Select
Next
st = ""
For i = 1 To 4: st = st & NumA(i): Next
NumToChr = st
End Function
3 楼
老大徒伤悲 [专家分：29120] 发布于 2008-11-06 16:21:00
我看这好像是基因的碱基配对？
我的建议是定义一个枚举类型的变量。然后你随机后，直接得到变量的值。
4 楼
btxdlibin [专家分：2430] 发布于 2008-11-08 21:10:00
Replace
5 楼
xuranchun [专家分：270] 发布于 2008-11-09 17:56:00
if text1.text="1"then text2.text="A"
最简单的条件语句～
6 楼
天天学习 [专家分：4570] 发布于 2008-11-15 18:57:00
老大就是老大啊,从ATGC看出是碱基配对,渊博啊~~~
7 楼
老大徒伤悲 [专家分：29120] 发布于 2008-11-16 13:45:00
唉，当年初中学的尽是一辈子用不到的东西，想忘记，却也是那么困难。哈哈哈哈
我来回复
您所在位置：