VBNet - Форум - Вопрос по задачке!

Вопрос: Вопрос по задачке! Добавлено: 24.05.06 11:39

Автор вопроса: maza

Задачка: Сколько букв "у" в слове стоит на четных местах?

Вот этот код определяет сколько букв "у" вообще в слове, а вот как определить сколько стоит на четных местах...что- то не врублюсь :(

Код:

Option Explicit

Dim strA As String
Dim strB As String
Dim I As Byte
Dim N As Byte

Private Sub Command1_Click()
strA = InputBox("Введите слово", "Ввод слова")
Do While I < Len(strA)
I = I + 1
strB = Mid(strA, I, 1)
If strB = "у" Then N = N + 1
Loop
Print "Количество букв у в тексте равно"; N
End Sub
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 24.05.06 11:54
	Уже не смешно Ответить

Номер ответа: 2 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #2	Добавлено: 24.05.06 12:02
	InStr+Mod Ответить

Номер ответа: 3 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655	Профиль \| \| #3	Добавлено: 24.05.06 12:37
	If strB = "у" Then N = N + 1 измени на: If (strB = "у" and (i/2=i\2) Then N = N + 1 Как вариант можно использовать: If (strB = "у" and (i mod 2 = 0) Then N = N + 1 Наверное, так даже лучше. Ответить

Номер ответа: 4 Автор ответа: maza Вопросов: 2 Ответов: 4	Профиль \| \| #4	Добавлено: 24.05.06 13:51
	2 Pashenko Большое спасибо, получилось! Ребят, еще вопросик, кто нить может написать вот такую программку? - Сечение крыши имеет форму полукруга с радиусом R м. Требуется сформировать таблицу, содержащую длины опор, устанавливаемых через каждые R/5 м ... Ответить

Номер ответа: 5 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655	Профиль \| \| #5	Добавлено: 24.05.06 15:19
	dim i as long dim L as double dim R as double for i=-5 to 5 L=sqr(R^2-(R*i/5)^2) me.print i; L next i Писал "от руки", без проверки. Ответить

Номер ответа: 6 Автор ответа: maza Вопросов: 2 Ответов: 4	Профиль \| \| #6	Добавлено: 24.05.06 17:02
	не работает..... Ответить

Страница: 1 |