EJERCICIOS EN VISUAL BASIC: EJERCICIOS

# 1 REALIZAR UN EJERCICIO QUE PERMITA CALCULAR LOS DIAS DEL AÑO

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    Dim Ndía, Nmes, DDA As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Cálculo día del año"
        Label1.Text = "Introduzca aquí el número del día"
        Label2.Text = "Introduzca aquí el número del mes"
        ButtonCalcular.Text = "Determinar día del año"
    End Sub

    Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click
        Ndía = Val(Text1.Text)
        Nmes = Val(Text2.Text)
        LabelResultado.Font = New Font("Arial", 10, FontStyle.Bold)
        If Ndía >= 1 And Ndía <= 31 And Nmes >= 1 And Nmes <= 12 Then
            Select Case Nmes
                Case 1
                    DDA = Ndía '[DDA es día del año]
                Case 2
                    DDA = Ndía + 31
                Case 3
                    DDA = Ndía + 59
                Case 4
                    DDA = Ndía + 90
                Case 5
                    DDA = Ndía + 120
                Case 6
                    DDA = Ndía + 151
                Case 7
                    DDA = Ndía + 181
                Case 8
                    DDA = Ndía + 212
                Case 9
                    DDA = Ndía + 243
                Case 10
                    DDA = Ndía + 273
                Case 11
                    DDA = Ndía + 304
                Case 12
                    DDA = Ndía + 334
            End Select
            LabelResultado.Text = "El " & Ndía & " del " & Nmes & " es el día " & DDA & " del año"
        Else
            LabelResultado.Text = "Datos proporcionados no válidos"
        End If
    End Sub
End Class

#2 realizar un programa que permita ingresar numero de turistas y numero de todo terreno

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Integer = 0
Dim n As Integer
n = TextBox1.Text
For i As Integer = 1 To n + 1
If (n Mod i = 0) Then
a = a + 1
End If
Next i
If (a <> 2) Then
TextBox2.Text = "No es Primo"
Else
TextBox2.Text = "Si es Primo"
End If
End Sub
End Class

# 3 REALIZAR UN PROGRAMA QUE PERMITA INGRESAR # DE TURISTAS ;Y # DE TODO TERRENO

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    REM Declaración de variables
    Dim Turismos, Todoterrenos As Integer
    Dim Capturismos, Captodot As Single
    Dim Necesidadescom As Single

    REM Contenido del formulario
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Me.Text = "Cálculo de necesidades combustible"
   Label1.Text = "Por favor introduzca estos datos"
   Label2.Text = "Número de turismos"
   Label3.Text = "Número de todoterrenos"
   Label4.Text = "Capacidad de turismos (litros)"
   Label5.Text = "Capacidad de todoterrenos (litros)"
   Button1.Text = "Aceptar"
    End Sub

    REM Cálculo y muestra resultados
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label6.ForeColor = Color.Black
        Label6.Font = New Font("Arial", 10, FontStyle.Bold)
        Turismos = Val(TextBox1.Text)
        Todoterrenos = Val(TextBox2.Text)
        Capturismos = Val(TextBox3.Text)
        Captodot = Val(TextBox4.Text)
        Necesidadescom = Turismos * Capturismos + Todoterrenos * Captodot
        Label6.Text = "Las necesidades totales de combustible son de " & Necesidadescom & " litros"
    End Sub
End Class

# 4 REALIZAR UN PROGRAMA QUE PERMITA CALCULAR EL DIAMETRO EN ALTURA Y METRO

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    REM Declaración de variables
    Const Pi As Single = 3.141592654
    Dim R, H, V As Single

    REM Contenido del formulario
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Cálculo volumen cilindro"
ButtonCalcular.Text = "Calcular Volumen"
Label1.Text = "Introduzca aquí el diámetro, en metros"
Label2.Text = "Introduzca aquí la altura, en metros"
    End Sub

    REM Cálculo y muestra resultados
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click
        R = Val(TextBox1.Text) / 2
        H = Val(TextBox2.Text)
        V = Pi * (R ^ 2) * H
        LabelResultados.Font = New Font("Arial", 10, FontStyle.Bold)
        LabelResultados.TextAlign = ContentAlignment.MiddleCenter
        LabelResultados.Text = "El volumen del cilindro es de " & V & " metros cúbicos"
    End Sub
End Class

# 5 REALIZAR UN PROGRAMA QUE PERMITA INGRESAR UN NUMERO ENTERO Y DETERMINAR SI ES PAR O IMPAR

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On

Public Class Form1
    Dim Num As Integer
    Dim Res As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Text = "Determina naturaleza par o impar"
    ButtonHallar.Text = "Determinar"
    LabelPideNum.Text = "Introduzca un nº entero"
    End Sub

    Private Sub ButtonHallar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHallar.Click
        Num = Val(TextNentero.Text)
        Res = Num Mod 2
        LabelResultado.Font = New Font("Arial", 10, FontStyle.Bold)
       If Res = 0 Then
       LabelResultado.Text = "El número es par"
       Else
       LabelResultado.Text = "El número es impar"
        End If
    End Sub
End Class

#6 REALIZAR UN PROGRAMA QUE PERMITA CALCULAR EL DIA DEL AÑO

# 7 REALIZAR UN PROGRAMA QUE PERMITA VIZUALIZAR UNA TABLA DE MULTIPLICAR

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On

Public Class Form1
    Dim T As Integer
    Dim i As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Tabla"
        T = Val(InputBox("¿Qué tabla quiere conocer?" & vbCrLf & _
"(Introduzca un número de 1 a 10)", "¿Número?"))
LabelTabla.Font = New Font("Arial", 10, FontStyle.Bold)
LabelTabla.TextAlign = ContentAlignment.MiddleCenter
LabelTabla.Text = "TABLA DEL " & T & vbCrLf & vbCrLf
        For i = 1 To 10
          LabelTabla.Text = LabelTabla.Text & T & " * " & i & " = " & T * i & vbCrLf
        Next i
    End Sub
End Class

#8 REALIZAR UN EJERCICIO QUE PERMITA CALCULAR DIEMETRO Y METRO

#9 CALCULO DE PRECIO MEDICO DEL PRODUCTO

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
    REM Declaración de variables
    Dim Precio1, Precio2, Precio3, Media As Single

    REM Contenido del formulario
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "Cálculo precio medio producto"
ButtonCalcular.Text = "Calcular precio medion"
Label1.Text = "Introduzca aquí el precio en establecimiento nº1, en euros"
Label2.Text = "Introduzca aquí el precio en establecimiento nº2, en euros"
Label3.Text = "Introduzca aquí el precio en establecimiento nº3, en euros"
    End Sub

    REM Cálculo y muestra resultados
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click
        Precio1 = Val(TextBox1.Text)
        Precio2 = Val(TextBox2.Text)
        Precio3 = Val(TextBox3.Text)
        Media = (Precio1 + Precio2 + Precio3) / 3
        LabelResultados.Font = New Font("Arial", 10, FontStyle.Bold)
        LabelResultados.TextAlign = ContentAlignment.MiddleCenter
        LabelResultados.Text = "El precio medio del producto es de " & Media & " euros"
    End Sub
End Class

#10 REALIZAR UN EJERCICIO QUE CALCULE SI EL NUMERO INGRESADO ES ENTERO

REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On

Public Class Form1
    Dim Num As Integer
    Dim Res As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Text = "Determina naturaleza par o impar"
    ButtonHallar.Text = "Determinar"
    LabelPideNum.Text = "Introduzca un nº entero"
    End Sub

    Private Sub ButtonHallar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHallar.Click
        Num = Val(TextNentero.Text)
        Res = Num Mod 2
        LabelResultado.Font = New Font("Arial", 10, FontStyle.Bold)
       If Res = 0 Then
       LabelResultado.Text = "El número es par"
       Else
       LabelResultado.Text = "El número es impar"
        End If
    End Sub
End Class

EJERCICIOS EN VISUAL BASIC

INICIO

EJERCICIOS