diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/1 3 5 (while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/1 3 5 (while).vb
new file mode 100644
index 0000000..9230f9a
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/1 3 5 (while).vb	
@@ -0,0 +1,18 @@
+Module Module1
+
+    Sub Main()
+        Dim a, n As Integer
+        a = 2
+        Console.WriteLine(" enter the number of digits you want to print")
+        n = Console.ReadLine()
+        Do
+            Console.Write(a & ",")
+            a = a + 2
+            n = n - 1
+        Loop Until n <> 0
+
+
+        Console.ReadKey()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/1.takes name and print (while end while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/1.takes name and print (while end while).vb
new file mode 100644
index 0000000..f7cabd5
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/1.takes name and print (while end while).vb	
@@ -0,0 +1,18 @@
+Module Module1
+
+    Sub Main()
+        Dim name As String
+        Dim a As Integer
+
+        a = 10
+        Console.WriteLine("enter your name")
+        name = Console.ReadLine()
+
+        While a <> 0
+            Console.WriteLine(name)
+            a = a - 1
+        End While
+        Console.ReadLine()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/2.2,4,6,8 series ( while..end while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/2.2,4,6,8 series ( while..end while).vb
new file mode 100644
index 0000000..137e99d
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/2.2,4,6,8 series ( while..end while).vb	
@@ -0,0 +1,18 @@
+Module Module1
+
+    Sub Main()
+        Dim a, n As Integer
+        a = 2
+        Console.WriteLine(" enter the number of digits you want to print")
+        n = Console.ReadLine()
+        While n <> 0
+            Console.Write(a & ",")
+            a = a + 2
+            n = n - 1
+        End While
+
+        Console.ReadKey()
+
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/3.dispaly 5  9  13...upto 10th(while...end while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/3.dispaly 5  9  13...upto 10th(while...end while).vb
new file mode 100644
index 0000000..e9b7164
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/3.dispaly 5  9  13...upto 10th(while...end while).vb	
@@ -0,0 +1,15 @@
+Module Module1
+
+    Sub Main()
+        Dim n, a As Integer
+        n = 5
+        a = 1
+        While a <= 10
+            Console.Write(n & " ")
+            n = n + 4
+            a = a + 1
+        End While
+        Console.ReadKey()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/4.cumulative sum upto n (while...end while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/4.cumulative sum upto n (while...end while).vb
new file mode 100644
index 0000000..ce8b78b
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/4.cumulative sum upto n (while...end while).vb	
@@ -0,0 +1,15 @@
+Module Module1
+
+    Sub Main()
+        Dim n, sum As Integer
+        Console.WriteLine("enter a number")
+        n = Console.ReadLine
+        While n <> 0
+            sum = sum + n
+            n = n - 1
+        End While
+        Console.WriteLine("The cumulative sum upto given number = " & sum)
+        Console.ReadKey()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/5.multiplication table of any number(while..wnd while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/5.multiplication table of any number(while..wnd while).vb
new file mode 100644
index 0000000..b0d9aec
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/5.multiplication table of any number(while..wnd while).vb	
@@ -0,0 +1,16 @@
+Module Module1
+
+    Sub Main()
+        Dim a, n, multiple As Integer
+        Console.WriteLine("enter the number whose multiplication table you want to know")
+        n = Console.ReadLine()
+        a = 1
+        While a <= 10
+            multiple = n * 1
+            Console.WriteLine(n & "*" & a & "=" & multiple)
+            a = a + 1
+        End While
+        Console.ReadKey()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/6.fibonacci series upyo n (while..end while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/6.fibonacci series upyo n (while..end while).vb
new file mode 100644
index 0000000..311a40a
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/6.fibonacci series upyo n (while..end while).vb	
@@ -0,0 +1,20 @@
+Module Module1
+
+    Sub Main()
+        Dim a, b, c, n As Integer
+        Console.WriteLine("enter the number")
+        n = Console.ReadLine
+        a = 1
+        b = 1
+        Console.Write(a & " " & b & " ")
+        While n <> 0
+            c = a + b
+            Console.Write(c & " ")
+            a = b
+            b = c
+            n = n - 1
+        End While
+        Console.ReadKey()
+    End Sub
+
+End Module
diff --git a/A level vb.net/lab2/Looping statementsq.(8-14)/generate fibinacci series(while).vb b/A level vb.net/lab2/Looping statementsq.(8-14)/generate fibinacci series(while).vb
new file mode 100644
index 0000000..41dd57e
--- /dev/null
+++ b/A level vb.net/lab2/Looping statementsq.(8-14)/generate fibinacci series(while).vb	
@@ -0,0 +1,22 @@
+Module Module1
+
+    Sub Main()
+        Dim a, b, c, n As Integer
+        a = 1
+        b = 1
+        Console.WriteLine("enter the number of digits you want to print in fibonacci series")
+        n = Console.ReadLine()
+        n = n - 2
+        Console.Write(a & "," & b & ", ")
+        While n <> 0
+            c = a + b
+            Console.Write(c & ",")
+            a = b
+            b = c
+            n = n - 1
+        End While
+        Console.ReadLine()
+
+    End Sub
+
+End Module