Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,20 @@
|
|||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System.IO
|
||||
|
||||
Module vMain
|
||||
|
||||
Public Sub Main
|
||||
Dim s As Integer() = New Integer(){1, 2, 2, 3, 4, 4, 5}
|
||||
For i As Integer = 0 To Ubound(s)
|
||||
Dim curr As Integer = s(i)
|
||||
Dim prev As Integer
|
||||
If i > 1 AndAlso curr = prev Then
|
||||
Console.Out.WriteLine(i)
|
||||
End If
|
||||
prev = curr
|
||||
Next i
|
||||
End Sub
|
||||
|
||||
End Module
|
||||
Loading…
Add table
Add a link
Reference in a new issue