Realizar la carga del lado de un cuadrado, mostrar por pantalla el perímetro del mismo (El perímetro de un cuadrado se calcula multiplicando el valor del lado por cuatro)

Problemas propuestos

Module Module1

 

    Sub Main()

        Dim lado As Integer

        Dim Perimetro As Integer

        Console.Write("Ingrese el valor del lado del cuadrado:")

        lado = Console.ReadLine()

        Perimetro = lado * 4

        Console.Write("El Perimetro del cuadrado es:")

        Console.Write(Perimetro)

        Console.ReadKey()

 

    End Sub

 

End Module

2. Escribir un programa en el cual se ingresen cuatro números, calcular e informar la suma de los dos primeros y el producto del tercero y el cuarto. 

Module Module1

 

    Sub Main()

        Dim num1, num2, suma, producto As Integer

        Console.Write("Ingrese primer valor:")

        num1 = Console.ReadLine()

        Console.Write("Ingrese segundo valor:")

        num2 = Console.ReadLine()

        suma = num1 + num2

        producto = num1 * num2

        Console.Write("La suma de los dos valores es:")

        Console.WriteLine(suma)

        Console.Write("El producto de los dos valores es:")

        Console.WriteLine(producto)

        Console.ReadKey()

    End Sub

 

End Module

 

 

 

 

 

 

 

 

 

3. Realizar un programa que lea cuatro valores numéricos e informar su suma y promedio. 

Public Class ejercicio3AV

    Private SubBtnproducto_Click(sender As Object, e As EventArgs) HandlesBtnproducto.Click

        Dim entero1, entero2, opers As Integer

        Dim entera, enterb As Integer

 

        entero1 = Val(Txtvalorc.Text)

        entero2 = Val(TxtvalorD.Text)

        entera = Val(TxtvalorA.Text)

        enterb = Val(TxtvalorB.Text)

 

        opers = entero1 + entero2 + entera + enterb

        ltbsum.Items.Add(Str(opers))

        Ltbmult.Items.Add(Str(opers / 4))

        opers = entera + enterb

 

    End Sub

 

    Private Subbtnlimpiar_Click(sender As Object, e As EventArgs) Handlesbtnlimpiar.Click

        TxtvalorA.Text = ""

        TxtvalorB.Text = ""

        Txtvalorc.Text = ""

        TxtvalorD.Text = ""

        Ltbmult.Items.Clear()

        ltbsum.Items.Clear()

    End Sub

 

    Private SubBtnsalir_Click(sender As Object, e As EventArgs) HandlesBtnsalir.Click

        Me.Close()

    End Sub

End Class

4. Se debe desarrollar un programa que pida el ingreso del precio de un artículo y la cantidad que lleva el cliente. Mostrar lo que debe abonar el comprador.

Module Module1

 

    Sub Main()

        Dim articulo, cantidad As Integer

 

        Console.Write("Ingrese articulo:")

        articulo = Console.ReadLine()

 

        Console.Write("Ingrese cantidad :")

        cantidad = Console.ReadLine()

 

        Console.WriteLine(" Abono Comprador: " & articulo * cantidad)

 

        Console.ReadKey()

    End Sub

 

End Module