Кто может сделать программки?.. - VB

Формулировка задачи:

1. Дан массив Y(10). Поменять местами 6 и 3 элементы массива. 2. Подсчитать количество чисел больших "17" и количество чисел меньших "17" для массива P(6,8) 3.Определить минимальныйэлементкаждого нечетного ряда массива D(9,6) 4. Вычислить Z=(X1+Y1)/(X2-Y2) где X1 и X2 - корни уравнения 2*X^2+X-4=0 ; Y1 и Y2 - корни уравнения A*Y^2+2*Y-1=0. Доп.усл. - все корни действительны.

Решение задачи: «Кто может сделать программки?..»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim Y(10) As Integer, i As Integer, s As String, z As Integer
    Randomize
    s = "Old:" + vbTab
    For i = 1 To 10
        Y(i) = 20 * Rnd
        s = s + CStr(Y(i)) + vbTab
    Next
    s = s + vbCrLf + "New:" + vbTab
    z = Y(3)
    Y(3) = Y(6)
    Y(6) = z
    For i = 1 To 10
        s = s + CStr(Y(i)) + vbTab
    Next
    MsgBox s
    End
End Sub
                        