VB.NET Program to Print Smiley Symbol

Posted on: 07/09/2013 07/09/2013
Categories: VB.Net Console Programs

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

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))

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))

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

Console.ReadKey()

End Sub

End Module

Output :

Sameer Shaik

184