Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!
  • Vb
Imports System
For i As Integer = 0 To items.Length - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next

items is an array
For i = LBound(items) To UBound(items)
    x = items(i)
    Debug.Print i & ": " & x
Next
Imports System
For i As Integer = 0 To items.Count - 1
    Dim x = items(i)
    Console.WriteLine($"Item {i} = {x}")
Next

items is IList(Of T)
with Ada.Text_IO;
use Ada.Text_IO;
for I in Items'Range loop
   X := Items (I);
   Put_Line (Integer'Image (I) & " " & Integer'Image (X));
end loop;

Assuming Items is an array of integers.

New implementation...