主题：发现一个Bug，关于With

Dim Str As String = "0 0" & Chr(10) & Chr(13) & vbcrlf & "0"

Dim Int As Integer

Output.Show("【第1次输出】")

With Str

    Str = Str.Replace(vbcrlf,Chrw(12276))

    Str = Str.Replace(Chr(13),Chrw(12276))

    Str = Str.Replace(Chr(10),Chrw(12276))

    Int = Str.Length

    For I As Integer = 0 To Int - 1

        Output.Show(Ascw(Str.Chars(I)))

    Next

End With

Output.Show("【第2次输出】")

Str = "0 0" & Chr(10) & Chr(13) & vbcrlf & "0"

With Str

    Str = .Replace(vbcrlf,Chrw(12276))

    Str = .Replace(Chr(13),Chrw(12276))

    Str = .Replace(Chr(10),Chrw(12276))

    Int = Str.Length

    For I As Integer = 0 To Int - 1

        Output.Show(Ascw(.Chars(I)))

    Next

End With

【输出结果】