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

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"   

 

请用数字表示：I Love foxtable   

 

说明：

a  对应数字 1

b 对应数字 2

.....

l  对应数字 12

......

z 对应数字 26

 

正确答案：9,12,15,22,5,6,15,24,20,1,2,12,5

 

请写出代码···    .......   呵呵。。。。。。。

楼主题目不严谨，应该说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)

用ASCII码转换效率比较高。

a = 97 b = 98

A = 65 B = 66

 

Dim zm As String = "abcdefghijklmnopqrstuvwxyz"
Dim jz As String = "i love foxtable"
Dim nr As String
For i As Integer =0 To jz.Length-1
    If zm.Contains(jz.Chars(i)) Then
        nr += zm.IndexOf(jz.Chars(i))+1 & ","
    End If
Next
output.show(nr)
9,12,15,22,5,6,15,24,20,1,2,12,5,

呵呵，比我强····谢谢。

凑个热闹，不知道可否再精简代码：

 

Dim s As String = "i love foxtable".Replace(" ","")
Dim a As String
For i As Integer = 0 To s.Length - 1
    a =a & Asc(s.SubString(i,1))-96 & ","
Next
output.show((a & ",").Replace(",,",""))

 

9,12,15,22,5,6,15,24,20,1,2,12,5

 

完全符合楼主要求

够精简了～   谢了。

收藏，希望有更多的题目和对应方案，提升水平。自己和大家一起努力！

 

这样就严谨了，以2、4、6楼为例分别是：

 

Dim jz As String = "I Love FoxTable".ToLower

 

和

Dim s As String = "I Love FoxTable".ToLower.Replace(" ","")

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