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

for(;;){
  // bloco de instruções
}

import javax.swing.JOptionPane;

public class Estudos{
  public static void main(String[] args) {
    int valor;
    int soma = 0;

    // Lê continuamente até o usuário informar 0
    for(;;){
      // efetua a próxima leitura
      String str = JOptionPane.showInputDialog(null,
        "Informe um valor inteiro:\n(ou 0 para sair)",
         "Estudos", JOptionPane.QUESTION_MESSAGE);

      valor = Integer.parseInt(str);
  
      // testa se o laço pode ser finalizado
      if(valor == 0)
        break;
 
      soma += valor;
    }

    JOptionPane.showMessageDialog(null, "A soma é: " + soma,
       "Estudos", JOptionPane.INFORMATION_MESSAGE);
  }
}

def main():
  # cria uma lista de nomes
  nomes = ['Carlos', 'Igor', 'Osmar', 'Fernanda']
 
  # exibe a lista na ordem original
  print(nomes)
  
  # ordena a lista
  nomes.sort(key = len)
 
  # exibe a lista ordenada
  print(nomes)

if __name__== "__main__":
  main()

using System;

namespace Estudos {
  class Program {
    static void Main(string[] args) {
      // cria e inicializa um array de inteiros
      int[] valores = {4, 69, 1, 0, 17, 23, 14};

      Console.WriteLine("Com valores originais:");

      // percorre todos os elementos originais
      for (int i = 0; i < valores.Length; i++) {
        Console.WriteLine(valores[i]);
      }

      // zera todos os elementos do array
      Array.Clear(valores, 0, valores.Length);

       Console.WriteLine("Valores zerados:");
      for (int i = 0; i < valores.Length; i++) {
        Console.WriteLine(valores[i]);
      }

      Console.WriteLine("\n\nPressione qualquer tecla para sair...");
      // pausa o programa
      Console.ReadKey();
    }
  }
}

string fgetc(resource $handle)

string fgets(resource $handle [, int $length])

string fread(resource $handle, int $length)