VB (Visual Basic) 中的金字塔程序

2025 年 6 月 13 日 | 阅读 8 分钟

金字塔就像一个三角形结构。金字塔程序用于扩展编码、思维、逻辑、循环和嵌套循环的概念。面试官通常会问这些模式来考察面试者的逻辑和编程技能。在本主题中，我们将学习如何在 Visual Basic 中创建各种金字塔模式。

1. 星形图案程序

打印半金字塔的程序

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

输出

打印倒半金字塔的程序

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

输出

打印倒全金字塔的程序

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

输出

打印全金字塔的程序

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

输出

打印两个半金字塔的程序

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

输出

打印金字塔形状的程序

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

输出

打印全金字塔的程序

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

输出

打印右倒金字塔的程序

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

输出

打印右金字塔的程序

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

输出

2. 数字图案程序

打印数字半金字塔的程序

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

输出

打印 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

输出

打印相同数字的半金字塔的程序

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

输出

打印数字倒半金字塔的程序

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

输出

打印数字倒半金字塔的程序

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

输出

打印帕斯卡三角形的程序

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

输出

3. 字母图案程序

打印字母半金字塔的程序

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

输出

打印字母半金字塔的程序

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

输出

下一个主题计算圆锥体体积的程序

VB (Visual Basic) 中的金字塔程序

1. 星形图案程序

打印半金字塔的程序

打印倒半金字塔的程序

打印倒全金字塔的程序

打印全金字塔的程序

打印两个半金字塔的程序

打印金字塔形状的程序

打印全金字塔的程序

打印右倒金字塔的程序

打印右金字塔的程序

2. 数字图案程序

打印数字半金字塔的程序

打印 Floyd's Triangle 的程序

打印相同数字的半金字塔的程序

打印数字倒半金字塔的程序

打印数字倒半金字塔的程序

打印帕斯卡三角形的程序

3. 字母图案程序

打印字母半金字塔的程序

打印字母半金字塔的程序

联系信息

关注我们

教程

面试题

在线编译器

Python

Java

.Net Framework

AI, ML and Data Science

Cloud Technology

B.Tech and MCA

Web Technology

PHP

Software Testing

Technical Interview

Java Interview

Python

Web Interview

Database Interview

B.Tech / MCA

Important Interview

Software Testing Interview

Company Interviews

Online Compilers

Multiple Choice Questions

博客

VB (Visual Basic) 中的金字塔程序

1. 星形图案程序

打印半金字塔的程序

打印倒半金字塔的程序

打印倒全金字塔的程序

打印全金字塔的程序

打印两个半金字塔的程序

打印金字塔形状的程序

打印全金字塔的程序

打印右倒金字塔的程序

打印右金字塔的程序

2. 数字图案程序

打印数字半金字塔的程序

打印 Floyd's Triangle 的程序

打印相同数字的半金字塔的程序

打印数字倒半金字塔的程序

打印数字倒半金字塔的程序

打印帕斯卡三角形的程序

3. 字母图案程序

打印字母半金字塔的程序

打印字母半金字塔的程序

相关帖子

如何开始写博客

TVS iQube S vs Ola S1X+

谁发明了 X 射线

什么是软件

蓝屏死机 (BSOD)

免费目录提交网站

视觉传达的优缺点

1818 天使数字含义

工作与生活平衡的重要性

大数据的优缺点

订阅 Tpoint Tech

联系信息

关注我们

教程

面试题

在线编译器