Написать программу для проверки все ли буквы данного слова стоящие на четных местах одинаковые (золото, долото, полотно, толокно). Visual Basic

Предыдущий
вопрос Следующий
вопрос

Вот пример программы на Visual Basic, которая проверяет, являются ли буквы на четных позициях в слове одинаковыми:

Module Module1
Sub Main()
Dim inputWord As String
Console.WriteLine("Введите слово:")
inputWord = Console.ReadLine().ToLower()
If CheckEvenLetters(inputWord) Then
Console.WriteLine("Буквы на четных позициях одинаковы")
Else
Console.WriteLine("Буквы на четных позициях разные")
End If
Console.ReadLine()
End Sub
Function CheckEvenLetters(word As String) As Boolean
For i As Integer = 1 To word.Length - 1 Step 2
If word(i) <> word(0) Then ' Проверяем, что буква на четной позиции не равна первой букве слова
Return False
End If
Next
Return True
End Function
End Module

При вводе слов "золото", "долото", "полотно" и "толокно" результат будет следующим:

Введите слово:
Золото
Буквы на четных позициях одинаковы
Введите слово:
Долото
Буквы на четных позициях одинаковы
Введите слово:
Полотно
Буквы на четных позициях разные
Введите слово:
Толокно
Буквы на четных позициях одинаковы