массивы

[Zaraaa]

Помогите пожалуйста. на VB. NET Заполнить два массива А(12), В(10) целыми случайными числами в диапазоне от 1 до 28. Получить массив MSU(), в котором присутствуют только те элементы, которые есть в массиве А(), но нет в массиве В(). Предусмотреть кнопку случайного заполнения массивов числами.

[challengerr]

Примерно так

Module Hello
Sub Main()
Dim a(12) As Integer
Dim b(10) As Integer
Dim MSU(12) As Integer
Dim i As Integer
Dim j As Integer
Dim s As String
Dim f As Integer
Dim g As Integer
Dim k As Integer
Dim l As Integer
Dim h As Integer
Dim r As Integer

Randomize

s = ""
g = 0
k = 0
l = 1


For i = 1 To 12
a(i) =  Int((28-1 + 1) * Rnd + 1)
s = s + CStr(a(i)) + " "
Next i  
s = s + vbcrlf

For i = 1 To 10
b(i) =  Int((28-1 + 1) * Rnd + 1)
s = s + CStr(b(i)) + " "
Next i 

s = s + vbcrlf

For i = 1 To 12
f = 0

For j = 1 To 10
If a(i) = b(j) Then 
f = 1
End If

Next j

If f = 0 Then

If g = 0 Then
k = k + 1
Redim MSU(k) 
MSU(l) = a(i)
l = l + 1
g = 1
s = s + CStr( a(i) ) + " "
Else 

h = 0
r = 1

For r = 1 To k - 1
If a(i) = MSU(r) Then 
h = 1
End If
Next r

If h = 0 Then
k = k + 1
Redim Preserve MSU(k) 
MSU(l) = a(i)
l = l + 1
s = s + CStr( a(i) ) + " "
End If

End If


End If

Next i

s = s + vbcrlf

MsgBox(s)
End Sub
End Module