4 массива в VB

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:09

1)Да
2)Внедрила , но никакого эффекта.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 17:11

Покажи код. Весь.
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:13

Private Sub Command1_Click()
Dim aName(1 To 5) As String, aSurname(1 To 5) As String, aHeight(1 To 5) As Integer

aName(1) = "Èâàí"
aSurname(1) = "Ïåòðîâ"
aHeight(1) = 178

List1.Clear
For i = 1 To 1
List1.AddItem aName(1)
Next

List2.Clear
For i = 1 To 1
List2.AddItem aSurname(1)
Next

List3.Clear
For i = 1 To 1
List3.AddItem aHeight(1)
Next

aName(2) = "Àíäðåé"
aSurname(2) = "Êîðîë¸â"
aHeight(2) = 184


For i = 1 To 1
List1.AddItem aName(2)
Next


For i = 1 To 1
List2.AddItem aSurname(2)
Next


For i = 1 To 1
List3.AddItem aHeight(2)
Next

Dim aResult(1 To 2) As String
aResult(1) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")

For i = 1 To 1
list4.AddItem aResult(1) - все работает , допустила ошибочку.

Next

End Sub

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 17:18

Да уж...
Массивы нужно сначала заполнить, а потом выводить в листы. Смотри:
Код: Выделить всё
aName(1) = "Максим"
aSurname(1) = "Павлов"
aHeight(1) = 172
'... остальные элементы
aName(10) = "Veronica"
aSurname(10) = "Unknown"
aHeight(10) = 178
for i=1 to 10
List1.AddItem aName(i)
List2.AddItem aSurname(i)
List3.AddItem aHeight(i)
next
Поняла?
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:20

Да.

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:37

Private Sub Command1_Click()
Dim aName(1 To 5) As String, aSurname(1 To 5) As String, aHeight(1 To 5) As Integer

aName(1) = "Ìàêñèì"
aSurname(1) = "Ïàâëîâ"
aHeight(1) = 172
aName(2) = "Àíäðåé"
aSurname(2) = "Êîðîëåâ"
aHeight(2) = 178
aName(3) = "Íèêîëàé"
aSurname(3) = "Òàðàñîâ"
aHeight(3) = 183
aName(4) = "Âèêòîð"
aSurname(4) = "Ïåòóõîâ"
aHeight(4) = 175
aName(5) = "Ñåðãåé"
aSurname(5) = "Àëåêñàíäðîâ"
aHeight(5) = 185

For i = 1 To 5

List1.AddItem aName(i)
List2.AddItem aSurname(i)
List3.AddItem aHeight(i)

Next
Dim aResult(1 To 5) As String

aResult(j) = aName(i) & " " & aSurname(j) & " - " & Format$(aHeight(j), "0.0") '-выделяет строку и пишет Subscript out of range , как исправить?

For j = 1 To 5

List4.AddItem aResult(j)

Next
End Sub

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 17:44

Ошибка потому, что до первого обращения переменная j имеет значение 0, а у тебя массив начинается с единицы. Забудь про j. Все это можно запихнуть в один цикл с переменной i. Так проще.
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:54

Все равно пишет ошибку(

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:55

Может быть надо через 2ую кнопку сделать ?

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 17:57

Может быть надо через 2ую кнопку сделать ?
Нет.
Все равно пишет ошибку
Код в студию, но не весь, только тот не надо, где заполнение...
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 17:58

Dim aResult(1 To 5) As String

aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")

For i = 1 To 5
List4.AddItem aResult(i)

Next
End Sub

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 18:01

Так. :? Я ж сказал - все в цикл, все...
Код: Выделить всё
For i = 1 To 5
aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")
List4.AddItem aResult(i)
Next

ЗЫ Заключай код в теги чтоб было приятнее читать...
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 18:10

Код: Выделить всё
For i = 1 To 5
aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")
List1.AddItem aName(i)
List2.AddItem aSurname(i)
List3.AddItem aHeight(i)
List4.AddItem aResult(i)


Так ??

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 18:17

Ладно. Я вижу без книги тебе все равно не обойтись, а все досканально объяснять - меня модеры прибьют, так как топик разрастется до невероятных размеров. Держи готовый код, вставь его после заполнения массивов.
Код: Выделить всё
List1.Clear
List2.Clear
List3.Clear
List4.Clear
For i=1 to 5
  List1.AddItem aName(i)
  List2.AddItem aSurname(i)
  List3.AddItem aHeight(i)
  aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")
  List4.AddItem aResult(i)
Next
А я все практикую лечение травами...

Veronica
Начинающий
Начинающий
 
Сообщения: 23
Зарегистрирован: 16.05.2006 (Вт) 11:17

Сообщение Veronica » 16.05.2006 (Вт) 18:21

Как теперь 4 ый лист бокс отсортировать??

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.05.2006 (Вт) 18:22

Всё происходящее сильно напоминает мне чат.
Ссылка на чат вверху страницы.
Здесь лучше не надо.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 18:26

Да не серчай, GSerg. Сейчас пойдем в АСЮ...
А я все практикую лечение травами...

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 16.05.2006 (Вт) 18:27

GSerg, ну зачем ты так?!!

Эх...

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 16.05.2006 (Вт) 18:30

Впринципе, GSerg конечно прав. Просто так ей будет легче запомнить, будет потом куда залезть и посмотреть. ИМХО.
А я все практикую лечение травами...

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 17.05.2006 (Ср) 2:52

Ennor писал(а):GSerg, ну зачем ты так?!!

Эх...

Я, однако же, топик не закрыл, и тем самым мнения своего никому не навязывал. Однако чат, и правда, это другая сущность.
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 17.05.2006 (Ср) 6:54

Кстати о птичках... Когда я объяснил Веронике алгоритм пузырьковой сортировки и еще кое какие моменты, она вполне серьезно заинтересовалась в получении более глубоких знаний по программированию и захотела купить книженку. Думаю я не ошибся, попросив alibekа не закрывать топик во второй раз...
А я все практикую лечение травами...

GB826
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 312
Зарегистрирован: 04.08.2005 (Чт) 0:58
Откуда: Планета #3

Сообщение GB826 » 17.05.2006 (Ср) 8:54

Twister

Вы случаем не преподаватель?
Пора уже всем хорошим людям собраться и убить всех плохих людей.

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 17.05.2006 (Ср) 9:00

Случаем нет, а что?
А я все практикую лечение травами...

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сорри за оффтоп

Сообщение Ennor » 17.05.2006 (Ср) 14:35

GSerg писал(а):Я, однако же, топик не закрыл

Спасибо. Я немного другое имел в виду, на самом деле: этот, без сомнения, очень поучительный во всех смыслах диалог можно спокойно выставлять на звание самого эротичного треда в тематических разделах за всю историю форума. Я, во всяком случае, ничего прелестнее не припомню.
Чего стоит одна только пара этого и следующего за ним постов :).

Можешь считать меня циничным маньяком, но это действительно стоит того, чтобы сохранить :).

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Re: Сорри за оффтоп

Сообщение Twister » 18.05.2006 (Чт) 22:52

Ennor писал(а):поучительный во всех смыслах диалог можно спокойно выставлять на звание самого эротичного треда в тематических разделах за всю историю форума. Я, во всяком случае, ничего прелестнее не припомню.
Чего стоит одна только пара этого и следующего за ним постов :).
Гм... народ! Вот этого я ни как не ожидал, особенно от "конструктивного критика". :lol: Это при всем при том, что у меня жена и сын. Обласкали, нечего сказать... :) Я ж говорю, просто хотел помочь девчонке, тем более, что нас разделяет не одна тыЩа километров...
А я все практикую лечение травами...

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 19.05.2006 (Пт) 6:00

Аяяй... Смайл бы поставил простой - вопросы бы пропали, ан нет, по отмазкам... хм :)
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Twister
Теоретик
Теоретик
Аватара пользователя
 
Сообщения: 2251
Зарегистрирован: 28.06.2005 (Вт) 12:32
Откуда: Алматы

Сообщение Twister » 19.05.2006 (Пт) 7:18

по отмазкам
Не... скорее просто привел факты. :)
А я все практикую лечение травами...

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 21.05.2006 (Вс) 14:07

WHITEOUT777, тебе строгое замечание. Перечитай правила.
Lasciate ogni speranza, voi ch'entrate.

Пред.

Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 58

    TopList  
cron