命令窗口执行:
Dim ary1() As Integer = {1,2,5,7}Dim ary2() As Integer = {2,4,5,8}For Each v As Integer In ary1 If array.Indexof(ary2,v) >=0 Then output.show(v) End IfNext