Pages

▼

Number Triangle 1 


Module numbers_1

    Sub Main()
        Dim i, j, n As Integer
        Console.Write("Enter the number of lines:")
        n = CInt(Console.ReadLine())
        For i = 1 To n
            For j = 1 To i
                Console.Write(j & " ")
            Next
            Console.WriteLine()
        Next
        Console.ReadLine()
    End Sub

End Module
Output
1
1 2
1 2 3
1 2 3 4
1 2 3 4 5

42 comments:

  1. Thilina Angulugahagamage11 September 2015 at 02:39

    GOOD

    ReplyDelete
  2. Anonymous30 November 2015 at 02:52

    misalkan dirubah jadi gini gan. gimana syntaxnya?

    1
    2 3
    4 5 6
    7 8 9 10

    thx gan

    ReplyDelete
    Replies
    1. Unknown27 January 2018 at 03:07

      Code send me

      Delete
    2. Bhavesh@Madhav10 February 2019 at 20:40

      Sub Main()
      Dim i, j, n As Integer
      Dim k = 1
      Console.Write("Enter the number of lines:")
      n = CInt(Console.ReadLine())
      For i = 1 To n
      For j = 1 To i
      Console.Write(k & " ")
      k = k +1
      Next
      Console.WriteLine()
      Next
      Console.ReadLine()
      End Sub

      Delete
  3. Unknown21 February 2016 at 06:02

    Where It will be printed ???

    ReplyDelete
  4. rahul8 September 2016 at 07:18

    Console a command prompt like screen.

    ReplyDelete
  5. rahul8 September 2016 at 07:20

    This comment has been removed by the author.

    ReplyDelete
  6. rahul8 September 2016 at 07:22

    it should be like below where .. are replaced by " "
    ......1
    .....121
    ....12321
    ...1234321
    ..123454321

    ReplyDelete
    Replies
    1. Unknown22 September 2019 at 19:53

      Private Sub Command1_Click()
      Dim A As Integer
      Dim B As Integer
      Dim X As Integer
      Dim OSP As Integer
      Dim Z As Integer
      Z = 5
      X = 1
      For A = 1 To 3
      For OSP = 1 To Z
      Print ".";
      Next OSP
      Z = Z - 2
      Print X * X;
      X = X * 10 + 1
      Print
      Next A
      End Sub

      MORE THAN 3 LINES ARE OVERFLOWING

      Delete
  7. rahul8 September 2016 at 07:23

    it should be like below where .. are replaced by " "
    ......1
    .....121
    ....12321
    ...1234321
    ..123454321

    I have managed to print this sequence instead

    1
    121
    1231
    1234321
    123454321

    ReplyDelete
  8. rahul17 September 2016 at 23:30

    solution to the problem
    Imports System.Math
    Module Module1

    Sub Main()
    Dim i As Integer
    Dim k As Char
    Dim l As Integer
    Dim b As Integer
    Dim a As Integer = 1
    Dim s As Integer = 1
    k = ""
    Dim c As Integer
    c = 5
    l = c
    For i = 0 To l + 1
    Console.Write(" ")
    Next
    Console.Write(1)
    Console.WriteLine()
    For a = 1 To c
    If l > 0 Then
    For i = 0 To l
    Console.Write(" ")
    Next
    'Console.WriteLine()
    l = l - 1
    End If
    s = s * 10 + 1
    'Console.Write(i)
    For b = c - a To b >= 1
    b = b - 1
    Console.WriteLine()
    Next

    Console.Write(CLng(Pow(s, 2)))
    Console.WriteLine()
    Next
    Console.ReadLine()
    End Sub

    End Module

    ReplyDelete
  9. Unknown5 January 2017 at 23:24

    Awesome. I am a beginner and this article helped me to resolve the problem .Thank

    you author and the whole expect team.

    http://www.wikitechy.com/view-article/java-program-to-print-a-stars-and-numbers-in-triangular-pattern


    Both are really good,
    Cheers,
    Venkat

    ReplyDelete
  10. Unknown8 July 2018 at 23:54

    2
    4 6
    8 10 12
    plz give a solution

    ReplyDelete
  11. Waseem Akhtar15 July 2018 at 07:20

    Excellent

    ReplyDelete
  12. Unknown27 August 2018 at 07:49

    nice, but how i do this for windows form not console apps

    ReplyDelete
  13. Unknown27 August 2018 at 07:51

    nice, but how could i do this for windows form apps not console apps... I need help to solve this

    ReplyDelete
  14. siva10 January 2019 at 05:56


    Good Post! Thank you so much for sharing this pretty post,
    it was so good to read and useful to improve my knowledge as updated one, keep blogging.
    Java training in Chennai

    Java training in Bangalore

    Java online training

    Java training in Pune

    ReplyDelete
  15. Unknown31 January 2019 at 07:45

    please help me with

    15 15 15

    14 14

    13

    ReplyDelete
  16. trusha26 March 2019 at 00:30

    654321
    54321
    4321
    321
    21
    1
    please help create piramid

    ReplyDelete
  17. Unknown14 April 2019 at 10:52

    Triangle using astrik

    ReplyDelete
  18. Unknown17 May 2019 at 09:22

    can u help me to make this shape

    H
    HE
    HEL
    HELL
    HELLO
    HELL
    HEL
    HE
    H

    ReplyDelete
  19. Unknown22 July 2019 at 20:39

    Number Triangle 1


    ReplyDelete
  20. Unknown14 August 2019 at 06:36

    How about this.
    The output like this
    **********
    *********
    ********
    *******
    ******
    *****
    ****
    ***
    **
    *
    Cn you help me?

    ReplyDelete
    Replies
    1. Unknown19 February 2020 at 23:12

      Module Module1
      'Rufaro Sitotombe
      'lower six
      Sub Main()


      Dim i As Integer
      Dim j As Integer
      ' the asterics that are going to be displayed
      For j = 1 To 5

      For i = j To 5

      Console.Write(" *")

      Next i
      Console.WriteLine()
      Next j
      ' to display the output
      Console.ReadLine()

      End Sub

      End Module

      Delete
    2. Unknown17 March 2020 at 03:04

      ndobva ndanzwa kuti ndikudzidzisa apa stots

      Delete
    3. Anonymous31 October 2020 at 05:59

      ukutii koiwe

      Delete
    4. Anonymous15 July 2021 at 03:30

      taura hako ndokuti vb ukuk

      Delete
    5. Cuzieva23 November 2021 at 02:30

      Panyepwa aps

      Delete
  21. Unknown20 September 2019 at 11:16

    *
    * *
    * * * *
    * * * * * *

    cn u rply me this output coding

    ReplyDelete
  22. Unknown23 July 2020 at 03:06

    hi, everyone
    how i can do this output coding?
    *****
    ****
    ***
    **
    *

    or this,

    *
    **
    ***
    ****
    *****

    ReplyDelete
    Replies
    1. tolesa kumela25 March 2021 at 05:13

      i want to particapate the code wich you make

      Delete
    2. Unknown8 May 2021 at 00:35

      Imports System
      Module Module1
      Sub Main()
      Dim i, j As Integer
      For i = 3 To 1 Step -1
      For j = 1 To i
      Console.Write("* ")
      Next
      Console.WriteLine("")
      Next
      Console.ReadKey()
      End Sub
      End Module


      REPLACE VALUE OF i, which is 3 here to number of rows you need

      Delete
    3. Unknown20 April 2022 at 11:51

      ****
      * *
      * *
      ****

      Delete
  23. Unknown23 July 2020 at 03:10

    hi, everyone
    how i can do this output coding?
    *****
    ****
    ***
    **
    *

    or this,

    *
    **
    ***
    ****
    *****

    Reply

    ReplyDelete
    Replies
    1. Unknown23 July 2020 at 03:12

      pardon my wrong send, the output should be the other side

      Delete
  24. bettmanuu9 August 2020 at 12:39

    Help me ..I want something of this sort
    1
    12
    123
    1234
    12345
    123456

    ReplyDelete
  25. bettmanuu9 August 2020 at 13:09

    Am using vb 6.0

    ReplyDelete
  26. Jitesh borkar17 October 2020 at 21:43

    develop a VB.NET console application to display the following pattern
    *
    ***
    *****

    ReplyDelete
  27. Unknown4 January 2021 at 06:18

    1
    2 3
    4 5 6
    7 8 9 10

    ReplyDelete
    Replies
    1. Unknown10 March 2022 at 01:10

      Write a console application to print the following pattern.
      1
      2 3
      4 5 6
      7 8 9 10

      Delete
  28. Unknown25 April 2021 at 05:08

    1
    21
    321
    4321

    ReplyDelete