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

@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, во мне ещё не умерла вера в разумное, светлое и вечное.
ну или хотя бы в то. что студенты перестанут врать и говорить "помогите", а будут говорить: "мне влом, мне погулять охота, сделайте, пожалуйста, вместо меня".
а там, глядишь - и марсиане таки прилетят :)

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

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

	Найти количество слов, которое содержат ровно три буквы А 26.05.2012, 11:46. Показов 1588. Ответов 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