Определение одинаковых символов - VB

Узнай цену своей работы

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

Очень прошу помощи! Понимаю, что задачка простая, но у меня проблема с работой со строковыми переменными..( Задание: Ввести две строки символов. Вывести одинаковые символы этих строк. Заранее благодарю!

Решение задачи: «Определение одинаковых символов»

textual
Листинг программы
Private Sub Text1_Change()
Label1 = o(Text1.Text, Text2.Text)
End Sub
Private Sub Text2_Change()
Label1 = o(Text1.Text, Text2.Text)
End Sub
Function o(t1 As String, t2 As String) As String
Dim o1 As String
For i = 1 To Len(t1)
  For j = 1 To Len(t2)
    If Mid(t1, i, 1) = Mid(t2, j, 1) And _
       Asc(Mid(t1, i, 1)) <> 32 And Asc(Mid(t1, i, 1)) <> 10 Then
      For k = 1 To Len(o1)
       If Mid(t1, i, 1) = Mid(o1, k, 1) Then GoTo 1
      Next k
       o1 = o1 & Mid(t1, i, 1)
       o = o & Mid(t1, i, 1) & " , "
1   End If
  Next j, i
  If Len(o) > 3 Then o = Left(o, Len(o) - 3)
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 3.5 из 5
Похожие ответы