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 :

VB.Net Smiley Symbol

 

Leave a Reply

Your email address will not be published.