师兄师姐帮我把这段代码改正确！

Question

function encrypt(S,m1,m2)
dim  N,i,A,B
 N=len(S)
'加密目标字符串，非防止频繁构造新的对像，使用StringBuilder
for  i=1 to N

 A=mid(S,i,1)
 B=(A ^ m1)+m2
 '怎样把这些字符串连接起来
B=B+B
next
encrypt=B
     end function

Answer 1

&符号和+都可以，+不能连接数字，会计算。

Answer 2

function encrypt(S,m1,m2)
dim  N,i,A,B,c
 N=len(S)
'加密目标字符串，非防止频繁构造新的对像，使用StringBuilder
for  i=1 to N

 A=mid(S,i,1)
 B=(A ^ m1)+m2 c=c & B
next
encrypt=c
     end function

Answer 3

function encrypt(S,m1,m2)
dim  N,i,A,B
 N=len(S)
for  i=1 to N
 A=mid(S,i,1)
 B=(A ^ m1)+m2
B=B&B
next
encrypt=B
     end function
 
function Mydecode(S,m1,m2)
dim  N,i,A,B
 N=len(S)
for  i=1 to N
     A=mid(S,i,1)
 B=(A -m2) ^ m1
B=B&B
next
Mydecode=B
end function
Mydecode(encrypt(789,12,4),12,4)： 输出结果：11
encrypt(789,12,4))输出结果：282429536485282429536485
我想得到原来的结果怎么办呀！

Answer 4

用&比较好吧，&是用来连接字符串的，会把数字型默认为字符型进行连接

Answer 5

Function encrypt(S, m1, m2)
    Dim N, i, A, B
    N = Len(S)
    '加密目标字符串，非防止频繁构造新的对像，使用StringBuilder
    For i = 1 To N        A = Mid(S, i, 1)
        B = (A ^ m1) + m2
        '怎样把这些字符串连接起来
        B = B & B
    Next
    encrypt = B
End Function

Answer 6

笨笨笨
function encrypt(S,m1,m2)
dim  N,i,A,B,c
 N=len(S)
'加密目标字符串，非防止频繁构造新的对像，使用StringBuilder
for  i=1 to N

 A=mid(S,i,1)
 B=(A ^ m1)+m2 c=c & B
next
encrypt=c
     end function