VB編程中,怎麽把壹個字母換成另壹個字母.

if mid(text1.text,i,1)="A" then

result=result+"U"

elseif mid(text1.text,i,1)="G"

result=result+"C"

elseif mid(text1.text,i,1)="C"

result=result+"G"

elseif mid(text1.text,i,1)="T"

result=result+"A"

end if

next i

PS:此題也可以用 select case來改造，代碼會更簡單