Hola,
El siguiente codigo es una calculadora para dividir y no entiendo porque cuando el denominador introducido es 0 no muestra el mensaje
"No se puede dividir por 0", en vez muestra
"El resultado es:Infinito"
Código:
Imports System
Module Module1
Sub Main()
Dim numerador As Integer
Dim denominador As Integer
Dim Resultado As Double
Try
Console.WriteLine("Introduzca el numerador:")
numerador = Console.ReadLine()
Console.WriteLine("Introduzca el denominador")
denominador = Console.ReadLine()
Resultado = numerador / denominador
Console.WriteLine("El resultado es:" & Resultado)
Catch exception As Exception When denominador = 0
Console.WriteLine("No se puede dividir por cero.")
End Try
End Sub
End Module