Visual

Ejercicio1:
Sub Main()
Dim numero1 As Integer
Dim numero2 As Integer
Console.WriteLine("introduzca el primer numero")
numero1 = Console.ReadLine()Console.WriteLine("introduzca el segundo numero")
numero2 = Console.ReadLine()
Console.WriteLine("escoja una opcion:1-sumar/2-restar")
If (Console.ReadLine = 1) ThenConsole.WriteLine("el resultado de la suma es:" & numero1 + numero2)
Console.ReadLine()
Else
Console.WriteLine("el resultado de la resta es:" & numero1 - numero2)Console.ReadLine()
End If
End Sub







Ejercicio2:
Sub Main()
Dim not1, not2, not3, prom As Integer
Dim cond As String
Console.Write("ingrese el apellidoy nombre: ") :
Console.ReadLine()
Console.Write("ingrese la primera nota : ") :
not1 = Console.ReadLine
Console.Write("ingrese la segunda nota : ") :
not2 =Console.ReadLine
Console.Write("ingrese la tercera nota : ") :
not3 = Console.ReadLine
prom = (not1 + not2 + not3) / 3
Console.WriteLine("el promedio : " & prom)
If prom >= 10.5Then
cond = "aprobado"
Else
cond = "desaprobado"
End If
Console.WriteLine("la condicion: " & cond):
Console.ReadLine()
End Sub



Ejercicio3:Sub Main()
Dim soles, desc, tot As Single
Console.WriteLine("ingrese la cantidad en soles")
soles = Console.ReadLine
Console.WriteLine("descuento por mayor o igual que100")
If soles >= 1000 Then
desc = soles * 0.1
Else
desc = soles * 0.05
End If
Console.WriteLine(desc)
Console.WriteLine("el pago arealizar es")
tot = soles - desc
Console.WriteLine(tot)
Console.ReadLine()
End Sub


Ejercicio4:

Sub Main()
Dim nom, sex, sexo, adulto As String
Dim eda...