Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
пуся
0 / 0 / 0
Регистрация: 17.01.2010
Сообщений: 14
1

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

05.03.2010, 10:49. Просмотров 1099. Ответов 1
Метки нет (Все метки)

помогите пожалуйста дорешать задачу!!!!

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран.

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
28
29
30
31
Private Sub UserForm_Click()
 
End Sub
 
Private Sub Закрыть_Click()
ActiveDocument.Close
End Sub
Private Sub Открыть_Click()
Dim dlgOpen As Dialog
Set dlgOpen = Dialogs(wdDialogFileOpen)
With Dialogs(wdDialogFileOpen)
  .Name = "*.doc"
  .Show
End With
End Sub
Private Sub Вывод_фрагмента_Click()
Selection.Sections.Add
Str.Text = Selection.Text
End Sub
Private Sub Определить_Click()
Dim i As Variant
L = Len(Str)
For i = 1 To L
If Mid(Str, i, 1) = ? Then
Z = Z + 1
End If
Next i
Kolich.Caption = Z
 
 
End Sub
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2010, 10:49
Ответы с готовыми решениями:

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран
:help:%-):cry::wall: решить в VBA!!!!

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран
помогите пожалуйста доделать задачу: Дана строка символов. Подсчитать, сколько различных символов...

Дана строка символов. Посчитать, какое количество символов содержится в ней
пожалуйста помогите решить задачу!!!очень нужно!!!

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

Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и...

1
Alex77755
10991 / 3447 / 593
Регистрация: 13.02.2009
Сообщений: 10,241
05.03.2010, 11:51 2
добавь переменную стринг SIM и измени цикл. в SIM строка уникальных символов. z - их количество
Код
For i = 1 To L
If InStr(1, SIM, Mid(Str, i, 1)) = 0 Then
SIM = SIM & Mid(Str, i, 1)
Z = Z + 1
End If
Next i
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2010, 11:51

Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и...

Задаётся переменная a$. Как подсчитать количество символов в ней?
Задаётся как текст переменная а$,как подсчитать сколько символов в этой переменной?

Дана строка символов. Выделить подстроку между первой и последней точкой
1. Дана строка символов. Выделить подстроку между первой и последней точкой. 2. Напечатать в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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