Создание массива в VB

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

Добрый вечер,подскажите , пожалуйста: 1)Как создать массив, состоящий из 5 пар координат (Xn, Yn), значения которых будут подбираться рандомно и подставляться сразу в формулу? 2)Если есть условие, как вывести на экран количество ответов, которые удовлетворяют это условие? Спасибо.

Решение задачи: «Создание массива в VB»

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

                            Dim Mass& (,)  
Dim X&
Dim Y&
Dim i&
 
ReDim Mass (1 To 5, 1 To 2) 
 
i = 0
 
For X = 1 To 5
For Y = 1 To 2
            Mass(X,Y) = X+Y ' заполняем для теста числами    
Next Y
Next X
 
For X = 1 To 5
For Y = 1 To 2
            if Mass(X,Y) = 2 Then
            i = i+1
            End if 'Если равно то увеличиваем переменную на единицу
Next Y
Next X
 
MsgBox i ' выводим значение i
                        