主题：周末了 人气困了 出个题目 刺激一下你！

楼主题目不严谨，应该说A和a对应数字1……

来个全小写的

Dim jz As String = "i love foxtable"
Dim tm As String
Dim i As Integer
For i=0 To jz.Length-1
    tm=tm+iif(Asc(jz(i))>=97 And asc(jz(i))<=122,cstr(Asc(jz(i))-96),jz(i))
Next

jz=tm
output.show(jz)

用上面的对应关系

Dim sz As String = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26"
Dim zm As String = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
Dim jz As String = "i love foxtable"
Dim sztm(),zmtm() As String
sztm = sz.Split(",")
zmtm = zm.split(",")
Dim i As Integer
For i=0 To 25
    jz=jz.Replace(zmtm(i),sztm(i))
Next
output.show(jz)

哈哈，c版对狐表真是非常熟悉，我找这个转小写的很久了，就没找到。