Dado que estructuralmente los ejercicios están resueltos, exponemos solo el código de los mismos.
1º Introducir dos números y calcular la suma de los mismos, visualizando el resultado final. Repetir para la resta y la multiplicación.
Module Module1
Private Sub Uno(ByVal D1 As Integer, ByVal D2 As Integer)
Dim resultado As Integer
resultado = D1 + D2
System.Console.WriteLine("dato1 + dato2 = {0} ", resultado)
System.Console.ReadKey()
End Sub
Sub Main()
Dim dato1 As Integer
Dim dato2 As Integer
dato1 = Console.ReadLine()
dato2 = Console.ReadLine()
Uno(dato1, dato2)
End Sub
End Module
Si en la solución del ejercicio se tienen problemas del tipo Option Strict On no permite la conversión de String en Integer, la solución pasa por:
dato1 = CInt(Console.ReadLine())
dato2 = CInt(Console.ReadLine())
Que es la solución correcta.
O bien por realizar el siguiente cambio, en la barra de Menú seleccionar la opción
Proyecto à Propiedades.
Y a continuación, seleccionar la pestaña de compilar y en la opción Option Strict que está en On, cambiarlo a Off.
2º Hallar el área y la longitud de una circunferencia, solicitando el radio de la misma R .
Area = PI * R al cuadrado, Longitud = 2 * PI * R .
Private Sub Dos(Rad as Double)
Dim Longitud As Double
Dim Area As Double
Area = PI * Rad ^ 2
Longitud = 2 * PI * Rad
Console.WriteLine()
Console.WriteLine("El área de la circunferencia es {0} ", Area)
Console.WriteLine()
Console.WriteLine("La longitud de la circunferencia es {0} ", Longitud)
Console.WriteLine()
Console.Write("Pulse cualquier tecla para finalizar ... ")
Console.Read()
End Sub
Y en el Main:
Const PI As Double = 3.1416
Sub Main()
Dim Radio As Double
Console.WriteLine("Hallar el área y la longitud de la circunferencia")
Console.WriteLine()
Console.Write(" ¿ Cual es el radio ? ")
Radio = CDbl(Console.ReadLine())
Dos (Radio)
End Sub
3º Introducir dos números A y B y visualizar el resultado de:
Si A es mayor que B calcular A / B.
Si A es menor que B calcular A * B.
Si A es igual que B calcular A + B.
Private Sub Tres(A As Long, B As Long)
Select Case A
Case Is > B
Console.WriteLine("{0} es mayor que {1} y la división es {2} ", A, B, A / B)
Case Is < B
Console.WriteLine("{0} es menor que {1} y la multiplicación es {2} ", A, B, A * B)
Case Is = B
Console.WriteLine("{0} es igual que {1} y la suma es {2} ", A, B, A + B)
End Select
Console.WriteLine()
Console.Write("Pulse cualquier tecla para finalizar ... ")
Console.Read()
End Sub
Y en el Main
Sub Main
Dim A As Long
Dim B As Long
Console.WriteLine("Calcular con dos números A y B")
Console.WriteLine()
Console.Write("Introduce un número A ")
A = CLng(Console.ReadLine())
Console.Write("Introduce un número B ")
B = CLng(Console.ReadLine())
Tres(A,B)
End Sub
4º Visualizar los números entre 10 y 20
Private Sub Cuatro()
Dim X As Integer
Console.WriteLine("Visualizar los números entre 10 y 20.")
Console.WriteLine()
Suma = 0
X = 10
Do
Console.WriteLine(X)
X = X + 1
Loop Until X > 20
Console.WriteLine()
Console.Write("Pulse cualquier tecla para continuar ... ")
Console.Read()
End Sub
Y en el Main
Sub Main
Cuatro()
End Sub
En éste ejercicio se ha optado por agrupar todo el código en el procedimiento.
5º Visualizar los números entre 10 y 20 y sumarlos.
Private Sub Cinco()
Dim Suma As Long
Dim X As Integer
Console.WriteLine("Visualizar los números entre 10 y 20 y sumarlos")
Console.WriteLine()
Suma = 0
X = 10
Do
Console.WriteLine(X)
Suma = Suma + X
X = X + 1
Loop Until X > 20
Console.WriteLine("El valor de la suma es {0} ", Suma)
Console.WriteLine()
Console.Write("Pulse cualquier tecla para continuar ... ")
Console.Read()
End Sub
CAMBIAR DE SITIO EL INCREMENTO, EL VALOR INICIAL DE X Y LA CONDICION
Private Sub Cinco()
Dim Suma As Long
Dim X As Integer
Console.WriteLine("Visualizar los números entre 10 y 20 y sumarlos")
Console.WriteLine()
Suma = 0
X = 9
Do
X = X + 1
Console.WriteLine(X)
Suma = Suma + X
Loop Until X = 20
Console.WriteLine("El valor de la suma es {0} ", Suma)
Console.WriteLine()
Console.Write("Pulse cualquier tecla para continuar ... ")
Console.Read()
End Sub
Y en el Main
Sub Main
Cinco()
End Sub
En éste ejercicio se ha optado por agrupar todo el código en el procedimiento.
© Antonio Arjona Cornejo. Todos los derechos reservados.
Prohibida la reproducción por cualquier medio.
Publicación web autorizada a aulaClic.
Cursos Informática Gratuitos Síguenos en: Facebook Sobre aulaClic Política de Cookies