Узнать, сколько раз второе предложение встречается в первом - VB

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

Пожалуйста подскажите как написать прогу Данны два предложения,надо узнать сколько раз 2-ое предложение встречается в первом VB 6,0

Решение задачи: «Узнать, сколько раз второе предложение встречается в первом»

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

                            Private Sub Комманда1_Click()
Dim S0, S, i, j
Randomize
    For j = 1 To Int(3 * Rnd + 1)
        For i = 1 To Int(5 * Rnd + 3)
        S = S & Chr(25 * Rnd + 65)
    Next i
        S = S & " "
Next j
Do
    For i = 1 To Int(5 * Rnd + 3): S0 = S0 & Chr(25 * Rnd + 65): Next i
    If Rnd > 0.5 Then S0 = S0 & " " & S & " " Else S0 = S0 & " "
Loop While Len(S0) <= 200
MsgBox "В предложении " & """" & S0 & """" & " предложение " & """" & S & """" & " встретилось " & SKOKA(S0, S) & " раз.", 64, ""
End Sub
                        

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

6 голосов , оценка 4.667 из 5

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