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

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

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

完全符合楼主要求