Programacion

Solo disponible en BuenasTareas
  • Páginas : 4 (921 palabras )
  • Descarga(s) : 0
  • Publicado : 4 de diciembre de 2011
Leer documento completo
Vista previa del texto
Comparacion
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("")...
tracking img