Обработка одномерных массивов и Обработка двухмерных массивов. - VB

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

Всем привет, У меня большие проблемы... нужно сделать 2 лабораторные работы по информатике, но я ничегошеньки в VB не понимаю... буду очень благодарна тем кто откликнется вот условия задач: 1) Программирование простых циклов.Обработка одномерных массивов. Составить алгоритм и программу для выполнения предло-женного задания по обработке одномерного массива X, состоя-щего из “N” элементов. Массив должен быть сформирован с по-мощью генератора случайных чисел и заполнен как положитель-ными, так и отрицательными целыми числами. Исходный массив и результаты его обработки вывести на экранную форму.

В массиве X(N) поменять местами минимальный и первый эле-менты. Исходный и полученный массивы вывести на экранную форму.

Указание. В приведенных заданиях рассматривается обработка динамического массива X(N), значения которого формируются с помощью генератора случайных чиcел (RND). Следует помнить, что массив X задан неявно и требуется вводить размер массива (N) до выполнения операций с ним. 2) Программирование сложных циклов. Обработка двухмерных массивов. Составить алгоритм и программу для вычисления и вывода на печать в общепринятом виде элементов матрицы Zij по заданной формуле, а также выполнить предложенные индивидуальные задания. Исходные массивы Xi и Yj ввести с помощью файла после-довательного доступа.

Zij = Xi^3/(1+Yj^2) i=1-5, j=1-6 1. Число отрицательных элементов, кратных двум, в каждой строке матри-цы. 2. Сумму значений, больших единицы, в каждом столбце матрицы. 3. Среднее арифметическое значений элементов каждой строки матрицы.

Указания. В текстовом редакторе Блокнот создать файл, в который записать произвольные числовые значения элементов массива Xi и Yj. Программа должна: - прочитать данные с файла; - вывести исходные массивы Xi и Yj на экранную форму; - вычислить по заданной формуле элементы матрицы Zij и вывести их на экранную форму в общепринятом виде; - выполнить предложенные индивидуальные задания и вы-вести результаты на экранную форму. Помогите мне пожалуйста

Решение задачи: «Обработка одномерных массивов и Обработка двухмерных массивов.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim X() As Single, N As Integer
Dim i, min, minI
Label1 = ""
Label2 = ""
N = InputBox("n")
ReDim X(1 To N)
min = 55
For i = 1 To N
X(i) = Int(100 * Rnd - 50) '[-50;50]
If X(i) < min Then min = X(i): minI = i
Label1 = Label1 & X(i) & "  "
Next i
temp = X(1)
X(1) = X(minI)
X(minI) = temp
For i = 1 To N
Label2 = Label2 & X(i) & "  "
Next i
End Sub