Получить все символы, расположенные между первой и второй буквой "к" - VB

Формулировка задачи:

Помогите пожалуйста решить задачу: Даны сиволы t(1), t(2), t(n), среди которых есть буква "к". Получить все символы, расположенные между первой и второй буквой "к". Если второй буквы "к" нет в последовательност, то получить все символы, расположенные после единственной буквы "к".

Решение задачи: «Получить все символы, расположенные между первой и второй буквой "к"»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim t() As String, k As Integer
Label1 = ""
k = 0
t = Split(Text1.Text, ",")   'ввод символов по одному и через запятую 
For i = 0 To UBound(t) - 1
If Trim(t(i)) = "k" Then k = k + 1   '(символ "к" англ., если над русс.-- испавьте)
If Len(Trim(t(i))) <> 1 Then
MsgBox "Error"
Exit Sub
End If
If k = 1 Then
Label1 = Label1 & Trim(t(i + 1)) & " "
Else
If k = 2 Then GoTo 1
End If
Next i
1
If k = 0 Then
MsgBox "Error k--0"
Else
Label1 = Replace(Label1.Caption, "k", "")
End If
End Sub
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы