This website completely moved to new platform. For latest content, visit www.programmingposts.com

Search this Site

7 Sep 2013

VB.NET Program to Print Smiley Symbol

Module Module1

    Sub Main()

        Dim a As Integer = 1, b As Integer = 2, i As Integer
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT SMILEY SYMBOL <<" & vbLf)
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 1" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 1 for 100 times
            Console.Write(ChrW(a))
        Next
        Console.WriteLine()
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 2" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 2 for 100 times
            Console.Write(ChrW(b))
        Next

        'Console.Write(ChrW(1))  'this also prints the same
        Console.ReadKey()

    End Sub

End Module

Output :