vb6怎么进行与或运算

Question

VB 中 String 不是字节数组，没有提供字符串的数学运算，要自己逐字符运算。
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim i As Longs1 = "138888"
s2 = "abcdef"
s3 = Space(Len(s1))
For i = 1 To Len(s1)
    Mid$(s3, i, 1) = ChrW$(AscW(Mid$(s1, i, 1)) Xor AscW(Mid$(s2, i, 1)))
Next
Debug.Print s3

Answer 1

强啊那php里的bin2hex函数（任意字符串转化为16进制），vb6里又怎么写啊。

Answer 2

比如运算后的结果字符串  PQ[\]^，php里 bin2hex(“PQ[\]^”)  得到50515b5c5d5e

Answer 3

照样循环，把每个 Right$("0" & Hex(AscW(Mid$(s1, i, 1))),2) 拼起来。

Answer 4

VB里的字符串是UNICODE字符串，你懂的