1. (2019·上海模拟) 文本加密：利用Mid和Asc函数获取文本和密码字符串每一位字符的ASCII码，然后将文本中某一位字符串的ASCII码与相应的密码字符串中某一位的ASCII码就行异或运算。最后利用Chr函数将运算出的ASCII转换为字符。运行程序，在文本框中输入要加密的字符串和密码，并点击“加密”按钮，在文本框中显示加密或解密后的字符串，显示结果如下图所示。

程序代码如下：

Dim x As String

Dim y As String

Dim c(1 To 100) As String

Private Sub Command1_Click()

    Dim z As String

    x = Text1.Text

    y = Text3.Text

    z = f(x,y)

    Text2.Text = z

End Sub

Function f(x As String, y As String) As String

    Dim i, w, achar As Integer

    Dim mm As String

    w = Asc(y)

    For i = 1 To Len(x)

        achar = Asc(Mid(x, i, 1))

        c(i) =  Chr(x Xor y)     ‘

    Next i

    For t = 1 To Len(x)

        mm = mm+achar       ‘

    Next t

    f = mm

End Function

程序代码有2处错误，请在画线处写上正确代码。