[休闲]某人ID的秘密……(水帖)
If "multiple1902" = "multiple19O2" Then Print "对的"
居然发现2个ID不等……但是怎么看也看不出来。
看了下Asc码就出来，原来一个是0一个O～o(∩_∩)o，这样还是看不出来吧。
'Option Explicit
Private Sub Command1_Click()
'If "multiple1902" = "multiple19O2" Then Print "对的"
str1 = "multiple1902"
For i = 1 To Len(str1)
Print Mid$(str1, i, 1); Asc(Mid$(str1, i, 1));
Next
Print
str2 = "multiple19O2"
For i = 1 To Len(str2)
Print Mid$(str2, i, 1); Asc(Mid$(str2, i, 1));
Next
End Sub
一个 数字0 （零），一个是字母o的大写。
