4 массива в VB

[Veronica]

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

[Twister]

Покажи код. Весь.

[Veronica]

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]

Да уж...
Массивы нужно сначала заполнить, а потом выводить в листы. Смотри:

Код: Выделить всё

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]

Да.

[Veronica]

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]

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

[Veronica]

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

[Veronica]

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

[Twister]

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

Нет.

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

Код в студию, но не весь, только тот не надо, где заполнение...

[Veronica]

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]

Так. Я ж сказал - все в цикл, все...

Код: Выделить всё

For i = 1 To 5
aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0")
List4.AddItem aResult(i)
Next

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

[Veronica]

Код: Выделить всё

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]

Ладно. Я вижу без книги тебе все равно не обойтись, а все досканально объяснять - меня модеры прибьют, так как топик разрастется до невероятных размеров. Держи готовый код, вставь его после заполнения массивов.

Код: Выделить всё

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]

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

[GSerg]

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

[Twister]

Да не серчай, GSerg. Сейчас пойдем в АСЮ...

[Ennor]

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

Эх...

[Twister]

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

[GSerg]

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

Эх...

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

[Twister]

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

[GB826]

Twister

Вы случаем не преподаватель?

[Twister]

Случаем нет, а что?

[Ennor]

Я, однако же, топик не закрыл

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

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

[Twister]

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

Гм... народ! Вот этого я ни как не ожидал, особенно от "конструктивного критика". Это при всем при том, что у меня жена и сын. Обласкали, нечего сказать... Я ж говорю, просто хотел помочь девчонке, тем более, что нас разделяет не одна тыЩа километров...

[GSerg]

Аяяй... Смайл бы поставил простой - вопросы бы пропали, ан нет, по отмазкам... хм

[Twister]

по отмазкам

Не... скорее просто привел факты.

[alibek]

WHITEOUT777, тебе строгое замечание. Перечитай правила.