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