Computer Programming...A Student's Praise!

Diamonds are Forever!!!

Module Diamond

Sub Main()
Dim intSpace As Integer = 0
Dim intCounter As Integer = 0
Dim strAsterisk As String = "*"
Dim strSpace As String = " "
Dim intLine As Integer = 1

Do Until intLine > 9
Select Case intLine
Case 1, 9
For intSpace = 1 To 5 Step 1
Console.Write(strSpace)
Next
For intCounter = 1 To 1 Step 1
Console.Write(strAsterisk)
Next
Case 2, 8
For intSpace = 1 To 4 Step 1
Console.Write(strSpace)
Next
For intCounter = 1 To 3 Step 1
Console.Write(strAsterisk)
Next
Case 3, 7
For intSpace = 1 To 3 Step 1
Console.Write(strSpace)
Next
For intCounter = 1 To 5 Step 1
Console.Write(strAsterisk)
Next
Case 4, 6
For intSpace = 1 To 2 Step 1
Console.Write(strSpace)
Next
For intCounter = 1 To 7 Step 1
Console.Write(strAsterisk)
Next
Case 5
For intSpace = 1 To 1
Console.Write(strSpace)
Next
For intCounter = 1 To 9
Console.Write(strAsterisk)
Next
End Select
Console.Write(ControlChars.NewLine)
intLine = intLine + 1
Loop
End Sub
End Module

Oh Visual Basic! How you care for me!
Your syntax is beautiful; your logic invigorating!
How wonderful your words, your punctuation, your way;
How magnificent your ability!
Oh Visual Basic! The love you shower me in!
For you alone can love and hate;
For you alone possess good and evil;
For you alone give joy and sorrow.
Oh Visual Basic! Forgiveness you give and receive!
I am indebted to you today!
The diamond you have given me surpasses
The life you have sucked out of me!
Oh Visual Basic! Today with you I am content!
Lasting thoughts of pleasure throughout my mind give me peace.