Question

一道网友的VB编程题计算，答案是多少？

关键步骤的代码在此，可以的话告诉我怎么算。
a = "zdviqijmrihxyefa"
b = ""
For i = 1 To Len(a)
b = b & " " & Asc(Mid(a, i, 1)) - 97
Next i
Text1 = b
问题：
x是码子，其中第1、4、11、12、15、16位为数字。
y="TEOGSDYUTAENNHLN",
对于x的每一个字符，其ASCII码值减去y对应字符的ASCII值，结果模26，再加上'a'的ASCII码值，再求结果的ASCII码。
求得的结果是zdviqijmrihxyefa。
求X

Answer 1

追问

求的是X，不是我给代码的结果。

x是码子，其中第1、4、11、12、15、16位为数字。
y="TEOGSDYUTAENNHLN",
对于x的每一个字符，其ASCII码值减去y对应字符的ASCII值，结果模26，再加上'a'的ASCII码值，再求结果的ASCII码。
求得的结果是zdviqijmrihxyefa。
求X

追答

最后一句“再求结果的ASCII码”这里有点问题，这句话表述不清楚

下面是一种结果

Private Sub Command1_Click()
Dim x, y, z As String
Dim i, j As Long
y = "TEOGSDYUTAENNHLN"
z = "zdviqijmrihxyefa"
For i = 1 To 16
    For j = 0 To 255
        If ((j - Asc(Mid(y, i, 1))) Mod 26 + Asc("a") = Asc(Mid(z, i, 1))) Then
            x = x & Chr(j)
            Exit For
        End If
    Next
Next
Text1 = x
End Sub

追问

其中第1、4、11、12、15、16位为数字，算对了我再给你加分吧。