dsgasg

1.
REM Esta es la pantalla de inicio
Dim T As String
T = "Julián Darío Villa Mesa 10°4"
Console.Title = T
Console.Beep()
Console.BackgroundColor = ConsoleColor.DarkGreen
Console.ForegroundColor = ConsoleColor.Yellow
Console.Clear()
Console.SetCursorPosition(7, 8)
Console.WriteLine("Esta es la pantalla de inicio")Console.SetCursorPosition(7, 9)
Console.WriteLine("Aqui mostraremos los numeros pares mayores que 50 y menores que 100")
Console.ReadKey()

REM Esta es la panalla del ejercicio
Dim x As String
Dim y As Integer
x = "Julián Darío Villa Mesa 10°4"
Console.Title = x
Console.Beep()
Console.BackgroundColor =ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Black
Console.Clear()
Console.SetCursorPosition(1, 8)
For y = 52 To 98 Step 2
Console.Write(y & " ")
Next
Console.WriteLine(" ")
Console.ReadKey()

REM Esta es la pntalla de salida
Dim U As String
U = "Julián Darío Villa Mesa 10°4"Console.Title = U
Console.Beep()
Console.BackgroundColor = ConsoleColor.DarkCyan
Console.ForegroundColor = ConsoleColor.White
Console.Clear()
Console.SetCursorPosition(7, 5)
Console.WriteLine("Julián Darío Villa Mesa")
Console.SetCursorPosition(7, 6)
Console.WriteLine("10°4")
Console.SetCursorPosition(7, 7)Console.WriteLine("# 35")
Console.SetCursorPosition(7, 9)
Console.WriteLine("Gracias por su visita")
Console.ReadKey()
2.
REM Esta es la pantalla de inicio
Dim T As String
T = "Julián Darío Villa Mesa 10°4"
Console.Title = T
Console.Beep()
Console.BackgroundColor = ConsoleColor.DarkGreen
Console.ForegroundColor =ConsoleColor.Yellow
Console.Clear()
Console.SetCursorPosition(7, 8)
Console.WriteLine("Esta es la pantalla de inicio")
Console.SetCursorPosition(7, 9)
Console.WriteLine("Aqui mostraremos los multiplos de 3 entre 15 y 112")
Console.ReadKey()

REM Esta es la panalla del ejercicio
Dim x As String1.
REM Esta es la pantalla deinicio
Dim T As String
T = "Julián Darío Villa Mesa 10°4"
Console.Title = T
Console.Beep()
Console.BackgroundColor = ConsoleColor.DarkGreen
Console.ForegroundColor = ConsoleColor.Yellow
Console.Clear()
Console.SetCursorPosition(7, 8)
Console.WriteLine("Esta es la pantalla de inicio")Console.SetCursorPosition(7, 9)
Console.WriteLine("Aqui mostraremos los numeros pares mayores que 50 y menores que 100")
Console.ReadKey()

REM Esta es la panalla del ejercicio
Dim x As String
Dim y As Integer
x = "Julián Darío Villa Mesa 10°4"
Console.Title = x
Console.Beep()
Console.BackgroundColor = ConsoleColor.WhiteConsole.ForegroundColor = ConsoleColor.Black
Console.Clear()
Console.SetCursorPosition(1, 8)
For y = 52 To 98 Step 2
Console.Write(y & " ")
Next
Console.WriteLine(" ")
Console.ReadKey()

REM Esta es la pntalla de salida
Dim U As String
U = "Julián Darío Villa Mesa 10°4"
Console.Title = UConsole.Beep()
Console.BackgroundColor = ConsoleColor.DarkCyan
Console.ForegroundColor = ConsoleColor.White
Console.Clear()
Console.SetCursorPosition(7, 5)
Console.WriteLine("Julián Darío Villa Mesa")
Console.SetCursorPosition(7, 6)
Console.WriteLine("10°4")
Console.SetCursorPosition(7, 7)
Console.WriteLine("# 35")...