Форум программистов, компьютерный форум, киберфорум
Наши страницы
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
Казанский
14912 / 6313 / 1721
Регистрация: 24.09.2011
Сообщений: 9,977
30.12.2011, 13:35 0

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

30.12.2011, 13:35. Просмотров 1293. Ответов 2
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
Dim s$, i&
s = "Дана строка. Подсчитать, сколько различных символов встречается в ней."
On Error Resume Next
With CreateObject("scripting.dictionary")
    For i = 1 To Len(s)
        .Add Mid$(s, i, 1), "0"
    Next
    MsgBox "Различных символов: " & .Count & vbLf & Join(.keys, "")
End With
End Sub
Добавлено через 44 минуты
С доп. опцией
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub bb()
Dim s$, i&
s = "Дана строка. Подсчитать, сколько различных символов встречается в ней."
With CreateObject("scripting.dictionary")
    .CompareMode = 1 '1 - не различать регистр. 0 или не задано - различать регистр.
    For i = 1 To Len(s)
        .Item(Mid$(s, i, 1)) = ""
    Next
    MsgBox "Различных символов: " & .Count & vbLf & Join(.keys, "")
End With
End Sub


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

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

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

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

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

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