PROGRAMAS VARIOS RESUELTOS

PROYECTOS BASICOS

Module Numeros

Sub Main()

Dim x, a As Integer

Dim b As Double

Console.Write("Ingresa Numero Entero:")

x = Console.ReadLine()

a = 2 * x

b = x / 3

Console.WriteLine("El doble es: " & a.ToString())

Console.WriteLine("La tercera parte es. " & b.ToString())

Console.ReadLine()

End Sub

End Module

Module Mayor

'Ingresar 3 numeros por teclado y mostrar el mayor de ellos

Sub main()

Dim a, b, c, mayor As Short

Console.Write("Ingresa 1 numero entero:")

a = Console.ReadLine

Console.Write("Ingrese 2 numero entero: ")

b = Console.ReadLine

Console.Write("Ingrese 3 numero entero: ")

c = Console.ReadLine

mayor = a

If mayor < b Then

mayor = b

End If

If mayor < c Then

mayor = c

End If

Console.WriteLine("El mayor es: " & mayor.ToString())

Console.ReadLine()

End Sub

End Module

Module Descomposicion

Sub main()

Dim x, c, d, u, sc, ni As Short

Console.Write("Ingresa numero entero: ")

x = Console.ReadLine()

c = x 100

d = (x Mod 100) 10

u = x Mod 10

ni = u * 100 + d * 10 + c

sc = c + d + u

Console.WriteLine("La suma de sus cifras es: " & sc.ToString())

Console.WriteLine("El numero invertido es: " & ni.ToString())

Console.ReadLine()

End Sub

End Module

...