7 lines
186 B
Text
7 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
|