Объединение множеств - VB

Узнай цену своей работы

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

Помогите пожалуйста написать объединение множеств. А: TextBox1.Text 'множество А n: TextBox3.Text 'кол-во элементов A B: TextBox2.Text 'множество B m: TextBox4.Text 'кол-во элементов B Результат: TextBox5.Text

Решение задачи: «Объединение множеств»

textual
Листинг программы
Function UnionAB(ByVal A As String, ByVal B As String) As String
Dim v
A = " " & A & " "
For Each v In Split(B)
  If InStr(A, " " & v & " ") = 0 Then A = A & v & " "
Next
UnionAB = Trim(A)
End Function
 
Sub test()
MsgBox UnionAB("1 2 3 4", "3 4 5 6 7")
End Sub

Оцени полезность:

7   голосов , оценка 3.429 из 5
Похожие ответы