Código de Visual Basic - Diagrama de VEEN

'Create a new form and set its size

Public Class VennDiagramForm

    Private Sub VennDiagramForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Size = New Size(600, 400)

    End Sub

    'Draw the Venn diagram on the form

    Private Sub VennDiagramForm_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint

        Dim personFont As New Font("Arial", 10)

        Dim circlePen As New Pen(Color.Black, 2)

        Dim personBrush As New SolidBrush(Color.Blue)

        'Draw the circles

        e.Graphics.DrawEllipse(circlePen, 50, 50, 200, 200) 'Promotion and prevention

        e.Graphics.DrawEllipse(circlePen, 175, 50, 200, 200) 'Diagnostic services

        e.Graphics.DrawEllipse(circlePen, 112, 125, 200, 200) 'Subsidized healthcare

        'Draw the labels

        e.Graphics.DrawString("Promotion and prevention", personFont, personBrush, 100, 5)

        e.Graphics.DrawString("Diagnostic services", personFont, personBrush, 225, 5)

        e.Graphics.DrawString("Subsidized healthcare", personFont, personBrush, 162, 80)

        'Draw the circles' overlaps

        e.Graphics.DrawString("5", personFont, personBrush, 155, 80) 'Promotion and prevention + Diagnostic services

        e.Graphics.DrawString("3", personFont, personBrush, 130, 95) 'Promotion and prevention + Subsidized healthcare

        e.Graphics.DrawString("1", personFont, personBrush, 175, 145) 'Diagnostic services + Subsidized healthcare

        'Draw the person counts

        e.Graphics.DrawString("13", personFont, personBrush, 125, 70) 'Promotion and prevention

        e.Graphics.DrawString("13", personFont, personBrush, 250, 70) 'Diagnostic services

        e.Graphics.DrawString("9", personFont, personBrush, 187, 145) 'Subsidized healthcare

        e.Graphics.DrawString("5", personFont, personBrush, 90, 125) 'Promotion and prevention + Diagnostic services

        e.Graphics.DrawString("3", personFont