1) Crea un programa saludador.

Donde pidamos un nombre y nos muestre un mensaje

Esconder
1
Module Ejercicio1
2
3 Sub Main()
4
5 Console.WriteLine("Escribe un nombre")
6 Dim nombre As String = Console.ReadLine
7
8 Console.WriteLine("Hola " & nombre & "!")
9
10 Console.ReadLine()
11
End Sub
12
13 End Module
14
2) Crea un programa que calcule el IVA de un producto. El valor de este producto se
pasar por teclado y nos mostrar por pantalla el valor del IVA y su valor final. El IVA
es el 21 %. Por ejemplo, si introducimos 100como valor de producto, el IVA es 21 y el
valor final es 121.

Esconder
1 Module Ejercicio2
2
3 Sub Main()
4
5 Const IVA As Double = 0.21
6
7 Console.WriteLine("Escribe el valor de un producto")
Dim producto As Double = Console.ReadLine
8
9 Console.WriteLine("El IVA del producto es " & producto * IVA & "
10 euros. El valor final es " & producto + (producto * IVA) & " euros")
11
12 Console.ReadLine()
13
14 End Sub
15
16 End Module
3) Crea un programa que muestre la tabla de multiplicar de un nmero desde el 1 hasta
el 10 que demos por teclado. Debes mostrar la operacin como tal. Por ejemplo, si
introducimos un 5 por teclado:

5x1=5

5 x 2 = 10
5 x 3 = 15

5 x 10 = 50

Esconder
1
2 Module Ejercicio3
3
Sub Main()
4
5 Console.WriteLine("Escribe un numero")
6 Dim numero As Integer = Console.ReadLine
7
8 For i As Integer = 1 To 10
9
10 Console.WriteLine(numero & " x " & i & " = " & numero * i)
11
12 Next
13
Console.ReadLine()
14
15 End Sub
16
17 End Module
18
4) Crea un programa que nos calcula el area un cuadrado. Tenemos que pedir el radio
de la circunferencia. Podemos obtener el valor de PI, con Math.PI

Esconder
1
Module Ejercicio4
2
3
Sub Main()
4
5 Console.WriteLine("Escribe el valor de un radio")
6 Dim radio As Double = Console.ReadLine()
7
8 Dim area As Double = Math.PI * Math.Pow(radio, 2)
9
10 Console.WriteLine("El area es " & area)
11
Console.ReadLine()
12
13 End Sub
14
15 End Module
16
5) Pide dos nmeros por teclado. Indica si el primer nmero es divisible por el segundo.
Por ejemplo, si introduzco 10 y 2, si es divisible, por que si divides 10 entre 2, el resto
es 0.
Esconder
1
2 Module Ejercicio5
3
4 Sub Main()
5
6 Console.WriteLine("Escribe el valor del primer numero")
Dim num1 As Integer = Console.ReadLine()
7
8 Console.WriteLine("Escribe el valor del segundo numero")
9 Dim num2 As Integer = Console.ReadLine()
10
11 If num1 Mod num2 = 0 Then
12 Console.WriteLine("El nmero " & num1 & " es divisible por " & num2)
13 Else
Console.WriteLine("El nmero " & num1 & " no es divisible por " & num2)
14 End If
15
16 Console.ReadLine()
17
18 End Sub
19
20 End Module
21
6) Muestra los nmeros entre el 0 y el 100, que no sean divisibles entre 2. Usa un bucle
While.

Esconder
1
2 Module Ejercicio6
3
4 Sub Main()
5
Dim i As Integer = 0
6
7 While i <= 100
8
9 If i Mod 2 <> 0 Then
10 Console.WriteLine(i)
11 End If
12
13 i = i + 1
14
End While
15
16 Console.ReadLine()
17
18 End Sub
19
20 End Module
21
7) Realiza el mismo ejercicio pero con un bucle for.
Esconder
1
2 Module Ejercicio7
3
Sub Main()
4
5 For i As Integer = 0 To 100
6
7 If i Mod 2 <> 0 Then
8 Console.WriteLine(i)
9 End If
10
11 Next
12
Console.ReadLine()
13
14 End Sub
15
16 End Module
17
8) Crea un programa que nos pida un nmero entre 0 y 10, si el nmero no est entre
rango, volver a pedir el nmero hasta que este en el rango correcto.

Esconder
1
2 Module Ejercicio8
3
Sub Main()
4
5
Dim num As Integer
6
7 Do
8 Console.WriteLine("Escribe un numero entre 0 y 10")
9 num = Console.ReadLine
10
11 Loop While num <= 0 Or num >= 10
12
Console.WriteLine("El nmero introducido es " & num)
13
14 Console.ReadLine()
15
16 End Sub
17
18 End Module
19
1) Crea un saludador, donde pidas un nombre. Crea un subproceso que tenga como
parmetro este nombre dado, este subproceso muestra por consola Hola
<nombre>!. Por ejemplo, si introducimos Fernando, aparecer Hola Fernando!.

Esconder
1
2 Module Ejercicio1
3
4 Sub Main()
5
Console.WriteLine("Escribe un nombre")
6
Dim nombre As String = Console.ReadLine
7
8 'Invoco el subproceso
9 saludador(nombre)
10
11 Console.ReadLine()
12
13 End Sub
14
Sub saludador(nombre As String)
15
16 'Mostramos el mensaje
17 Console.WriteLine("Hola " & nombre & "!")
18
19 End Sub
20
21 End Module
22
2) Crea un programa que calcule el IVA de un producto. El valor de este producto se
pasar por teclado y nos mostrar el valor final. El IVA es el 21 %. Por ejemplo, si
introducimos 100 como valor de producto, el IVA es 21 y el valor final es 121 euros.

Crea una funcin que devuelva el valor del IVA del producto, pasando como
parmetros, el IVA (valor entero, no decimal) y el valor del producto que hemos pedido
al principio.

Esconder
1 Module Ejercicio2
2
3 Sub Main()
4
5 Const VALOR_IVA As Integer = 21
6
Console.WriteLine("Escribe el valor de un producto")
7
Dim producto As Double = Console.ReadLine
8
9 'Invoco la funcion
10 'El valor final es el producto mas su IVA
11 Dim valor_final = producto + IVA(VALOR_IVA, producto)
12
13 Console.WriteLine("El valor final del producto es " & valor_final & " euros")
14
15 Console.ReadLine()
16
17 End Sub
18
Function IVA(valor_IVA As Integer, valorProducto As Double) As Double
19
20 Return (valor_IVA / 100) * valorProducto
21
22 End Function
23
24 End Module
25
26
3) Genera 10 nmeros aleatorios entre 1 y 10 y muestralos por consola. Aqu esta la
funcin para generar nmeros aleatorios.

1 Function numAleatorioEntre(ByVal minimo As Integer, ByVal maximo As Integer) As Integer

El rea de un tringulo es base x altura.

Pide por teclado la base y la altura.

Esconder
1 Module Ejercicio4
2
3 Sub Main()
4
Console.WriteLine("Escribe una base")
5 Dim base As Double = Console.ReadLine
6
7 Console.WriteLine("Escribe una altura")
8 Dim altura As Double = Console.ReadLine
9
10 areaTriangulo(base, altura)
11
12 Console.ReadLine()
13
End Sub
14
15 Sub areaTriangulo(base As Double, altura As Double)
16
17 Dim area As Double = base * altura
18
19 Console.WriteLine("El rea del tringulo es " & area & " metros cuadrados")
20
21 End Sub
22
23 End Module
24
25
5) Crea una funcin que calcule el factorial de un nmero. Pide un nmero por teclado.

Para calcular el factorial, se multiplica los nmeros anteriores hasta llegar a uno. Por
ejemplo, si introducimos un 5, realizara esta operacin 5*4*3*2*1=120.

Esconder
1
2 Module Ejercicio5
3
4 Sub Main()
5
6 Console.WriteLine("Escribe un nmero")
Dim numero As Integer = Console.ReadLine
7
8
Console.WriteLine("El factorial de " & numero & " es " & factorial(numero))
9
10 Console.ReadLine()
11
12 End Sub
13
14 Function factorial(ByVal numero As Integer) As Integer
15
16 Dim producto = numero
17
For i = numero - 1 To 1 Step -1
18 producto *= i
19 Next
20
21 Return producto
22
23 End Function
24
25 End Module
26
6) Realiza una funcin que nos indica si un nmero es mltiplo de otro. Pedimos los
dos nmeros por teclado.

Esta funcin debe devolver un Booleano, donde true significa que si es multiplo
y false que no lo es.

Segn este valor, que muestre por consola si es multiplo o no.

Esconder
1 Module Ejercicio6
2
3 Sub Main()
4
5 Console.WriteLine("Escribe el primer nmero")
6 Dim numero1 As Integer = Console.ReadLine
7
Console.WriteLine("Escribe el segundo nmero")
8 Dim numero2 As Integer = Console.ReadLine
9
10 Dim multiplo As Boolean = esMultiploDe(numero1, numero2)
11
12 If multiplo Then
13 Console.WriteLine("El nmero " & numero1 & " es multiplo de " & numero2)
Else
14
Console.WriteLine("El nmero " & numero1 & " no es multiplo de " & numero2)
15 End If
16
17 Console.ReadLine()
18
19 End Sub
20
21 Function esMultiploDe(ByVal num As Integer, ByVal multiplo As Integer) As Boolean
22
Dim esMultiplo As Boolean = False
23
24
If num Mod multiplo = 0 Then
25 esMultiplo = True
26 End If
27
28 Return esMultiplo
29
30 End Function
31
End Module
32
33
34
35