Сделать Visual Basic - VB

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

Пожалуйста помогите сделать бедному студенту!!! 4) В числовую переменную последовательно вводятся N произвольных чисел. Сколько чередований четности среди отрицательных элементов последовательности из N элемнтов. 5) Ввести матрицу A(M,N) натуральных чилел. Определить колчество строк в котором нет повторющихся элементов. 2) Вывести одномерный массив из N целых чисел. Напечать массив. Переставить элементы массива 1-ый с N-ым и 2ой с (N-1)ым и тд. Напечатеть инвертированный массив. Заранее Огромное СПАСИБО!!)))))

Решение задачи: «Сделать Visual Basic»

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

                            Dim i, j, A(1000, 1000), m, n, rez As Integer
Dim povt As Boolean
 
Private Sub Command1_Click()
m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ Г¬Г*Г±Г±ГЁГўГ*", "Г‘ГЄГ®Г«ГјГЄГ® Г±ГІГ®ГЄ Гў Г¬Г*Г±Г±ГЁГўГҐ?")
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®ГЎГ«Г¶Г®Гў Г¬Г*Г±Г±ГЁГўГ*", "Г‘ГЄГ®Г«ГјГЄГ® Г±ГІГ®ГЎГ«Г¶Г®Гў Гў Г¬Г*Г±Г±ГЁГўГҐ?")
For i = 1 To m
    For j = 1 To n
        A(i, j) = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ " & i & ";" & j & " ГЅГ«ГҐГ¬ГҐГ*ГІ Г¬Г*Г±Г±ГЁГўГ*", "Г‡Г*ГЇГ®Г«Г*ГҐГ*ГЁГҐ Г¬Г*Г±Г±ГЁГўГ*")
    Next j
Next i
End Sub
 
Private Sub Command2_Click()
rez = 0
For i = 1 To m
    povt = False
    For j = 1 To n - 1
        For k = j + 1 To n
            If A(i, j) = A(j, k) Then povt = True
        Next k
    Next j
    If povt = True Then rez = rez + 1
Next i
Print rez
End Sub
                        