Visual Basic

public void Run() {
    Form form=new Form();
    form.Bounds=new Rectangle(100, 100, 600, 600);
    form.BackColor=Color.White;
    form.Paint+=new PaintEventHandler(form_Paint);
    form.Show();
}

void form_Paint(object sender, PaintEventArgs e) {
    Graphics g=e.Graphics;
    int y=20;
    for (int i=8; i<14; i++) {
        Font font=new Font("Microsoft Sans Serif", i);
        string s="abc,.,ghi (MS Sans Serif "+i+" pt)";
        g.DrawString(s, font, Brushes.Black, 20, y);
        y+=30;
        font.Dispose();
    }
    g.ScaleTransform(2, 2);
    y=y/2;
    for (int i=8; i<14; i++) {
        Font font=new Font("Microsoft Sans Serif", i);
        string s="abc,.,ghi (MS Sans Serif "+i+" pt; scale 2)";
        g.DrawString(s, font, Brushes.Black, 40, y);
        y+=30;
        font.Dispose();
    }
}

Dave Kreskowiak wrote:

Project Euler has a couple of problems that are similar.