Answer:
Module Module1
Sub Main()
Dim name As String
Console.WriteLine("Enter your name: ")
name = Console.ReadLine()
For i = 1 To 1000
Console.WriteLine(name)
Next
Console.ReadLine()
End Sub
End Module
3.5m questions
4.4m answers