Найти количество слов, которое содержат ровно три буквы А

@Antiq · Регистрация: 26.05.2012

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

Здравствуйте, хотелось бы понять как расписывается этот код в VBA.

@ikki · 26.05.2012, 13:27

Здравствуйте.
Я правильно понимаю, что Вам не нужен готовый код, который бы Вы не понимали?
Я правильно понимаю, что у Вас есть алгоритм, решающий Вашу задачу, но Вы испытываете трудности при его реализации в VBA?
Я правильно понимаю, что Вы можете предоставить некоторый черновик-заготовку кода на VBA и обозначить в нём проблемные места?

ОК.
Давайте Ваш алгоритм (идею) и Вашу заготовку.

@all_angarsk · 26.05.2012, 14:03

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
25
26
27
Private Sub CommandButton1_Click()
Dim s As String, z As Integer, n As Integer, w(100) As String
Cells.Clear
s = "КАТАСТРОФА ПРАВА ТРАВА КАТАСТРОФА ПРАВА ПРАВА КАТАСТРОФА"
Cells(1, 2) = s
d = Split(s)
t = UBound(d)
For i = 0 To t
Cells(i + 4, 3) = d(i)
r = Len(d(i))
Cells(i + 4, 2) = r
 
For j = 1 To r
g = Mid(d(i), j, 1)
If g = Chr(192) Then
z = z + 1
End If
Next
If z = 3 Then
w(n) = d(i)
n = n + 1
End If
z = 0
Next
Cells(i + 4, 2) = "Количество слов, которое содержат ровно три буквы А = " & n
 
End Sub

вариант решения

@m-ch · 26.05.2012, 14:12

Visual Basic
1
2
3
4
5
6
7
8
Sub www()
Dim s$, n&, x
s = "КАТАСТРОФА ПРАВА ТРАВА КАТАСТРОФА ПРАВА ПРАВА КАТАСТРОФА КАРАНДАШ"
For Each x In Split(s)
    If Len(x) - Len(Replace(x, "А", "")) = 3 Then n = n + 1
Next x
MsgBox "Количество слов, которое содержат ровно три буквы А = " & n
End Sub

@Antiq · 26.05.2012, 14:55 **[ТС]**

Большое спасибо, за записанные выше варианты решения.

Dragokas · 27.05.2012, 17:05

Не по теме:

ikki_cf, как правило, с такой простой аргументацией студенты, не имеющие достаточной подготовки в области информатики просят именно готовые решения. Иначе почему бы сразу не выложить все мысли.

@ikki · 27.05.2012, 17:37

Не по теме:

Diskretor, во мне ещё не умерла вера в разумное, светлое и вечное.
ну или хотя бы в то. что студенты перестанут врать и говорить "помогите", а будут говорить: "мне влом, мне погулять охота, сделайте, пожалуйста, вместо меня".
а там, глядишь - и марсиане таки прилетят :)

Новые блоги и статьи Все статьи Все блоги /
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .

@Antiq 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4

	Найти количество слов, которое содержат ровно три буквы А 26.05.2012, 11:46. Показов 1606. Ответов 6 Метки нет (Все метки) Здравствуйте, хотелось бы понять как расписывается этот код в VBA. 0

@ikki призрак 3266 / 894 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	26.05.2012, 13:27
	Здравствуйте. Я правильно понимаю, что Вам не нужен готовый код, который бы Вы не понимали? Я правильно понимаю, что у Вас есть алгоритм, решающий Вашу задачу, но Вы испытываете трудности при его реализации в VBA? Я правильно понимаю, что Вы можете предоставить некоторый черновик-заготовку кода на VBA и обозначить в нём проблемные места? ОК. Давайте Ваш алгоритм (идею) и Вашу заготовку. 1

@Antiq 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4
	26.05.2012, 14:55 [ТС]
	Большое спасибо, за записанные выше варианты решения. 0

Dragokas
	27.05.2012, 17:05
	Не по теме: ikki_cf, как правило, с такой простой аргументацией студенты, не имеющие достаточной подготовки в области информатики просят именно готовые решения. Иначе почему бы сразу не выложить все мысли. 0

@ikki
	27.05.2012, 17:37
	Не по теме: Diskretor, во мне ещё не умерла вера в разумное, светлое и вечное. ну или хотя бы в то. что студенты перестанут врать и говорить "помогите", а будут говорить: "мне влом, мне погулять охота, сделайте, пожалуйста, вместо меня". а там, глядишь - и марсиане таки прилетят :) 0

Опции темы