|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Declarações/Variáveis)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Checando se há duplicidades em um array
|
![](images/box01dirsup.gif) |
|
|
Postada em 4/10/2003 por ^HEAVY-METAL^
Private Sub Command1_Click() Dim i() As Integer ReDim i(4) As Integer i(0) = 1 i(1) = 2 i(2) = 3 i(3) = 3 i(4) = 5 MsgBox AnyDup(i) End Sub
Public Function AnyDup(NumList As Variant) As Boolean Dim a As Long, b As Long 'Start the first Loop For a = LBound(NumList) To UBound(NumList) 'Start the second Loop (thanks For the s ' uggestions everyone)
For b = a + 1 To UBound(NumList) 'Check If the values are the same 'If they're equal, Then we found a dupli ' cate 'tell the user And End the Function If NumList(a) = NumList(b) Then AnyDup = True: Exit Function Next Next End Function
T+,
|
|
|
|
![](images/hosted.gif)
|