Процедура, определяющая общие символы для двух строк - VB

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

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

Есть задача: "В два текстовых поля вводятся две строки символов. При нажатии кнопки запускается процедура, которая определяет, есть ли в этих строках одинаковые символы, и если есть, то они выводятся в текстовое окно" Примерный код такой, в чем ошибка?

Решение задачи: «Процедура, определяющая общие символы для двух строк»

textual
Листинг программы
Private Sub Command1_Click()
Dim str1, str2, str3 As String
Dim char, char1 As String
Dim i, j As Integer
i = 1
 
str3 = ""
str1 = Text1.Text
str2 = Text2.Text
Do While i <= Len(str1)
char = Mid(str1, i, 1)
j = 1
  Do While j <= Len(str2)
     char1 = Mid(str2, j, 1)
     If char = char1 Then
        str3 = str3 & char
     End If
   j = j + 1
  Loop
 i = i + 1
Loop
Text3.Text = str3
 
End Sub

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


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

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

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