Ejercicios con visual studio (VB)

Ejercicio 1: Números primos

Código:
Botón aceptar:
        Dim Numero As Integer
        Dim msg As String
        Dim cont As Integer
        Dim x As Integer
        Numero = Me.TxtNumero.Text
        cont = 0
        For x = 1 To Numero
            If Numero Mod x = 0 Then
                cont = cont + 1
            End If
        Next
        If cont <= 2 Then
            msg = "el numero es primo"
        Else
            msg = "el numero no es primo"
        End If
        Me.Label2.Text = msg

Botón borrar:
        TxtNumero.Text = ""
        Label2.Text = ""
 

Botón salir:
        Me.Close()

Diseño:

Ejercicio 2: Número positivo, negativo o cero

Código:

Botón aceptar:

Dim num As Integer

        If TextBox1.text = "" Then

            MsgBox("Escriba un número en la casilla", vbInformation)

        ElseIf Not IsNumeric(TextBox1.Text) Then

            MsgBox("Escriba un número no texto", vbInformation)

            TextBox1.Text = ""

        ElseIf IsNumeric(num) Then

        End If

        num = Val(TextBox1.Text)

        If num = 0 Then

            MsgBox("El número es cero", vbExclamation)

        ElseIf num > 0 Then

            MsgBox("El número es positivo", vbExclamation)

        ElseIf num < 0 Then

            MsgBox("El número es negativo", vbExclamation)

        End If

Botón limpiar:

 Me.TextBox1.Text = ""

Botón salir:
 Me.Close()

Diseño:

Ejercicio 3: operaciones básicas

Código:

Botón aceptar:

  Dim num1 As Double = Me.TxtNum1.Text

        Dim num2 As Double = Me.TxtNum2.Text

        Dim num3 As Double = Me.TxtNum3.Text

        Dim operacion, a, b, c, d As Double

        Dim tipo As String

        If (Me.Rbtsumar.Checked = True) Then

            operacion = Val(TxtNum1.Text) + Val(TxtNum2.Text) + Val(TxtNum3.Text)

            tipo = "Los resultados de la suma es" & operacion

        ElseIf (Me.RbtRestar.Checked = True) Then

            operacion = Val(TxtNum1.Text) - Val(TxtNum2.Text) - Val(TxtNum3.Text)

            tipo = "Los resultados de la resta son" & operacion

        ElseIf (Me.RbtMulti.Checked = True) Then

            operacion = Val(TxtNum1.Text) * Val(TxtNum2.Text) * Val(TxtNum3.Text)

            tipo = "Los resultados de la multiplicación son" & operacion

        ElseIf (Me.RbtDiv.Checked = True) Then

            operacion = Val(TxtNum1.Text) / Val(TxtNum2.Text) / Val(TxtNum3.Text)

            tipo = "Los resultados de la división son" & operacion

        ElseIf (Me.RbtAll.Checked = True) Then

            a = Val(TxtNum1.Text) + Val(TxtNum2.Text) + Val(TxtNum3.Text)

            b = Val(TxtNum1.Text) - Val(TxtNum2.Text) - Val(TxtNum3.Text)

            c = Val(TxtNum1.Text) * Val(TxtNum2.Text) * Val(TxtNum3.Text)

            d = Val(TxtNum1.Text) / Val(TxtNum2.Text) / Val(TxtNum3.Text)

            tipo = "Los resultados de las opeaciones son:" & vbCrLf & "Suma:" & a & vbCrLf & "Resta:" & b & vbCrLf & "Multiplicación:" & c & vbCrLf & "División:" & d

        End If

        Label3.Visible = True

        Label2.Visible = True

        Label3.Text = tipo

Botón limpiar:

TxtNum1.Text = ""

        TxtNum2.Text = ""

        TxtNum3.Text = ""

        Label2.Text = ""

        Label3.Text = ""

        TxtNum1.Focus()

Botón salir:

Me.Close()

Diseño:

Ejericio 4:  programa que acepte de entrada solo números dígitos, que valide si la caja de texto esta en blanco y valide que no se ingrese texto.

Código:

Botón aceptar:

If Trim(TextBox1.Text) = "" Then

            MsgBox("El campo está vacio")

        Else

            MsgBox("Ah introducido")

        End If

Botón salir

Me.Close()

Diseño:

Ejercicio 5: programa que realice la función o el dibujo asignado en el botón
Código:
Botón curva:
 Dim color As New System.Drawing.Pen(System.Drawing.Color.Blue)
        graficar = Me.CreateGraphics
        Dim punto1 As New Point(80, 20)
        Dim punto2 As New Point(100, 30)
        Dim punto3 As New Point(110, 40)
        Dim punto4 As New Point(70, 50)
        Dim curva As Point() = {punto1, punto2, punto1, punto4}
        graficar.DrawCurve(color, curva)

Botón línea:
Dim color As New System.Drawing.Pen(System.Drawing.Color.Red)
        graficar = Me.CreateGraphics
        graficar.DrawLine(color, 10, 20, 60, 80)

Rectángulo sin relleno:
Dim color As New System.Drawing.Pen(System.Drawing.Color.Yellow)
        graficar = Me.CreateGraphics
        graficar.DrawRectangle(color, 150, 10, 200, 100)

Rectángulo con relleno:
 Dim relleno As New SolidBrush(Color.Salmon)
        graficar = Me.CreateGraphics
        graficar.FillRectangle(relleno, 400, 10, 430, 100)

Elipse sin relleno:
Dim color As New System.Drawing.Pen(System.Drawing.Color.Green)
        graficar = Me.CreateGraphics
        graficar.DrawEllipse(color, 10, 140, 100, 60)

Elipse con relleno:

 Dim relleno As New SolidBrush(Color.Gray)

        graficar = Me.CreateGraphics

        graficar.FillEllipse(relleno, 140, 120, 80, 80)

Botón arco;:

 Dim color As New System.Drawing.Pen(System.Drawing.Color.Black)

        graficar = Me.CreateGraphics

        graficar.DrawArc(color, 140, 120, 200, 100, 100, -100)

Polígono: 

Dim relleno As New SolidBrush(System.Drawing.Color.Chocolate)

        graficar = Me.CreateGraphics

        Dim punto1 As New Point(500, 140)

        Dim punto2 As New Point(460, 180)

        Dim punto3 As New Point(460, 220)

        Dim punto4 As New Point(500, 260)

        Dim punto5 As New Point(240, 260)

        Dim punto6 As New Point(580, 220)

        Dim punto7 As New Point(580, 280)

        Dim punto8 As New Point(540, 140)

        Dim curva As Point() = {punto1, punto2, punto3, punto4, punto5, punto6, punto7, punto8}

        graficar.FillPolygon(relleno, curva, Drawing2D.FillMode.Winding)

Torta:
  Dim color As New System.Drawing.Pen(System.Drawing.Color.LightBlue)
        graficar = Me.CreateGraphics
        graficar.DrawPie(color, New Rectangle(New Point(380, 240), New Size(150, 85)), 0, 270)

Diseño:

Ejercicio 6: usando una herramienta a elección (visor de imagen).
-picturebox
-Agregamos un opnefiledialog
Código:
Botón abrir:
  If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            PictureBox2.Load(OpenFileDialog1.FileName)

Diseño: