| Вопрос: Заполнить массив | Добавлено: 10.02.07 18:37 |
Автор вопроса:  Зеленый
|
|
Как в VB6 можно по-быстрому заполнить массив.
Когда-то в qB было что-то вроде: Data 1,2,3,4. Вводить так долго a[1]=1: a[2]=2.... |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 10.02.07 19:23 |
|
Уж не это ли?
For Счётчик_цикла = Старт To Стоп Step Шаг
Группа операторов Next [Счётчик_цикла] Dim c As Integer
Dim iArray(10) As Integer For c = 0 To 10 iArray(c) = 5 Next c |
||
|
Номер ответа: 2 Автор ответа: Зеленый Вопросов: 7 Ответов: 13 |
Профиль | | #2 | Добавлено: 10.02.07 19:54 |
|
Спасибо, но я не это имел ввиду. Просто пример неудачный.
У меня несколько массивов, скажем по 26 членов. Один типа string, другие single. И есть уже готовые значения, которые надо присвоить. И циклом не пойдет. А вводить 26 раз таким образом (и еще для нескольких массивов) долго: s(1)="корова" s(2)="танк" ... И присвоение должно быть внутри кода (в смысле не с файла). Помню, когда-то, в qBasic, можно было через запятую перечислить члены подряд, там кажется оператор Data был. |
||
|
Номер ответа: 3 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #3 | Добавлено: 10.02.07 20:07 |
|
Все просто!
Dim arr() arr = Array(1,2,3,4) И так в Array() можно писать скоко угодно!!! |
||
|
Номер ответа: 4 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #4 | Добавлено: 10.02.07 20:24 |
|
s=array("корова","танк",...)
s должен быть VARIANT |
||
|
Номер ответа: 5 Автор ответа: ЗеленыйВопросов: 7 Ответов: 13 |
Профиль | | #5 | Добавлено: 10.02.07 20:27 |
| Спасибо - работает! Только если arr объявлен в Declaration, то ошибка, а arr у меня должен быть глобальным (или я что-то путаю). | ||
|
Номер ответа: 6 Автор ответа: ЗеленыйВопросов: 7 Ответов: 13 |
Профиль | | #6 | Добавлено: 10.02.07 20:29 |
|
А нет! Извиняюсь все работает.
Всем спасибо!!! |
||
Страница: 1 |