Imports System
Public Class Program
Public Shared Sub PrintStringEqualParts(ByVal str As String, ByVal parts As Integer)
Dim length As Integer = str.Length
If length Mod parts <> 0 Then
Console.Write("No equal parts")
Return
End If
Dim part_size As Integer = length / parts
For i As Integer = 0 To length - 1
If i Mod part_size = 0 AndAlso i <> 0 Then
Console.Write(Environment.NewLine)
End If
Console.Write(str(i))
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim str As String = "vb.net c++ c java python"
Dim parts As Integer = 4
PrintStringEqualParts(str, parts)
End Sub
End Class
' run:
'
' vb.net
' c++ c
' java
' python
'
