VB .NET > New Programmer > Please Help

[Udhas]

Problem: Write a program that prints the following diamond shape. You may use output statements that print a single asterisk (*), a single space or a single carriage return. Maximize your use of repetition (with nested For … Next statements) and minimize the number of output statements.

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

(Diamond Shape)

_________________________________________________________

I think I need 3 nested for loops.

Here is my pseudocode:

For each line
For number of spaces required at beginning of line
write space
Next
For number of stars on line
write star
Next
write new line
Next

_________________________________________________________

I am totally new to programming and this is my firs program. I am having trouble converting my pseudocode into VB .NET code using "For ... Next" Repetition Statements.

I can use Console.WriteLine("*****") but I need to use repetition statements inorder to minimize the number of output statements.

My updated code is this:
Module ForCounter
Sub Main()
Dim i As Integer
Dim j As Integer

For i = 0 To 3
Console.Write("*")
Next
For j = 0 To 5
Console.WriteLine("*")
Next

End Sub ' Main
End Module

Which results in this:

*****
*
*
*
*
*

Clearly not a diamond

How to write three nested For ... Next loops? I am kind of lost here

Please HELP!!!

[williamrojas78]

Hi

try this:

Dim i As Integer
Dim y As Integer
dim j as integer

For i = -9 To 9
   y = System.Math.Abs(i)
   y = (y * (-1)) + 10
   
    Console.Writeline("")      
       for j=1 to y
        Console.Write("*")
      next

  i += 1
Next

it will write to the console two lines of the 9 stars, but you can include an if statement to avoid this.

hope it helps

[waynespangler]

If you look at the diamond you will see that each line has two more or two less *'s. So if you start with a string that has one * and print it. Then add two *'s and print again. Do this while the length of the string is less than 10 then start deleting 2 untill there is only one left.

Dim s As String = "*"
        For x As Integer = 0 To 4
            TextBox1.Text &= s & vbCrLf
            s &= "**"
        Next
        s = s.Substring(1, s.Length - 2)
        For x As Integer = 0 To 3
            s = s.Substring(1, s.Length - 2)
            TextBox1.Text &= s & vbCrLf
        Next