Array vergelichen

[Rapsody]

Hi,

mhhh, ich weiß damit jetzt zwar nichts anzufangen, aber ich habe es so gelöst:

  
  
Sub rando  
 for var1 = 0 to 5  
    user(var1) = rnd(0,49)  
    pc(var1) = rnd(0,49)  
 next  
 zahlUser.Add(user(0) & " " & user(1) & " " & user(2) & " " & user(3) & " " & user(4) & " " & user(5))  
 zahlPc.Add(pc(0) & " " & pc(1) & " " & pc(2) & " " & pc(3) & " " & pc(4) & " " & pc(5))  
  for a = 0 to 5  
    for b = 0 to 5  
        if user(a) = pc(b) then msgbox("Gefunden wurde die Zahl:" & user(a) & " " & pc(b))  
    next  
  next  
end sub