Задача на одномерный массив в Visual Basic

[Jarsey]

Задали простую задачу. А как ее сделать ума не приложу))) буду очень признателен если кто то поможет хоть чем то
Задача:
Создать массив a(n):
1. Определить колличество чисел и колличество нечетных элементов
2. Определить сумму едениц и произведение положительных элементов
3. Отсортировать первую половину массива по возростанию, вторую по убыванию

[Biggs]

Каких чисел?

[Jarsey]

просто написано
В массиве a(n) определить...(((
самого массива нету наверно нужно цифры "от фонаря"

[Jarsey]

просто написано
В массиве a(n) определить...(((
самого массива нету наверно нужно цифры "от фонаря"

[Biggs]

Private Sub Command1_Click()
Dim a(5) As Integer, k As Integer, i As integer, SUM As Integer, POS As Double
Randomize
k = 0
SUM = 0
POS = 1
For i = 0 To 5
a(i) = CInt(Rnd * 100)
SUM = SUM + a(i)
If a(i) Mod 2 <> 0 Then k = k + 1
If a(i) > 0 Then POS = POS * a(i)
Print a(i)
Next
Print "Количество чисел=", UBound(a) + 1
Print "Количество нечетных элементов=", k, "Сумма=",SUM, "Произведение положительных элементов=",POS

End Sub

Без сортировки
Проверь все ли правильно

[Jarsey]

пасибочки только я без понятия как проверить))))) попробую запхнуть в бэсик и сдать))

[Biggs]

Открой бэйсик , перетащи на форму кнопку и вставь код