Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы - 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