Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/121: Рейтинг темы: голосов - 121, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 21.07.2007
Сообщений: 47

Как задать массив констант

09.01.2008, 19:51. Показов 25500. Ответов 11
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте!
-------------
У меня такая проблема. Я не знаю как задать массив констант с присвоением значений.

Хочу получить примерно следующее:

Visual Basic
1
массив Chisl = ('один','два','три','четыре','пять','шесть')
но не хочу задавать каждый эл-т массива отдельно, например
Visual Basic
1
2
3
4
5
Chisl(1)='один'
Chisl(2)='два'
.
.
Chisl(6)='шесть'
Заранее благодарен. =Миша
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
09.01.2008, 19:51
Ответы с готовыми решениями:

Как задать массив констант ?
Dim m1(4) As String=('a','b','aa','bc') - ТАК НЕЛЬЗЯ ТОЧНО! А как можно?

Как задать массив из 35 вопросов
Нужен массив из 35 вопросов - как на другую строку перейти: задаю вот так Vopros = Array("Решать логические задачи и задачи на...

Как задать 2-x мерный динамический массив?
как в ВБА задать двух мерный динамический массив и как в дл. указывать его размерность

11
2 / 2 / 1
Регистрация: 30.07.2007
Сообщений: 206
11.01.2008, 04:27
Для версии VB 6.0.
тогда создай файл на диске, в который впиши все значения твоих констант, а дальше... используй пример 'записи данных из файла на диске в массив', который в скором времени будет размещен на сайте VBcode.FAQ (http://sharig.webzone.ru)
Необходимое пояснение: про использование функции Split можно прочитать здесь - http://sharig.webzone.ru/global/pages/Function.htm
В случае следующего примера, впиши все свои константы в файл через абзац:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
Dim txt ' As Long
Dim FN As Integer
FN = FreeFile
Dim FName As String
FName = 'D:1.txt'
Open FName For Input As #FN
txt = Input(LOF(FN), #FN)
Close #FN
Dim str1() As String
str1 = Split(txt, vbCrLf)
For i = 0 To UBound(str1()) - 1
MsgBox str1(i)
Next
End Sub
0
4 / 4 / 2
Регистрация: 15.06.2012
Сообщений: 18
15.06.2012, 15:19
Цитата Сообщение от vashin Посмотреть сообщение
У меня такая проблема. Я не знаю как задать массив констант с присвоением значений.
Visual Basic
1
2
3
4
5
6
7
8
Option Base 1
DIM Chisl As Variant
.
.
Chisl=Array ("один","два","три","четыре","пять","шесть")
.
.
Form1.Print Chisl(6)
0
 Аватар для Апострофф
9908 / 3919 / 742
Регистрация: 11.10.2011
Сообщений: 5,902
15.06.2012, 15:25
CyberUser, Вам не кажется, что Ваш ответ несколько запоздал[/OFF]
0
4 / 4 / 2
Регистрация: 15.06.2012
Сообщений: 18
15.06.2012, 15:39
Цитата Сообщение от Апострофф Посмотреть сообщение
CyberUser, Вам не кажется, что Ваш ответ несколько запоздал[/OFF]
Да, Миша уже наверное уже с бородой и служит где-нибудь сисадмином.
Но я сам только что озадачился такой проблемой, гугл вывел на эту ветку. Я понял, что тема не раскрыта.
Немного подумав решил, что мое решение будет оптимально. Ну и расшарил идею... Не создавать же новую тему.
0
Эксперт Hardware
 Аватар для Linoge
3205 / 1915 / 324
Регистрация: 25.10.2011
Сообщений: 5,564
15.06.2012, 15:57
Насколько я знаю в вб массива констант нет, а жаль.
Есть одиночная константа или глобальный массив, как в примере.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38160 / 21095 / 4306
Регистрация: 12.02.2012
Сообщений: 34,677
Записей в блоге: 14
15.06.2012, 16:53
Да вот так:

Visual Basic
1
arr=Array("раз","два","три","четыре")  ' и т.д.
Только помни, что "раз" будет иметь индекс 0. А если так:

Visual Basic
1
arr=Array("","раз","два","три","четыре")  ' и т.д.
то "раз" будет иметь индекс 1
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
15.06.2012, 16:58
Цитата Сообщение от CyberUser Посмотреть сообщение
Option Base 1
Catstail, внимательнее.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38160 / 21095 / 4306
Регистрация: 12.02.2012
Сообщений: 34,677
Записей в блоге: 14
15.06.2012, 17:02
А я не использую Option Base... Имею право. И это не вопрос внимания/невнимания.
0
4 / 4 / 2
Регистрация: 15.06.2012
Сообщений: 18
16.06.2012, 00:26
Не спорьте мальчики.
Такие мелочи вылазят на первом же тестовом прогоне и сразу правятся.
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38160 / 21095 / 4306
Регистрация: 12.02.2012
Сообщений: 34,677
Записей в блоге: 14
16.06.2012, 13:27
Поучи, поучи...
0
Почетный модератор
 Аватар для Памирыч
23248 / 9160 / 1084
Регистрация: 11.04.2010
Сообщений: 11,014
16.06.2012, 21:06
Ладно тему подняли 2001 года, но флудить в ней - это уже через край.
Закрыто
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
16.06.2012, 21:06
Помогаю со студенческими работами здесь

Как все-таки объявить массив констант?
Народ , как все-таки в VBA (Word) объявить массив констант ? А то мне приходится при каждом входе в процедуру его заново инициализировать .

Указатель на массив констант. Как передать в функцию?
С наступающим! Нужно передать указатель на stule_a(b) в функцию. А из функций уже выбирать саму строку "stule_a" Как это...

Массив констант в статическом классе. Как правильно сделать
Добрый день! Есть задача, сделать класс с данными, в котором хранится простой массив с данными и классы, содержащие массивы константных...

Как объявить в MSVBA/Excel массив констант уровня модуля
Как объявить в MSVBA/Excel массив констант уровня модуля? Все получается, когда объявление вставляю внутрь подпрограммы, а над - никак. ...

Массив констант.
Объясните как создать массив констант элементы которого последовательность символов, к примеру a чтобы был "creatin" и т.д.


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

Или воспользуйтесь поиском по форуму:
12
Закрытая тема Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru