import javax.swing.*;
 
public class Estudos extends JFrame{
  public Estudos(){
    super("Menus");
 
    // Cria a barra de menus
    JMenuBar barra = new JMenuBar();
    setJMenuBar(barra);
 
    // Cria um menu
    JMenu arquivo = new JMenu("Arquivo");
 
    // Cria um item de menu e o adiciona no menu
    JMenuItem fechar = new JMenuItem("Fechar");
    arquivo.add(fechar);
 
    // Adiciona o menu à barra de menus
    barra.add(arquivo);
 
    setSize(300, 150);
    setVisible(true);    
  }
 
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

' Macro VBA Excel usada para converter um caractere
' em seu código ASCII
Sub RetornarCodigoASCII()
  ' Variáveis usadas na resolução do problema
  Dim letra As String
  Dim codigo As Integer
  
  ' vamos pedir para o usuário informar um caractere
  letra = InputBox("Informe um caractere: ", "Código ASCII", 0)
  Debug.Print "Você informou o caractere: " & letra
  
  ' agora vamos obter o código ASCII correspondente
  codigo = Asc(letra)
  
  ' e mostramos o resultado
  Debug.Print "O código ASCII correspondente é: " & codigo
End Sub

import java.awt.*;
import java.io.*;
import java.awt.image.*;
import java.awt.event.*;
import javax.swing.*;
import javax.imageio.*;

public class Estudos extends JFrame{
  private BufferedImage imagem;
  
  public Estudos(){
    super("Estudos Java");
    
    Container c = getContentPane();
    c.setLayout(new FlowLayout());
	
    JButton btn = new JButton("Carregar Imagem");
    btn.addActionListener(
      new ActionListener(){
        public void actionPerformed(ActionEvent e){
          imagem = null;
          
          try{
            imagem = ImageIO.read(
              new File("imagens/fundo.jpg"));
          }
          catch(IOException exc){
            JOptionPane.showMessageDialog(null, 
              "Erro ao carregar a imagem: " + 
              exc.getMessage());
          }

          if(imagem != null){
            desenhar();   
          }
        }
      }
    );

    c.add(btn);
    	
    setSize(400, 300);
    setVisible(true);
  }

  public void desenhar(){
    // desenha a imagem no JFrame
    Graphics g = getGraphics();   
    g.drawImage(imagem, 0, 0, this);
  }
  
  public static void main(String args[]){
    Estudos app = new Estudos();
    app.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
  }
}

procedure TForm1.Button1Click(Sender: TObject);
var
  hoje: TDateTime;
  dia_mes: integer;
begin
  // não esqueça de incluir DateUtils no uses

  // vamos receber a data de hoje
  hoje := Now;

  // vamos obter o dia do mês
  dia_mes := DayOf(hoje);

  // vamos exibir o resultado
  ShowMessage('O dia do mês é: ' + IntToStr(dia_mes));
end;