• Home
 · 
• Miscellaneous
 · 
• n/a

n/a

n/a

Rate n/a

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim intLines, intStars As Integer
Dim strFileName As String = "a:\pattern.txt"
objStreamOut = System.IO.File.CreateText(strFileName)
For intLines = 1 To 10
    For intStars = 1 To intLines
        objStreamOut.Write("*")
    Next intStars
    objStreamOut.WriteLine()
Next
objStreamOut.Close()