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