VB两组数字选取不同，VB两组数组找不同部分

本来记得有一个函数可以做，但是找不到，就自己写了一个，感觉很奇怪，私有子形式 load（）array1 = array（123， 1， 2， 3， 4， 5， 144， 6， 7， 8， 9， 10）。

array2 = array(3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 123, 144)

for each i1 in array1for each i2 in array2key = false

if i1 = i2 then

str1 = str1 & " " & i2key = true

exit for

end if

nextif not (key) then

str2 = str2 & " " & i1end if

nextfor each i3 in array2for each i4 in array1key = false

if i3 = i4 then

key = true

exit for

end if

nextif not (key) then

str3 = str3 & " " & i3end if

nextmsgbox "相同：" & str1

msgbox "不同：" & str2 & str3end sub

算法：1、将数组合并为一个新的数组（1,2,3,4,5,6,1,2,3）。

2. 在新数组中，如果存在相同的数组，请同时删除两者。

3。剩下的就是所有想要的。

创建一个新窗体，并在窗体中放置 2 个文本框、一个标签和一个确定按钮。

在确定按钮的单击事件中，编写以下内容：

private sub command1_click()dim num1,num2 as doublenum1=val(

num2=val(

if num1>num2 then

最大数量为" & num1

else if num1else

两个数相等"

end if

end sub

dim a string

dim b string

a=b=ifif a=b then

msgbox"两个数相等"

endifelse

endif 现在写了，我没有测试它应该是正确的

private sub command1_click()dim x%,y% '% 是分隔符。

x=val( 'val 是一种数字转换。

y=val(

if x>y then

label1="两个数字中较大的数字是："& xelse

label1="两个数字中较大的数字是："& yend if '结束 if 语句。

end sub

是无序对比还是有序对比？？

子数据比较 （）。

dim i as integer

dim j as integer

for i = 2 to 95 '表 1 中的 ID 卡字段范围为 2 到 95。

for j = 3 to 258 '表 2 中的 ID 卡字段范围为 3 到 258。

if sheets("表1").cells(i, 17) = sheets("表2").cells(j, 8) then '表1：身份证在第17栏，表2：身份证在第8栏。

sheets("表1").cells(i, 18) = "已存在" '标记它何时存在，并将其写在已存在的 18 列中。

end if

next j

next i

end sub

不确定“差异”是什么意思？ 如果存在差异，可以使用以下方法：

1.可以使用条件格式将两组不同的数据标记为不同的颜色;

2.可以减去两组数据，结果不是0，说明两组数据不同;

3、运用函数和条件判断两者的内容是否一致;

如果差值是指两组数据，在同质显著性水平上是否存在显著差异，则可以使用方差分析法。

不一定要那么复杂，可以使用if函数，比如比较a1和b1单元格的数据是否相同，可以输入：：in单元格，比如c1

if(a1 = b1, "相同：", "不一样")