【加试题】文本加密：利用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 处错误，请修改正确。
①____________②____________