Programming-Idioms.org

System.Console.WriteLine("Hello World!")

For x = 1 To 10
    Console.WriteLine("Hello")
Next x

Sub Finish(name As String)
    Console.WriteLine($"My job here is done. Goodbye {name}")
End Sub

Function Square(x As Integer) As Double
    Return x ^ 2
End Function

Function Square(x As Integer) As Integer
    Return x * x
End Function

Structure Point
    Public x As Double
    Public y As Double
End Structure

For Each x In items
    DoSomething(x)
Next

For i As Integer = 0 To items.Count - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next

For i As Integer = 0 To items.Length - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next

For i = LBound(items) To UBound(items)
    x = items(i)
    Debug.Print i & ": " & x
Next

Dim x As New Dictionary(Of String, Integer)() From {
    {"one", 1},
    {"two", 2}
}

Function Shuffle(Of T)(collection As IEnumerable(Of T)) As List(Of T)
    Dim r As Random = New Random()
    Shuffle = collection.OrderBy(Function(a) r.Next()).ToList()
End Function

x(Random.Shared.Next(x.Count))

x(New Random().Next(x.Count))

List.Contains(x)

Function pick(a As Double, b As Double) As Double
    Static rng As New Random()
    Return rng.NextDouble() * (b - a) + a
End Function

Dim ItemList As New List(Of String)(New String() {"one", "two", "three"})
ItemList.Reverse()
For Each item In ItemList
    Console.WriteLine(item)
Next

Sub Swap(Of T)(ByRef a As T, ByRef b As T)
  Dim tmp as T
  tmp = a
  a = b
  b = tmp 
End Sub

Dim myint As Integer = CInt(("123"))

Dim s As String = "ネコ"

Dim x(m - 1, n - 1) As Double

items.OrderBy(Function(x) x.p)

System.Array.Sort(items, Comparer(Of Item).Create(Function(a, b) a.p - b.p))

Function f(i As Integer) As Integer
    Return If(i = 0, 1, i * f(i - 1))
End Function

Function compose(f As Func(Of A, B), g As Func(Of B, C)) As Func(Of A, C)
    Return Function(a) g(f(a))
End Function

Function Compose(Of T1, T2, T3)(f As Func(Of T1, T2), g As Func(Of T2, T3)) As Func(Of T1, T3)
    Return Function(x) g(f(x))
End Function

Dim t As String = s.Substring(i,j)

Dim ok As Boolean = s.Contains(word)

Dim string_t = StrReverse(string_s)

For i As Integer = 0 To m.GetLength(0) - 1
    For j As Integer = 0 To m.GetLength(1) - 1
        If m(i, j) < 0 Then
            Console.WriteLine(m(i, j))
            i = Integer.MaxValue - 1 ' Break outer loop.
            Exit For
        End If
    Next
Next

    For Each row As Integer() in m
        For Each v As Integer In row
            If v < 0 Then
                Console.WriteLine(v)
                GoTo DONE
            End If
        Next
    Next
DONE:

Dim colCount As Integer = m(0).Length
For Each row As Integer() In m
    Dim j = 0
    Do While j < colCount
        Dim v = row(j)
        If v < 0 Then
            Console.WriteLine(v)
            Exit For
        End If
        j += 1
    Loop
Next

Select Case Nothing
    Case Else
        For Each row As Integer() in m
            For Each v As Integer In row
                If v < 0 Then
                    Console.WriteLine(v)
                    Exit Select
                End If
            Next
        Next
End Select

s.Insert(i,x)

System.Threading.Thread.Sleep(5000)

t = s.Substring(s.Length - 5)

t = Right(s, 5)

Dim s as String = "
This
Is
Multiline
Text!"

Do
    ' Do something
Loop

If m.ContainsKey(k) Then...

Dim x = {"a", "b", "c", "d"}.ToList
Dim y = String.Join(",", x)

Dim s As Integer = x.Sum()

Dim myInt As Integer = 12345
Console.WriteLine(myInt.ToString)

Dim lines = IO.File.ReadAllText(f)

Dim d As DateTime = DateTime.Now()

Dim x2 As String = x.Replace(y, z, StringComparison.Ordinal)

Dim x = BigInteger.GreatestCommonDivisor(a, b)	

Do 
    SomeThing()
    SomeOtherThing()
Loop While c

End()

Dim b As Boolean = s.StartsWith(prefix)

Dim x As String = d.ToString("yyyy-MM-dd")

Dim blank As Boolean = String.IsNullOrWhitespace(s)

Dim s2 As String = s1.Replace(w, String.Empty)

Dim n As Integer = x.Count

n = UBound(x) + 1

x = x.Distinct.ToList

Enum Suit
    Spades
    Hearts
    Diamonds
    Clubs
End Enum

If c1 Then
    f1()
ElseIf c2 Then
    f2()
else c3 Then
    f3()
End If

Dim salmons As New List(Of String) From
    {"chinook", "coho", "pink", "sockeye"}

Dim x As String = "123456"
Dim b As Boolean = IsNumeric(x)

My.Application.Log.WriteEntry(msg,TraceEventType.Verbose)

Const PLANET = "Earth"

Dim ItemList As New List(Of String)(New String() {"one", "one", "two", "two", "three", "three"})
For x = 0 To ItemList.Count - 1 Step 2
    Console.WriteLine(ItemList(x) & vbTab & ItemList(x + 1))
Next

Dim x = items(items.Count - 1)

Dim n As Integer = s.Length

s.Add(x)

Dim t As Date = Date.Today.AddDays(1)

Sub Foo(ByRef element As Integer)
    element = 42
End Sub

' Statements in caller:
For i = 0 To m - 1 Step 2
    Foo(a(i))
Next

Dim lines = IO.File.ReadAllLines(path).ToList

Dim _foo as String
Try
	foo = Environment.GetEnvironmentVariable("FOO")
Catch ex as Exception
	foo = "none"
End Try

foo = IIf(Environ("FOO") = "", "none", Environ("FOO"))

CallByName(receiver, str, CallType.Method)

Select Case str
    Case NameOf(Foo)
        Foo()
    Case NameOf(Bar)
        Bar()
    Case NameOf(Baz)
        Baz()
    Case NameOf(Barfl)
        Barfl()
End Select

Dim t As String = Regex.Replace(s, " +", " ")

Dim t As String = Regex.Replace(s, "\s+", " ")

Dim t = (2.5F, "foo", True)

items.Insert(0, x)

items = items.Prepend(x).ToList()

Sub f(Optional x As Integer? = Nothing)
    Console.WriteLine(If(x.HasValue, $"Present {x}", "Not Present"))
End Sub

Dim s As String = Convert.ToBase64String(data)

Dim bytes As Byte() = Convert.FromBase64String(s)

Dim c As Integer = a Xor b

Debug.Print x

For i = 5 To 0 Step -1
    Console.WriteLine(i)
Next

For i = LBound(a) To UBound(a)
    b(i) = CInt(a(i))
Next

Structure Vector
    Public X, Y, Z As Double

    Shared Operator *(a As Vector, b As Vector) As Vector
        Return New Vector() With {
            .X = a.Y*b.Z - a.Z*b.Y,
            .Y = a.Z*b.X - a.X*b.Z,
            .Z = a.X*b.Y - a.Y*b.X
        }
    End Operator
End Structure

s = a & b

Rem this is a comment line