一个关于数组的问题？？？？

[metalwaves]

大家好，我是一个vb的初学者，我在用vb做一个小程序的时候碰到了一个小问题：要实现两个数组元素之间的交、并、差运算，用for循环通过数组比较可以解决交运算，但是在并和差运算的时候一直得不到期望的的结果，例如;

Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
For j = 1 To 10
If a(i) <> b(j) Then //a、b数组为一个通过inputbox接收输入的数组，大小为10
c(i)=a（i）
End If
Next j
Next i

请问各位有没有其他的方法实现类似的并和差运算呢？请指教，谢谢

[用户 昵称]

交
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）
End If
Next i
和
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）+b(i)
End If
Next i
差
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）-b(i)
End If
Next i

[用户 昵称]

交
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）
End If
Next i
和
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）+b(i)
End If
Next i
差
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
For i = 1 To 10
If a(i) <> b(i) Then
c(i)=a（i）-b(i)
End If
Next i

[metalwaves]

楼上的好像不对吧，这样比较的结果是把a,b中每一个元素逐个比较，但是要求的是对两个数组的元素进行类似集合的运算比较啊

[redwrite]

交
Dim i As Integer, j As Integer, k As Integer, c(1 To 20) As String
dim Count as integer
count=0
For i = 1 To 10
for j=1 to 10
If a(i) = b(j) Then
c(count)=a（i）
count=count+1
exit for
End If
next j
Next i

和
Dim i As Integer, j As Integer, k As Integer, c(1 To 20) As String
dim Count as integer,Add as integer
for i=1 to 10
c(i)=a(i)
next
count=10
For i = 1 To 10
Add=0
for j=1 to 10
If a(i) = b(j) Then Add=1
Next i
if Add=0 then
count=count+1
c(count)=a(i)
end if
next j
结果在数据C里


差的话要复杂一些了

[AechoJohn]

上面的老哥，循环变量位置错了吧！
补一下差的运算
Dim i As Integer, j As Integer, k As Integer, c(1 To 10) As String
dim Count as integer,Add as integer

count = 0
For i = 1 To 10
Add=0
for j=1 to 10
If a(i) = b(j) Then
Add=1
exit for
end if
Next j
if Add=0 then
count=count+1
c(count)=a(i)
end if
next i

上面C中的数据为A-B的，这要事先保证A、B同一个空间，并且A要大于B

[redwrite]

呵呵，可能写得仓促了一些。
其实算法是最重要的，只要思路清淅正确，再在机器上调试一下，就会得到正确的结果。

[metalwaves]

谢谢楼上的兄弟
交和差运算已经实现了，不过redwrite(红妆素裹) 提供的和运算好像有点问题？
不单循环变量位置不对，c(count)=a(i)这句应该改为c(count)=b(j)吧？

[metalwaves]

我把和运算修改了一下，不过好像还是不对，结果只有原来a数组的值？
Dim i As Integer, j As Integer, k As Integer, c(1 To 20) As String
Dim Count As Integer, Add As Integer
For i = 1 To 10
c(i) = a(i)
Next
Count = 10
For i = 1 To 10
Add = 0
For j = 1 To 10
If a(i) = b(j) Then Add = 1
Exit For
Next j
If Add = 0 Then
Count = Count + 1
c(Count) = b(j)
End If

[metalwaves]

和运算还是搞不定，又没有什么更好的算法了呢？

[redwrite]

这次应该没有什么问题了吧
Dim i As Integer, j As Integer, k As Integer, c(1 To 20) As String
Dim Count As Integer, Add As Integer,my
For i = 1 To 10
c(i) = a(i)
Next
Count = 10
For i = 1 To 10
Add = 0
For j = 1 To 10
If b(i)=a(j) Then Add = 1
Exit For
Next j
If Add = 0 Then
Count = Count + 1
c(Count) = b(i)
End If
next i

这个方法前提是两个数组自身的数据是不相同的。

[metalwaves]

to redwrite(红妆素裹):
奇怪的是按照这个算法得到的输出应该是a与b的和集。但是调试中输出的结果却是简单的把a与b数组相加，两数组中重复的元素也照样重复输出了？
到底是怎么回事呢？

[redwrite]

不会吧，我调试一下看看

[redwrite]

呵呵，少加了一个end if

Private Sub Form_Load()
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 20) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 10
a(i) = i
b(i) = 5 + i
Next
Dim Count As Integer, Add As Integer
For i = 1 To 10
c(i) = a(i)
Next
Count = 10
For i = 1 To 10
Add = 0
For j = 1 To 10
If b(i) = a(j) Then
Add = 1
Exit For
End If
Next j
If Add = 0 Then
Count = Count + 1
c(Count) = b(i)
End If
Next i
For i = 1 To 20
Text1.Text = Text1.Text + " " + Trim(Str(c(i)))
Next
End Sub

这次可以了，这个方法前提是两个数组自身的数据是不相同的。

[chenyu5188]

UP
这些算法的名称是什么哈？

[xks]

差不多了

应该可以实现了

Private Sub Form_Load()
Dim a(1 To 10) As Integer, b(1 To 10) As Integer, c(1 To 20) As Integer
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 10
a(i) = i
b(i) = 5 + i
Next
Dim Count As Integer, Add As Integer
For i = 1 To 10
c(i) = a(i)
Next
Count = 10
For i = 1 To 10
Add = 0
For j = 1 To 10
If b(i) = a(j) Then
Add = 1
Exit For
End If
Next j
If Add = 0 Then
Count = Count + 1
c(Count) = b(i)
End If
Next i
For i = 1 To 20
Text1.Text = Text1.Text + " " + Trim(Str(c(i)))
Next
End Sub

[metalwaves]

ok
that's all right