Определение одинаковых символов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д