Imports System
Imports System.Linq
Public Module Module1
Public Sub Main()
Dim s As String = "vb.net"
Dim N As Integer = 3
Dim arr = From w In Enumerable.Repeat(s, N)
For Each str As String In arr
Console.WriteLine(str)
Next
End Sub
End Module
' run:
'
' vb.net
' vb.net
' vb.net
'