"""
  Este exemplo mostra como criar uma list
  vazia e inicializá-la usando o laço for.
"""

def main():
  # cria uma lista vazia
  valores = []
 
  # adiciona valores a ela
  for num in range(1, 11):
    valores += [(num * 2)]
 
  # exibe os valores da lista
  for num in valores:
    print(num)

if __name__== "__main__":
  main()

Imports System

Module Program
  Sub Main(args As String())
    Dim frase As String = "Gosto muito de VB.NET e você?"
    Dim letra As Char = "o"
    Dim quant As Integer = 0
    Dim pos As Integer = -1, pos_ant As Integer = -1
    Dim cont As Integer = 0

    ' mostra a frase
    Console.WriteLine("A frase é: " & frase)

    While cont < frase.Length
      pos = frase.IndexOf(letra, cont)
      If pos <> pos_ant And pos <> -1 Then
        Console.WriteLine("""" & letra &
          """ encontrada na posição " & pos)
        quant += 1
      End If
      cont += 1
      pos_ant = pos
    End While

    ' mostra a quantidade de ocorrências da letra "o"
    Console.WriteLine("Encontrei " & quant & " ocorrências da " _
       & "letra " & letra)

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module

textArea = new JTextArea(10, 20);     
String selecionado = textArea.getSelectedText();

# dois vetores de 5 inteiros cada
a = [50, -2, 9, 5, 17]
b = [0 for x in range(5)]

Valores no vetor a: 50   -2   9   5   17   
Valores no vetor b: -20   32   21   25   13

# método principal
def main():
  # dois vetores de 5 inteiros cada
  a = [50, -2, 9, 5, 17]
  b = [0 for x in range(5)]
    
  # vamos preencher o segundo vetor de forma que a soma dos
  # valores de seus elementos seja 30
  for i in range(len(a)):
    b[i] = 30 - a[i]
    
  # vamos mostrar o resultado
  print("Valores no vetor a: ", end="")
  for i in range(len(a)):
    print("{0}  ".format(a[i]), end="") 
    
  print("\nValores no vetor b: ", end="")
  for i in range(len(b)):
    print("{0}  ".format(b[i]), end="") 
  
if __name__== "__main__":
  main()

procedure TForm1.Button1Click(Sender: TObject);
var
  diretorio_atual: string;
begin
  // vamos obter o diretório atual e atribuí-lo
  // na variável diretorio_atual
  GetDir(0, diretorio_atual);

  // vamos exibir o resultado
  ShowMessage('O drive e diretório atual são: ' +
    diretorio_atual);
end;