Неправильно работает счетчик ошибок в программе проверки текста - VB

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

программа исправляет ошибки в тексте и должна считать, сколько их было, но вот проблема: ошибки исправляет, а счетчик- не правильно считает, в чем проблема или я что не понимаю?

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Dim k As Integer
Dim t As String
Dim s As String
Private Sub Command1_Click()
t = InputBox("Vvedite text")
Label1.Caption = t
End Sub
Private Sub Command2_Click()
k = 0
s = t
 If InStr(1, s, "чя") > 0 Then s = Replace(s, "чя", "ча"): k = k + 1
 If InStr(1, s, "щя") > 0 Then s = Replace(s, "щя", "ща"): k = k + 1
Label2.Caption = s
Label3.Caption = k
End Sub

Решение задачи: «Неправильно работает счетчик ошибок в программе проверки текста»

textual
                            Листинг программы 
                        
UBound(Split(s, "чя"))

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

11 голосов , оценка 4.091 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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