|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.01.2005, 15:42:09
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Добрый день. При решении контрольной у меня возникла проблемма в созданиит масива масива. Пример: вводится N - количество элементов масива потом вводится название городов (N-раз) и названия этих городов должны сохраняться в переменных типа a1 a2 a(N) т.е мне надо. Ввели N = 3 теперь, я так думаю надо 3 раза вести в тектовое поле название городов. Т.е ввели название нажали на ОК. a1 = text1.text очистилось текстовое поле. теперь a2 = text1.text очистилось тектвое поле и так n - раз. и теперь a1 = text1.text a2 = text1.text a3 = text1.text Помогите пожалуйста с кодом, ато я как ни долбился - не получается ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 15:54:00
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Если хочешь создать массив переменных, то: Private A(100) as String 'Задается массив из 100 элементов типа текст Если хочешь создать массив текстовых полей, то установи для Text значение Index=0 на вкладке свойств. Далее в коде программы загружай нужное количество элементов: For i=1 to 10 Load Text(i) Text(i).Visible=True Text(i).Top= 'задай сам Text(i).Left= ''задай сам Next i ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:22:20
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
мне бы еще вариантов ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:31:58
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Пришли пример. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:38:52
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Есть N (300<N<100) натуральных чисел Аi (i=1…N, Ai<2005, все Ai различны). Надо найти длину (количество элементов) самой длиной арифметической прогрессии, которую можно сформировать, используя некоторые из чисел Ai Ввод: Целое N и N строк, в которых записаны N чисел Ai Вывод: Целое число, равное длине самой длиной арифметической прогрессии. Пример: (в ( ) комментарий относительно того что вводится в строке) 5 (N) 10 (A1) 4 (A2) 5(A3) 15(A4) 2(A5) 3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:41:30
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Есть N (300<N<100) натуральных чисел Аi (i=1…N, Ai<2005, все Ai различны). Надо найти длину (количество элементов) самой длиной арифметической прогрессии, которую можно сформировать, используя некоторые из чисел Ai Ввод: Целое N и N строк, в которых записаны N чисел Ai Вывод: Целое число, равное длине самой длиной арифметической прогрессии. Пример: (в ( ) комментарий относительно того что вводится в строке) 5 (N) 10 (A1) 4 (A2) 5(A3) 15(A4) 2(A5) 3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:43:44
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
Данный код создает массив из N элементов. N и все элементы запрашиваются. Private N, A(100), i As Long Private Sub Command1_Click() N = Val(InputBox("Введите N")) For i = 1 To N A(i) = Val(InputBox("Введите A(" & i & ")")) Next i End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 16:48:15
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
благодарю сейчас попробую. Осталось только с прогрессией разобраться ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.01.2005, 17:05:14
|
|||
|---|---|---|---|
Как сделать массив |
|||
|
#18+
А если текстовые значения вводить. Тогда как? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2168312]: |
0ms |
get settings: |
8ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
31ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
43ms |
get tp. blocked users: |
1ms |
| others: | 193ms |
| total: | 309ms |
| 0 / 0 |
