Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 12.04.2011
Сообщений: 11
1

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

17.10.2011, 15:07. Показов 1150. Ответов 2
Метки нет (Все метки)

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

Примерный код такой, в чем ошибка?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
Dim str1, str2, str3 As String
Dim char, char1 As String
Dim i, j As Integer
i = 1
j = 1
Do While i <= Len(str1)
char = Mid(str1, i, 1)
 Do While j <= Len(str2)
 char1 = Mid(str2, j, 1)
 If char = char1 Then
 str3 = str3 + char
 Else
 str3 = str3
 j = j + 1
 End If
 i = i + 1
 Loop
Loop
Text3.Text = str3
 
End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2011, 15:07
Ответы с готовыми решениями:

Строка: Добавить в строковый класс функцию, которая создает строку, содержащую пересечение двух строк, то есть общие символы для двух строк.
Добавить в строковый класс функцию, которая создает строку, содержащую пересечение двух строк, то...

Общие символы для двух строк(своего класса) через перегрузку оператора
Создать свой строковый класс, добавить функцию, которая создает строку, содержащую пересечение двух...

Вывести все общие символы двух строк с указанием для них числа общности
Даны две строки символов. Символ будем называть общим, если он встречается и в первой, и во второй...

Общие символы двух строк js
Здравствуйте, написал код, реализующий поиск и вывод одинаковых символов из двух строчек. У меня...

2
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
17.10.2011, 15:31 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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
1
0 / 0 / 0
Регистрация: 12.04.2011
Сообщений: 11
17.10.2011, 16:10  [ТС] 3
Спасибо, вот оказывается как
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2011, 16:10

Вывести общие символы двух строк
Вывести общие символы двух строк.

Найти общие символы двух заданных строк и составить из них новую строку
Помогите написать программу. Две строки разной длины вводятся с экрана. Найти общие символы из...

Построить строку в которую войдут только общие символы двух строк в алфавитном порядке и без повторений
Даны две символьные строки, содержащие только строчные латинские буквы. Построить строку S3, в...

Строка: создать из двух строк третью строку, содержащую общие символы первой и второй строки без их дублирования.
создать из двух строк третью строку, содержащую общие символы первой и второй строки без их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.