Imports System
Imports System.Text
Public Class Program
Public Shared Sub Main()
Dim s As String = "abcd"
For i As Integer = 0 To s.Length - 1
Dim sb As StringBuilder = New StringBuilder(s.Length - i)
For j As Integer = i To s.Length - 1
sb.Append(s(j))
Console.WriteLine(sb)
Next
Next
End Sub
End Class
' run:
'
' a
' ab
' abc
' abcd
' b
' bc
' bcd
' c
' cd
' d
'