Объединение множеств - 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