4 массива в VB

[Veronica]

Надо создать 3 массива
-с ростом
-с фамилией
-с именем

Создать 4ый массив ,который состоит из этих 3х , отсортированных по алфавиту имени.

Подсчитать кол-во элементов в массиве.

Помогите плизз!!

Объясните хоть как делать.

[Twister]

Alibek, не закрывай тему.
Может действительно, помочь девчонке? Может она горит желанием научиться VB?

[alibek]

Создаешь три массива нужного тебе размера:

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

Dim aHeight(1 To 10) As Single, aLastName(1 To 10) As String, aFirstName(1 To 10) As String

(либо Dim aHeight() и затем ReDim aHeight(1 To 10))

Заполняешь их.

Создаешь четвертый массив

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

Dim aResult(1 To 10) As String

, состоящий из элементов

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

aResult(i) = aLastName(i) & " " & aFirstName(i) & " - " & Format$(aHeight(i), "0.0")

И сортируешь его. Примеры и алгоритмы сортировок есть и на этом форуме, и на других сайтах.

[Twister]

Veronica

Давай попробуем объяснить тебе в двух словах как это сделать...

1. Массив создается так: dim arr_name (1 to N) as string, где arr_name - имя массива, N - размерность (кажись тебе надо было ее определить?). Слово string означает что ячейки в массиве будут иметь строковый тип. Для массива с ростом следует поставить integer (хотя бы).
2. Обращаться к элементу массива так: arr_name(i) = "наша строка". Тут i означает индекс массива, значение в кавычках - то, что мы пишем в нужную ячейку.

Итак, этого пока достаточно чтоб написать хоть что-то. Если я увижу, что ты стараешься - помогу дальше...

[Veronica]

Использовать надо ListBox или TextBox?

[Veronica]

Написала до

Dim name(1 To 5) As String, surname(1 To 5) As String, Height(1 To 5) As Integer

Name(0)= "Иван" Print

и вылезла ошибка Compile error , Expexted :AS

Как исправить ?

[GSerg]

Взять книгу "VB для чайников" и прочитать страниц десять.

[alibek]

Во-первых, Name(1), а не Name(0).
Во-вторых, Name является зарезерированным ключевым словом, его нельзя использовать.

[Veronica]

И опять ошибка -

Invalid outside procedure

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6604834#6604834

[Twister]

Использовать надо ListBox или TextBox?

Для чего?

И опять ошибка

Могу взглянуть на полный код получившегося модуля?

[Veronica]

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"

....пока все.

[Twister]

Дело в том, что все действа нужно выполнять в процедурах.

Положи на форму кнопку, щелкни по ней два раза - увидишь что-то вроде

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

private sub command1_click()
end sub

Вот в теле процедуры и пиши код...

[Twister]

aHeight(1) = "178"

Помнишь я говорил что в кавычках записываются строки? А массив aHeight у тебя какого типа?

[Veronica]

В теле процедуры поставила , но по нажатию кнопки(в режиме запуска) ничего не происходит.

[Twister]

Конечно. Ты же просто заполняешь массивы, но действий, оповещающих пользователя о чем либо ты не делаешь. Попробуй вставить после всех своих действий в процедуру такой код

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

msgbox "Массивы заполнены!"

[Veronica]

aHeight(1) = "178"

Помнишь я говорил что в кавычках записываются строки? А массив aHeight у тебя какого типа?

Integer стоит.

[Twister]

Integer стоит.

Чуть-чуть шевели серыми клеточками. Кавычки убрать.

[Veronica]

msgbox "Массивы заполнены!" работает , но хотелось ,что бы и в Listbox'ах отображалась информация
aName(1) = "Иван"
aSurname(1) = "Петров"
aHeight(1) = "178"

[Twister]

Кинь на форму нужное кол-во листбоксов. Заполняем их в цикле (хотя можно не использовать массивы, а сразу заполнить их):

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

list1.clear
for i=1 to 10
list1.Add arr_name(i)
next

Расскажи-ка мне, что ты поняла? Что этот код делает?

[Veronica]

Выводит в листбокс информацию из массива , наверно.

[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 5
List1.Add aName(1)
Next

End Sub

Так ?

[Twister]

Ну ошибок если не выдает, значит все ок. Заполняй остальные элементы...

[Veronica]

Выделяет Private Sub Command1_Click()

и пишет при старте - Method or data member not found

[Twister]

У... прости. В торопях не заметил, надо .AddItem вместо .Add

[Veronica]

Еще я исправила
For i = 1 To 1

[Twister]

For i = 1 To 1

Эта строчка означает, что цикл будет крутиться и увеличивать переменную i от единицы до последнего числа. Если элементов в массиве 10, то и ставить нужно 10.

[Veronica]

1)...тогда данные несколько раз копируются ((
2)Как внедрить
Dim aResult(1 To 10) As String
aResult(i) = aName(i) & " " & aSurname(i) & " - " & Format$(aHeight(i), "0.0") в четвертый листбокс ?

[Twister]

тогда данные несколько раз копируются

Ты заполнила все массивы до конца?

Как внедрить в четвертый листбокс?

Заполнить массив в цикле (ты привела правильный код) и в цикле (в этом же) добавить...