by Anonymous (267 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 6th June 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
n/a
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()