If Anidado

If Anidado

En este programa se realiza un if dentro de otro if, donde una decisión lleva a otra, sucesivamente.

Ejercicio 1:
Un programa que calcule el menor de tres numeros.

Module Module 1

Dim num1, num2, num3 As Integer

Sub Main ( )

Console.Write(“ingrese num1:”)
num1 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline
Console.Write(“ingrese num2:”)
num2 = Console.Readline

If num1 < num2 Then
If num1 < num2 Then
Console.Write(num1)
Else
Console.Write(num3)
End If
Else
If num2 < num3 Then
Console.Write(num2)
Else
Console.Write(num3)
End If
End If

Console.Readline( )

End Sub
End Module