Pyramid Programs in VB (Visual Basic)

The pyramid is like a triangular structure. Pyramid programs are used to extend coding, thinking, logic, looping and nested looping concepts. The interviewer usually asks these patterns to examine the logic and programming skills of the interviewee. In this topic, we will learn how to create various pyramid patterns in Visual Basic.

1. Star Pattern Programs

Program to print the Half Pyramid

Module1.vb

  Imports System  Module Module1      Sub Main()          Dim a, b, num As Integer  ‘ initialize the local variable          Console.WriteLine(” Enter the number of rows: “)          num = Console.ReadLine() ‘ take an input from the user          ‘Outer Loop          For a = 1 To num              ‘Inner Loop              ‘Value of b should be less than a              For b = 1 To a                  Console.Write(“* “) ‘ print the star              Next              Console.WriteLine(“”) ‘ jump to new line          Next          Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

Program to print an inverted half pyramid

Module2.vb

  Imports System  Module Module2      Sub Main()          Dim n, i, j As Integer          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine() ‘ take an input from the user            For i = n To 1 Step -1 ‘ decrement loop by 1              For j = 1 To i ‘ value of j less than i                   Console.Write(“* “) ‘ print the star              Next                Console.WriteLine(“”)  ‘ jump to new line          Next            Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

Program to print an inverted full pyramid

Module3.vb

  Module Module3      Sub Main()          Dim n, i, j, k As Integer          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine()  ‘ take an input from the user          For i = n To 1 Step -1 ‘ value of Outer loop is decremented by 1              For j = 1 To m ‘ value of j should be less than m                  Console.Write(” “) ‘ print a white space              Next              For k = 1 To 2 * i – 1 ‘ define the condition for printing a pattern                  Console.Write(“*”) ‘ print the pattern              Next              m += 1 ‘ incremented by 1              Console.WriteLine(“”)          Next            Console.WriteLine(” Press any key to exit…”)              Console.ReadKey()          End Sub        End Module  

Output:

Program to print the full pyramid

Module4.vb

  Module Module4      Sub Main()            Dim i, n, j, k As Integer          Dim space As Integer = 1 ‘ declare the space value by 9          Console.WriteLine(” Enter a number to show rows in a Pattern”)          ‘ take a number from user            n = Console.ReadLine()          Console.WriteLine()          ‘Outer loop            For i = 1 To n              ‘Inner loop                For j = 1 To n – 1 ‘ value of j less than n-1                  Console.Write(” “) ‘ print a space              Next              For k = 1 To 2 * i – 1 ‘ define the condition                  Console.Write(“*” + “”) ‘ print star and a space at right end              Next              Console.WriteLine(“”)              n -= 1 ‘ decrement n by 1          Next          Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub      End Module  

Output:

Program to print two half pyramids

Module5.vb

  Module Module5      Sub main()          Dim i, j, num As Integer          Dim ch As Char = “A” ‘ initialize a character variable                  Console.WriteLine(” Enter the total number of rows”)          num = Convert.ToInt32(Console.ReadLine())          For i = 1 To num ‘ value of i is less than num              For j = 1 To i ‘ value of j is less than i                   Console.Write(“* “) ‘ print the star              Next              Console.WriteLine() ‘ jump to next line          Next            For i = 1 To num ‘ value of  i is less than num              For j = 1 To i                  Console.Write(“* “) ‘ print the star              Next              Console.WriteLine()          Next          Console.ReadKey()        End Sub  End Module  

Output:

Program to print a pyramid shape

Module6.vb

  Module Module6      Sub main()  ‘ define the local variables          Dim i, j, num As Integer          Dim ch As Char = “A”          Console.WriteLine(” Enter the character in uppercse of rows”)          num = Convert.ToInt32(Console.ReadLine())          For i = 1 To num ‘ value of i is less than num              For j = num To i Step -1 ‘ initialize j with num and decremented by 1                  Console.Write(“* “) ‘ print the star              Next              Console.WriteLine() ‘ jump to new line          Next          For i = 1 To num ‘ value of i is less than num              For j = 1 To i ‘ value of j is less than i                  Console.Write(“* “) ‘ print the star              Next              Console.WriteLine()          Next            Console.ReadKey()        End Sub  End Module  

Output:

Program to print a full pyramid

Module7.vb

  Imports System  Module Module7      Sub Main()          Dim n, i, j As Integer            Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine()          For i = 1 To n ‘ value of i is less than n              For j = 1 To i ‘ value of j is less than i                  Console.Write(“* “) ‘ print the star              Next              Console.WriteLine(“”)           Next          For i = n To 1 Step -1 ‘ value of i is decremented by 1              For j = 1 To i                  Console.Write(“* “) ‘ pattern the star              Next              Console.WriteLine(“”)          Next          Console.ReadKey()      End Sub  End Module  

Output:

Program to print a right inverted pyramid

Module8.vb

  Module Module8      Sub main()  ‘ define the local variable          Dim i, j, k, n, m As Integer          Console.WriteLine(“Enter the rows”)          n = Console.ReadLine() ‘ take an input from the user          m = n ‘ assign the user value to m          For i = 1 To n ‘ value of i is less than n              For j = 1 To i ‘ value of j is less than i                   Console.Write(” “) ‘ print the space              Next              For k = 1 To m ‘ k is less than m                  Console.Write(“*”) ‘ print the star              Next              m -= 1 ‘ decrement m by 1              Console.WriteLine(“”)          Next          Console.ReadKey()      End Sub  End Module  

Output:

Program to print a right pyramid

Module9.vb

  Module Module9      Sub main()          Dim i, j, k, n, m As Integer          Console.WriteLine(“Enter the rows”)          n = Console.ReadLine()            For i = n To 1 Step -1 ‘ initialize the i with user input and decrement by 1              For j = 1 To i – 1 ‘ value of j is less than i-1                  Console.Write(” “) ‘ print the space              Next              For k = 1 To m ‘ value  of k is less than m                  Console.Write(“*”) ‘ print the *              Next              Console.WriteLine(“”)              m += 1 ‘ increment m by1          Next          Console.ReadKey()      End Sub  End Module  

Output:

2. Number Pattern Program

Program to print the Half Pyramid of number

Module1.vb

  Module Module1      Sub Main()              ‘Initialize the local variables a, b and num              Dim a, b, num As Integer                Console.WriteLine(” Enter the number of rows: “)              num = Console.ReadLine()  ‘ take an input from the user          Console.WriteLine()          ‘Outer Loop          For a = 1 To num              ‘Inner Loop              ‘Value of b should be less than a              For b = 1 To a                  Console.Write(“{0} “, b) ‘ print the number              Next              Console.WriteLine(“”) ‘ jump to new line          Next          Console.WriteLine(” Press any key to exit…”)              Console.ReadKey()          End Sub      End Module  

Output:

Program to print the Floyd’s Triangle

Module2.vb

  Module Module2      Sub Main()          Dim n, i, j As Integer  ‘ define the local variable          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine() ‘take an input from the user          Console.WriteLine()  ‘ Outer loop          For i = 1 To n  ‘ inner loop              For j = 1 To i                  Console.Write(“{0} “, m)  ‘ print the incremented value of m                  m += 1  ‘ increment the value of m              Next              Console.WriteLine(“”) ‘ jump to new line          Next            Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

Program to print the Half Pyramid of the same number

Module3.vb

  Module Module3        Sub Main()          ‘ initialize the local variables a, b, m and num          Dim a, b, num As Integer          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows: “)              num = Console.ReadLine()  ‘ take an integer from the user          Console.WriteLine()          ‘Outer Loop          For a = 1 To num              ‘Inner Loop              ‘Value of b should be less than a              For b = 1 To a                  Console.Write(“{0} “, m) ‘ print the value of m              Next              Console.WriteLine(“”)          Next          Console.WriteLine(” Press any key to exit…”)              Console.ReadKey()          End Sub      End Module  

Output:

Program to print an inverted half pyramid of number

Module4.vb

  Module Module4      Sub Main()          Dim n, i, j As Integer          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine()            For i = n To 1 Step -1 ‘ decrement value by 1              For j = 1 To i ‘ increment by 1 and j should be less than i                  Console.Write(“{0} “, j) ‘ print the value of j              Next                Console.WriteLine(“”) ‘ jump to new line          Next            Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

Program to print an inverted half pyramid of numbers

Module5.vb

  Module Module5      Sub Main()          Dim n, i, j As Integer          Dim m As Integer = 1          Console.WriteLine(” Enter the number of rows”)          n = Console.ReadLine() ‘ take an input from the user            For i = n To 1 Step -1 ‘ outer loop decremented by 1              For j = 1 To i ‘ value of j is less than i                  Console.Write(“{0} “, i) ‘ print the value of i              Next                Console.WriteLine(“”) ‘ jump to next line at each iteration          Next            Console.WriteLine(” Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

Program to print the Pascal’s triangle

Module6.vb

  Module Module6      Sub main()  ‘ initialize the local variable          Dim i, j, k, l, n As Integer          Console.WriteLine(“Enter the number of rows”)          n = Console.ReadLine() ‘ take an input variable from the user          For i = 1 To n ‘ outer loop              For j = 1 To n – i ‘ value of j is less than n-1                   Console.Write(” “) ‘ print a white space              Next              For k = 1 To i                  Console.Write(“{0}”, k) ‘ print k              Next              For l = i – 1 To 1 Step -1 ‘ initialize l with i-1 and decrement by 1                  Console.Write(“{0}”, l) ‘ print l              Next              Console.WriteLine(“”)          Next          Console.WriteLine(“Press any key to exit…”)          Console.ReadKey()      End Sub  End Module  

Output:

3. Alphabets Pattern Program

Program to print a half pyramid of alphabets

Module1.vb

  Module Module1      Sub main()          Dim i, j As Integer          Console.WriteLine(“Print the Alphabets pattern”)          For i = 65 To 75 Step 1 ‘ value of i is less than 75              For j = 65 To i ‘ value of j is less than i                  Console.Write(“{0}”, Chr(j)) ‘ print j              Next              Console.WriteLine(“”)          Next          Console.ReadKey()      End Sub  End Module  

Output:

Program to print a half pyramid of alphabets

Module2.vb

  Module Module2      Sub main()          Dim i, j As Integer          Console.WriteLine(“Print the Alphabets pattern”)          For i = 65 To 75 Step 1 ‘ initialize I with 65 and less than 75              For j = 65 To i ‘ value of j is less than i                  Console.Write(“{0} “, Chr(i)) ‘ print the value of i              Next              Console.WriteLine(“”) ‘ new line          Next          Console.ReadKey()      End Sub  End Module  

Output:

Next TopicProgram to calculate Volume of Cone

Pyramid Programs in VB

Pyramid Programs in VB (Visual Basic)

1. Star Pattern Programs

Program to print the Half Pyramid

Program to print an inverted half pyramid

Program to print an inverted full pyramid

Program to print the full pyramid

Program to print two half pyramids

Program to print a pyramid shape

Program to print a full pyramid

Program to print a right inverted pyramid

Program to print a right pyramid

2. Number Pattern Program

Program to print the Half Pyramid of number

Program to print the Floyd’s Triangle

Program to print the Half Pyramid of the same number

Program to print an inverted half pyramid of number

Program to print an inverted half pyramid of numbers

Program to print the Pascal’s triangle

3. Alphabets Pattern Program

Program to print a half pyramid of alphabets

Program to print a half pyramid of alphabets

Wind Energy

Basics of PyTorch

You may also like