Работа со строками в Visual Basic - VB
Формулировка задачи:
Ребят помогите не могу понять. Вот задание: Дана строка. Подсчитать количество букв k в последнем ее слове.
Надо чтобы я ввел любое предложение в text1.text и мне в последнем слове буквы к посчитало.
Спасибо большое!!!
Решение задачи: «Работа со строками в Visual Basic»
textual
Листинг программы
- Option Explicit
- Option Compare Text
- Private Sub Text1_Change()
- Dim P As Long, Ct As Long, F As Boolean
- If Len(Text1.Text) = 0 Then Exit Sub
- P = Len(Text1.Text)
- Do While P > 0
- Select Case Mid$(Text1.Text, P, 1)
- Case " ", ",", ".", "-", "!", "?": If F Then Exit Do
- Case "k"
- Ct = Ct + 1
- Case Else
- F = True
- End Select
- P = P - 1
- Loop
- Me.Caption = Ct
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
