برنامه ای در کنسول ویژوال بیسیک بنوسید که یک عبارت را دریافت کند و آن را به ترتیب حروف الفبا در خط بعدی چاپ کند

    'Short Alphabat 
    'By Amirmohsen Kasaee (Amir)
    'Samiantec.ir
    Sub Main()
        Dim x() As Char = UCase(Console.ReadLine).ToCharArray
        Dim y() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray
        For j = 0 To y.Count - 1
            For i = 0 To x.Count - 1
                If x(i) = y(j) Then
                    Console.Write(x(i))
                End If
            Next
        Next
        Console.ReadLine()
    End Sub

نویسنده : امیرمحسن کسایی