Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы - VB

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

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

Решение задачи: «Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim s As Long
Private Sub Command1_Click()
s = 0
For i = 1 To Len(Text1.Text)
For t = 1 To Len(Text2.Text)
If Mid(Text1.Text, i, 1) = Mid(Text2.Text, t, 1) Then s = s + 1
Next t
Next i
Print "Количество одинаковых букв = " & s
End Sub

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

15 голосов , оценка 4 из 5

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

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

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