Помогите составить программу по одномерному массиву visual basic.

Смотрите код на VBA, на VB практически тоже самое будет:
Option Base 1

Sub Fignya()
Dim A() As Long
Dim S As String
Dim max, count, i As Long
Dim state As Boolean

n = InputBox("Введите кол элементов массива n = ")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("Элемент A(" & i & ")=")
Next i
S = "Массив: " + Chr(13) + Chr(10)
For i = 1 To n
S = S & Str(A(i)) & " "
Next i
S = S + Chr(13) + Chr(10)
count = 0
state = False
For i = 1 To n
If (A(i) Mod 2 = 0) Then
count = count + 1
Else
If (state = False) Then
max = A(i)
state = True
End If
If (A(i) > max) Then
max = A(i)
End If
End If
Next i
S = S + Chr(13) + Chr(10)
S = S + "наибольшее число из нечетных чисел массива: " + Str(max)
S = S + Chr(13) + Chr(10)
S = S + "количество четных чисел массива: " + Str(count)
MsgBox (S)

End Sub

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

пиши, помогу. если еще актуально