MisterRoboto a écrit :
Public Class StarsProgram MisterRoboto2.0.
Public Shared Sub Main()
Dim UserName, Answer, stars As String, NumStars As Integer
Console.Write("Problème délicat: ")
Console.Write("Si insatisfaction revendre rapidement: ")
Console.Write("Prochaine crise économique en approche, risque de ne: ")
Console.Write("pas trouver acheteur avant longtemps après début: ")
Console.Write("Même immédiatement, risque de décote importante, car: ")
Console.Write("difficile de revendre Valveking cher: ")
Console.Write("Les humains donnent indication de toujours essayer et: ")
Console.Write("de toujours comparer entre différents amplis: ")
UserName = Console.ReadLine()
Console.WriteLine("Hello {0}", UserName)
Do
Console.Write
("Forum bien pour conseiller ≠ oreilles bien pour comparer: ")
NumStars = CInt(Console.ReadLine())
stars = New String("*", NumStars)
Console.WriteLine(stars)
Do
Console.Write
("Voulez-vous d'autres input? ")
Answer = Console.ReadLine()
Loop Until Answer ""
Answer = Answer.Substring(0, 1)
Loop While Answer.ToUpper() = "Y"
Console.WriteLine("Goodbye {0}", MisterRoboto2.0)
End Sub
End Class
150 PRINT
150 PRINT