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 Sub
Btnproducto_Click(sender As Object, e As EventArgs) Handles
Btnproducto.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 Sub
btnlimpiar_Click(sender As Object, e As EventArgs) Handles
btnlimpiar.Click
TxtvalorA.Text = ""
TxtvalorB.Text = ""
Txtvalorc.Text = ""
TxtvalorD.Text = ""
Ltbmult.Items.Clear()
ltbsum.Items.Clear()
End Sub
Private Sub
Btnsalir_Click(sender As Object, e As EventArgs) Handles
Btnsalir.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
