Составьте программу, выясняющую, есть ли в слове Х согласные, стоящие на четном месте

@dnb_dnb · Регистрация: 13.11.2011

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

Составьте программу, выясняющую, есть ли в слове Х согласные, стоящие на четном месте. Все согласные для поиска перечислить в ячейках листа Ms Excel.

Visual Basic

Sub xxx()
Dim x As String, d As Integer, i As Integer, s As String, s1 As String, k As Integer
x = InputBox("Введите слово X")
s = Mid(x, 2, 1)
d = Len(x)
k = 0
For i = 2 To d
For j = 1 To 6
s1 = Mid(x, i, 1)
If s1 = Cells(j, 1) Then
 If s = s1 Then
 k = k + 1
 j = 6
End If
i = i + 2
End If
Next j
Next i
If k > 0 Then
MsgBox ("Åñòü. èõ - " + Str(k))
Else
MsgBox "Íåò"
End If
End Sub

Подскажите, где ошибка?

Добавлено через 46 секунд
Я ввёл 6 согласных букв в ячейки листа эксель.

@ironegg · 24.01.2012, 03:29

Сообщение от dnb_dnb

Составьте программу, выясняющую, есть ли в слове Х согласные, стоящие на четном месте

Visual Basic

    x = InputBox("Введите слово X")
    For i = 2 To Len(x) Step 2
         If LCase(Mid(x, i, 1)) Like "[!аеёиоуыюэя]" Then s = s & Mid(x, i, 1)
    Next
    MsgBox (IIf(IsEmpty(s), "нет согласных букв в четных позициях", s))

Опции темы