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

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

1) Даны 2 массива целых чисел. Определить их разность, т.е. те элементы, которые входят в первый массив, но не входят во второй. 2) Даны расходы электроэнергии 7 предприятиями за каждые 2 месяца года. Для каждой пары месяцев найти предприятие с наименьшим расходом электроэнергии Помогите пожалуйста решить задачи

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

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

                            Randomize
Dim A() As Single, B() As Single
Dim n As Integer, m As Integer
Dim i As Integer, j As Integer, txt As String, Bool As Boolean
n = InputBox("n"): ReDim A(1 To n)
m = InputBox("m"): ReDim B(1 To m)
txt = "A: "
For i = 1 To n
    A(i) = Int(100 * Rnd - 50)
    txt = txt & A(i) & " "
Next i
txt = txt & "End!" & Chr(13) & "B: "
For i = 1 To m
    B(i) = Int(100 * Rnd - 50)
    txt = txt & B(i) & " "
Next i
txt = txt & "End!" & Chr(13)
For i = 1 To n
    Bool = False
    For j = 1 To m
        If A(i) = B(j) Then Bool = True: Exit For
    Next
    If Bool = False Then txt = txt & A(i) & " "
Next
MsgBox txt
                        