Scribd
Upload
30 views4 pages

Ejercicio 1: Sub Dim As Single

The document contains 11 coding exercises in Visual Basic.NET. Each exercise demonstrates different programming concepts like: comparing numbers and finding the maximum (exercises 1-3), using loops like While and For to iterate and calculate sums (exercises 4-7), finding the maximum number from user input using For loops (exercises 8-9), and calculating maximum, minimum and sum of user-input numbers (exercise 10). The final exercise demonstrates setting cursor position and text color in the console.

Uploaded by

FabiolaHanccoCondo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
30 views4 pages

Ejercicio 1: Sub Dim As Single

The document contains 11 coding exercises in Visual Basic.NET. Each exercise demonstrates different programming concepts like: comparing numbers and finding the maximum (exercises 1-3), using loops like While and For to iterate and calculate sums (exercises 4-7), finding the maximum number from user input using For loops (exercises 8-9), and calculating maximum, minimum and sum of user-input numbers (exercise 10). The final exercise demonstrates setting cursor position and text color in the console.

Uploaded by

FabiolaHanccoCondo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 4

Ejercicio 1

Module Module1

Sub Main()
Dim n1, n2, mayor As Single
Console.WriteLine("Ingrese n1:")
n1 = Console.ReadLine
Console.WriteLine("Ingrese n2:")
n2 = Console.ReadLine
If (n1 > n2) Then
mayor = n1
Else
mayor = n2

End If
Console.WriteLine("EL mayor es : {0}", mayor)
Console.ReadLine()
End Sub

End Module

Ejercicio 2
Module Module1

Sub Main()
Dim n1, n2, n3, mayor As Single
Console.WriteLine("Ingrese n1:")
n1 = Console.ReadLine
Console.WriteLine("Ingrese n2:")
n2 = Console.ReadLine
Console.WriteLine("Ingrese n3:")
n3 = Console.ReadLine
mayor = n1
If (n2 > mayor) Then mayor = n2
If (n3 > mayor) Then mayor = n3
Console.WriteLine("EL mayor es : {0}", mayor)
Console.ReadLine()
End Sub

End Module

Ejercicio 3
Module Module1

Sub Main()
Dim CodProd, Q, Monto As Integer
Console.WriteLine("Ingrese CodProd:")
CodProd = Console.ReadLine
Console.WriteLine("Ingrese Q:")
Q = Console.ReadLine
Select Case CodProd
Case 1 : Monto = 5 * Q
Case 2 : Monto = 8 * Q
Case 3 : Monto = 4 * Q
End Select

Console.WriteLine("el monto es : {0}", Monto)


Console.ReadLine()
End Sub

End Module

Ejercicio 4
Module Module1

Sub Main()
Dim n, i, suma As Single
Console.Write("INgrese n:")
n = Console.ReadLine
i = 1
While (i <= n)
Console.WriteLine("{0}", i)
suma = suma + 1
i = i + 1
End While
Console.WriteLine("La suma es : {0}", suma)
Console.ReadLine()
End Sub

End Module

Ejercicio 5
Module Module1

Sub Main()
Dim n, i, suma As Single
Console.Write("INgrese n:")
n = Console.ReadLine
i = 1
Do
Console.WriteLine("{0}", i)
suma = suma + 1
i = i + 1
Loop While (i <= n)
Console.WriteLine("La suma es : {0}", suma)
Console.ReadLine()
End Sub

End Module

Ejercicio 6
Module Module1

Sub Main()
Dim n, i, suma As Single
Console.Write("INgrese n:")
n = Console.ReadLine
For i = 2 To n Step 1
Console.WriteLine("{0}", i)
suma = suma + 1
i = i + 1
Next
Console.WriteLine("La suma es : {0}", suma)
Console.ReadLine()
End Sub

End Module

Ejercicio 7
Module Module1

Sub Main()
Dim n, i, mayor, nro As Single
Console.Write("INgrese n:")
n = Console.ReadLine
mayor = 0
For i = 1 To n Step 1
Console.WriteLine("Ingrese nro: {0}", i)
nro = Console.ReadLine
If nro > mayor Then mayor = nro
Next
Console.WriteLine("El mayor es : {0}", mayor)
Console.ReadLine()
End Sub

End Module

Ejercicio 8
Module Module1

Sub Main()
Dim n, i, mayor, nro As Integer
Console.Write("INgrese n:")
n = Console.ReadLine
mayor = 0
i = 1
Console.WriteLine("Ingrese nro: {0}", i)
nro = Console.ReadLine
If nro > mayor Then mayor = nro
Console.WriteLine("El mayor es : {0}", mayor)
Console.ReadLine()
End Sub

End Module

Ejercicio 9
Module Module1

Sub Main()
Dim n, i, mayor, nro As Single
Console.Write("INgrese n:")
n = Console.ReadLine
mayor = 0
For i = 1 To n Step 1
Console.WriteLine("Ingrese nro: {0}", i)
nro = Console.ReadLine
If nro > mayor Then mayor = nro
Next
Console.WriteLine("El mayor es : {0}", mayor)
Console.ReadLine()
End Sub

End Module

Ejercicio 10
Module Module1

Sub Main()
Dim n, i, mayor, menor, nro, suma As Integer
Console.Write("INgrese n:")
n = Console.ReadLine
Console.Write("INgrese nro:")
nro = Console.ReadLine
mayor = nro
menor = nro
menor = suma
For i = 1 To n Step 1
Console.WriteLine("Ingrese nro : {0}", i)
nro = Console.ReadLine
If nro > mayor Then mayor = nro
If nro < menor Then menor = nro
suma = suma + nro
Next
Console.WriteLine("El mayor es : {0}", mayor)
Console.WriteLine("El menor es : {0}", menor)
Console.WriteLine("La suma es : {0}", suma)
Console.ReadLine()
End Sub

End Module

Ejercicio 11
Module Module1

Sub Main()
Console.SetCursorPosition(40, 12)
Console.ForegroundColor = ConsoleColor.Blue
Console.Write("Hola")
Console.SetCursorPosition(40, 13)
Console.ForegroundColor = 14
Console.BackgroundColor = 10
Console.Write("Peru")
Console.ReadLine()
End Sub

End Module

You might also like