Вывести все слова строки, в которых есть удвоение букв

@Meta_net · Регистрация: 27.04.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте! Задание в сабже. Ввожу в TextBox1 строку, а в итоге нужно получить список слов с удвоением букв в ListBox1. Не могу понять в чём проблема. Выдаёт ошибку: "Индекс находился вне границ массива" на строке 6.

VB.NET

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Str As String = TextBox1.Text
    Dim WrdArr() As String = Split(Str)
    For Each Word In WrdArr
        For i = 0 To Word.Length - 1
            If Word(i) = Word(i + 1) Then
                ListBox1.Items.Add(Word)
            End If
        Next
    Next
End Sub

@Казанский · 25.05.2015, 23:33

Я не знаю, как там в VB.Net - индекс первого символа 0 или 1. Если 0, то 5 строка For i = 0 To Word.Length - 2
Если 1, то 5 строка For i = 1 To Word.Length - 1

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	25.05.2015, 23:33	2
	Я не знаю, как там в VB.Net - индекс первого символа 0 или 1. Если 0, то 5 строка For i = 0 To Word.Length - 2 Если 1, то 5 строка For i = 1 To Word.Length - 1 0