Imports System
Imports System.Text
Imports System.Collections.Generic
Public Class program
Public Shared Function SplitStringIntoThreeWordLines(ByVal str As String) As List(Of String)
Dim words As String() = str.Split(" ")
Dim threeWordLines As List(Of String) = New List(Of String)()
Dim length As Integer = words.Length
For i As Integer = 0 To length - 1 Step 3
Dim oneLine As StringBuilder = New StringBuilder()
For j As Integer = i To Math.Min(i + 3, length) - 1
oneLine.Append(words(j)).Append(" ")
Next
threeWordLines.Add(oneLine.ToString().Trim())
Next
Return threeWordLines
End Function
Public Shared Sub Main(ByVal args As String())
Dim str As String = "java c c++ python rust vb php typescript"
Dim threeWordLines As List(Of String) = SplitStringIntoThreeWordLines(str)
For Each line As String In threeWordLines
Console.WriteLine(line)
Next
End Sub
End Class
' run:
'
' java c c++
' python rust vb
' php typescript
'
