одномерные массивы

[Васильева Зинаида]

Здраствуйте, помогите с VB , его знаю плохо.А сделать задачи нужно(
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму нечетных элементов. Найти среднее арифметическое отрицательных элементов массива. Вывести индексы тех элементов, значения которых больше заданного числа В.
2.Заменить первый элемент массива на максимальный среди отрицательных.
3.Отсортировать массив по возрастанию, начиная с максимального элемента.
4.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа).

[Васильева Зинаида]

Сообщение от Васильева Зинаида

Здраствуйте, помогите с VB , его знаю плохо.А сделать задачи нужно(
1.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму нечетных элементов. Найти среднее арифметическое отрицательных элементов массива. Вывести индексы тех элементов, значения которых больше заданного числа В.
2.Заменить первый элемент массива на максимальный среди отрицательных.
3.Отсортировать массив по возрастанию, начиная с максимального элемента.
4.Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа).

я первое задание по 1 задаче вроде как бы сделала:

Option Explicit
Option Base 1
Dim n As Integer
Dim a() As Integer
Private Sub Command1_Click()
Dim i As Integer
n = Val(Text1.Text)
ReDim a(n)
Text2.Text = ""
Randomize
For i = 1 To n
a(i) = -10 + Int(Rnd * 21)
Text2.Text = Text2.Text + " " + Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, Sum As Integer, k As Integer, SrAri As Integer
Sum = 0
SrAri = 0
For i = 1 To n
If Abs(a(i)) Mod 2 = 1 Then
Sum = Sum + a(i)
End If
Next i
Text3.Text = Str(Sum)

End Sub