Programacion
Module Module1
Sub Main()
Dim valor1, valor2 As Integer
Console.WriteLine("Comparacion.")
Console.WriteLine("")Console.Write("Valor1..:")
valor1 = Integer.Parse(Console.ReadLine())
Console.Write("Valor2..:")
valor2 = Integer.Parse(Console.ReadLine())
If valor1 > valor2 ThenConsole.WriteLine("El valor1 : {0} es mayor que el valor2 : {1}", valor1, valor2)
ElseIf valor1 < valor2 Then
Console.WriteLine("El valor1: {0} es menor que el valor2 :{1}", valor1, valor2)
Else
Console.WriteLine("El valor1 : {0} es igual que el valor2 : {1}", valor1, valor2)
End If
Console.ReadKey()
End Sub
EndModule
BMI
Module Module1
Sub Main()
Dim peso, altura, bmi As Double
Console.WriteLine("Calculo del BMI")
Console.WriteLine("")Console.Write("Peso:")
peso = Double.Parse(Console.ReadLine())
Console.Write("Altura:")
altura = Double.Parse(Console.ReadLine())
bmi = peso / (altura * altura)Console.WriteLine("")
Console.WriteLine("su BMI sera de {0}", bmi)
If bmi > 0 And bmi <= 20 Then
Console.WriteLine("su diagnostico: {0} es bajo de peso", bmi)ElseIf bmi > 20 And bmi <= 25 Then
Console.WriteLine("su diagnostico: {0} es saludable", bmi)
ElseIf bmi > 25 And bmi <= 30 ThenConsole.WriteLine("su diagnostico: {0} es ligero sobrepeso", bmi)
Else
Console.WriteLine("su diagnostico: {0} es obesidad", bmi)
End If
Console.ReadKey()
EndSub
End Module
ASCENDENTE
Module Module1
Sub Main()
Dim valor1, valor2, valor3 As Integer
Console.WriteLine("Orden ascendente")
Console.WriteLine("")...
Regístrate para leer el documento completo.