q3139_出る杭はいいぞ.vb

Public Class Class1

    Public Shared Sub Main()
        Do
            Dim s As String = Console.ReadLine()
            If s Is Nothing Then Exit Do
            Console.WriteLine(DK(s))
        Loop
    End Sub

    Public Shared Function DK(s As String) As String
        DK = ""
        For i As Int32 = 0 To Len(s) - 1
            DK &= IIf(i = Len(s) \ 2, UCase(s(i)), s(i))
        Next
    End Function

End Class