8 lines
186 B
Text
8 lines
186 B
Text
|
Dim As Integer s(1 To 7) => {1,2,2,3,4,4,5}
|
||
|
|
For i As Integer = 1 To Ubound(s)
|
||
|
|
Dim As Integer curr = s(i), prev
|
||
|
|
If i > 1 And curr = prev Then Print i
|
||
|
|
prev = curr
|
||
|
|
Next i
|
||
|
|
Sleep
|