Wednesday, July 14, 2010

Programs From Practical List: VB.NET

Program 1:

Module Module1

    Sub Main()
        Dim a, b, c As Integer
        a = 12
        b = 22
        c = 34

        Console.WriteLine("a" & a)
        Console.WriteLine(" b" & b)
        Console.WriteLine(" c" & c)
        Console.ReadLine()





    End Sub

End Module




Program 2:

Module Module1

    Sub Main()
        Const a As Integer = 12
        For i As Integer = 1 To 13 Step 1
            Console.WriteLine(a)

        Next
        Console.ReadLine()


    End Sub

End Module

No comments: