Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы

@Noobak · Регистрация: 17.10.2012

Author24 — интернет-сервис помощи студентам

@vfalex · 22.11.2012, 11:19

На пустую форму положи два текстбокса и кнопку.

Visual Basic

Dim s As Long
Private Sub Command1_Click()
s = 0
For i = 1 To Len(Text1.Text)
For t = 1 To Len(Text2.Text)
If Mid(Text1.Text, i, 1) = Mid(Text2.Text, t, 1) Then s = s + 1
Next t
Next i
Print "Количество одинаковых букв = " & s
End Sub

Но я такое в 5-6м классе решал...

@Noobak 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 19
		1
	Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы 22.11.2012, 10:00. Показов 1026. Ответов 1 Метки нет (Все метки) Составьте программу, выясняющую, есть ли в слове Х и У одинаковые символы 0

	22.11.2012, 11:19

Опции темы