Option Explicit On
Option Strict On
Option Compare Binary
REM Option Infer Off
Public Class Test1
Public Shared Sub Main()
Dim a As Integer = 3
For Each a As Char in "abc".ToCharArray()
System.Console.WriteLine(a)
Next
System.Console.WriteLine(a)
End Sub
End Class
T3B0aW9uIEV4cGxpY2l0IE9uCk9wdGlvbiBTdHJpY3QgT24KT3B0aW9uIENvbXBhcmUgQmluYXJ5ClJFTSBPcHRpb24gSW5mZXIgT2ZmCgpQdWJsaWMgQ2xhc3MgVGVzdDEKCVB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQoJCQoJCURpbSBhIEFzIEludGVnZXIgPSAzCgkJRm9yIEVhY2ggYSBBcyBDaGFyIGluICJhYmMiLlRvQ2hhckFycmF5KCkKCQkJU3lzdGVtLkNvbnNvbGUuV3JpdGVMaW5lKGEpCgkJTmV4dAoJCVN5c3RlbS5Db25zb2xlLldyaXRlTGluZShhKQoKCUVuZCBTdWIKRW5kIENsYXNzCg==