बेसिक

  Class stars     Sub Main()         Dim UserName, Answer, stars As String ' UserName$, Answer$, stars$ may be used as well.         Dim NumStars, I As Integer         Console.Write("What is your name: ")         UserName = Console.ReadLine()         Console.WriteLine("Hello {0}", UserName)         Do             Console.Write("How many stars do you want: ")             NumStars = CInt(Console.ReadLine())             stars = New String("*", NumStars)             Console.WriteLine(stars)             Do                 Console.Write("Do you want more stars? ")                 Answer = Console.ReadLine()             Loop Until Answer <> ""             Answer = Answer.Substring(0, 1)         Loop While Answer.ToUpper() = "Y"         Console.WriteLine("Goodbye {0}", UserName)     End Sub End Class