Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Вычислить скалярное произведение двух векторов Х и Y размером 4 https://www.cyberforum.ru/vba/thread420735.html
Помогите написать блок-схему Вычислить скалярное произведение двух векторов Х и Y размером 4. Скалярное произведение вычисляется по формуле (во вложении):
Для заданных a, b, h получить таблицу значений функций VBA
Для заданных a, b, h получить таблицу значений функций y1=sin x, y2=cos x для x∈, шаг h.
Программа по нахождению пересечения интервалов VBA
помогите пожалуйста написать программу по нахождению пересекаются ли интервалы или найдите ошибку в моем коде, еще она зацикливается если ячейки пусты Sub gen() Dim d As Integer Dim b As...
VBA Определить, есть ли у матриц A и B одинаковые строки Есть ли у матриц A и B одинаковые строки? Private Sub CommandButton1_Click() Dim A() As Single Dim N As Integer Dim M As Integer N = InputBox("введите кол-во строк n ") M =... https://www.cyberforum.ru/vba/thread420562.html
VBA Подсчитать количество букв в последнем слове https://www.cyberforum.ru/vba/thread420522.html
Дана строка. Подсчитать количество букв k в последнем ее слове.
VBA Заменить в тексте букву «о» на «а»
Задача: Ввести текст. Заменить в тексте букву «о» на «а»
VBA Очистить ячейку от изображения
Помогите, пожалуйста. Как программно очистить ячейку, где находится картинка, а под ней текст. Дело еще в том, что при очищении я не знаю номера изображения. Пока что все так: Private Sub...
VBA Приводить в действие макрос только при выборе объекта В данном архиве макрос. Он выполняется после открытия книги.(находится в объекте книги) Как сделать так что бы он выполнялся на событии выбора combobox'а который находится на первом листе? https://www.cyberforum.ru/vba/thread420407.html
VBA Каждая цифра во введённой строке заменяется следующей по порядку, а 9 заменяет на 0 https://www.cyberforum.ru/vba/thread420399.html
помогите написать процедуру, которая каждую цифру во введённой строке заменяет следующей по порядку, а 9 заменяет на 0.
VBA Написать программу для вычисления делителей числа N Pleaseeeeeeeeeeeeeeeeeee!!! https://www.cyberforum.ru/vba/thread420389.html
Вождь
216 / 48 / 2
Регистрация: 18.02.2010
Сообщений: 81
30.12.2011, 13:42 0

Подсчитать, сколько различных символов встречается в строке

30.12.2011, 13:42. Просмотров 1293. Ответов 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
25
26
Sub Символы_строки()
 
Dim S$, C$, I$
Dim N&, L&, L2&
    
    S = InputBox("Введите строку:")
    L = Len(S) ' длина
    I = "" ' результат
    N = 0 ' счетчик
    Do While L > 0
        N = N + 1
        C = Left(S, 1) ' первый символ
        S = Replace( _
                Expression:=S, _
                Find:=C, _
                Replace:="", _
                Start:=1, _
                Count:=-1, _
                Compare:=VBA.vbBinaryCompare)
        L2 = Len(S)
        I = I & VBA.vbLf & CStr(N) & ". """ & C & """ - " & CStr(L - L2)
        L = L2
    Loop
    MsgBox "Номер. Символ - Количество: " & I
 
End Sub


Вернуться к обсуждению:
Подсчитать, сколько различных символов встречается в строке
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2011, 13:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Подсчитать сколько раз встречается слово
В текстовом файле подсчитать, сколько раз встречается слово, введенное с клавиатуры. (пожалуйста...

Подсчитать сколько раз встречается в массиве символ К
1. Дан массив символов s1,..sn. Подсчитать сколько раз встречается в массиве символ К. 2. Дана...

Подсчитать, сколько раз в числе встречается заданная цифра
Число произвольно вводится пользователем

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