' getchar.vb Imports System Imports Microsoft.VisualBasic Class GetCharInString Shared Sub Main Dim eto As String = "Žq‰N“ЉK’C–¤Œß–¢\“Ñœúˆå" Dim index As Integer = (Now.Year - 4) Mod 12 Console.WriteLine(eto.Chars(index)) ' o—Í—áF\ Console.WriteLine(GetChar(eto, index + 1)) ' o—Í—áF\ End Sub End Class ' ƒRƒ“ƒpƒCƒ‹•û–@Fvbc getchar.vb