Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB]Поясните, пожалуйста, значние элементов в коде, Поясните,пожалуйста, значение переменных 
:(
    Опции темы
novi4ek
Дата 8.10.2008, 17:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.10.2006

Репутация: нет
Всего: нет
Код

Sub Поиск()
K = ActiveDocument.Words.Count
ReDim Словарь(1 To K) As V
i = 1
For Each WW In ActiveDocument.Words
    w = LCase(WW)
    If Len(w) > 1 Then
      For j = 1 To i
        If w = Словарь(j).Слово Then Словарь(j).Число = Словарь(j).Число + 1: Exit For
        If "" = Словарь(j).Слово Then Словарь(i).Слово = w: Словарь(i).Число = 1: i = i + 1: Exit For
       Next j
    End If
Next WW
For ПГ = K To 1 Step -1
If Словарь(ПГ).Число <> 0 Then Exit For
Next ПГ
ReDim Preserve Словарь(1 To ПГ)
For M = 1 To 10
Индекс = 1: Макс = Словарь(1).Число
For i = 2 To ПГ
If Словарь(i).Число > Макс Then Индекс = i: Макс = Словарь(i).Число
Next i
S = S & Словарь(Индекс).Слово & " " & Round(Словарь(Индекс).Число / K, 2) & vbCrLf
Словарь(Индекс).Число = 0
Next M
MsgBox S
End Sub


Это сообщение отредактировал(а) mihanik - 20.10.2008, 19:21
PM MAIL   Вверх
CaptainNemo
Дата 9.10.2008, 02:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 283
Регистрация: 5.6.2008
Где: White Russia, Min sk

Репутация: нет
Всего: 9
Вы для начала объявте все переменные явно. 
Код

ReDim Словарь(1 To K) As Variable 

очевидно, а не V, как у Вас.
Я бегло глянул на код. Если я правильно понял, этот макрос проверяет все одинаковые подряд идущие символы во всех словах документа. Затем сверка со словарем – если слово с таким сочетанием букв есть в словаре – выход из саба и т.д…
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 9.10.2008, 08:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454
CaptainNemo, Вы неправы. Судя по коду, V - это заданный ранее пользовательский тип, с компонентами V.Слово, V.Число (и, возможно, еще какими-то).

Модератору раздела: поправьте пост топикстартера, а то без [code] совсем тускло.
И вообще выбросить бы в ЦП.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 20.10.2008, 19:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109
Модератор: 

Согласен с Akina.

Переношу в центр поддержки.


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0745 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.