SELECT CURDATE()

SELECT CURDATE() + 0

private void button1_Click(object sender, EventArgs e) {
  listBox1.Items.Add("Goiânia");
  listBox1.Items.Add("São Paulo");
  listBox1.Items.Add("Rio de Janeiro");
  listBox1.Items.Add("Curitiba");
}

Informe um caractere: A
Você informou o caractere: A
O código ASCII correspondente é: 65

# função principal do programa
def main():
  # vamos pedir para o usuário informar uma letra, símbolo ou pontuação
  caractere = input("Informe um caractere: ")
    
  # agora vamos obter o código ASCII correspondente
  codigo = ord(caractere)
    
  # e mostramos o resultado
  print("Você informou o caractere: {0}".format(caractere))
  print("O código ASCII correspondente é: {0}".format(codigo))
    
if __name__== "__main__":
  main()

<?
  $valor = 1;
   
  do{
    echo $valor . "<br>";
    $valor++;
  }while($valor <= 10);
?>

Imports System

Module Program
  Sub Main(args As String())
    Dim palavra1, palavra2 As String
    palavra1 = "Visual Basic"
    palavra2 = "Visual Basic"

    If palavra1.Equals(palavra2) Then
      Console.WriteLine("As duas strings são iguais")
    Else
      Console.WriteLine("As duas strings são diferentes")
    End If

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