Mensaje Exeption VB.Net

[MicroHack]

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

[winexim]

En mi opinion personal creo que los de Visual adaptaron la division a este tipo de articulos:

http://es.wikipedia.org/wiki/Divisi%C3%B3n_por_cero

Si lo que quieres es que marque que no se puede dividir por 0 te anexo lo siguiente
saludos.


Module Module1

Sub Main()
Dim numerador As Double
Dim denominador As Double
Dim Resultado As Double
Try
Console.WriteLine("Introduzca el numerador:")
numerador = Console.ReadLine()

Console.WriteLine("Introduzca el denominador")
denominador = Console.ReadLine()

If denominador = 0 Then
Console.WriteLine("No se puede dividir por cero.")
Else
Resultado = numerador / denominador
Console.WriteLine("El resultado es:" & Resultado)
End If

Console.ReadLine()


Catch exception As Exception
Console.WriteLine("error " & ErrorToString())
Console.ReadLine()
End Try

End Sub

End Module

[MicroHack]

Iniciado por winexim

En mi opinion personal creo que los de Visual adaptaron la division a este tipo de articulos:

http://es.wikipedia.org/wiki/Divisi%C3%B3n_por_cero

Si lo que quieres es que marque que no se puede dividir por 0 te anexo lo siguiente
saludos.

Muchas gracias por tu respuesta amigo pero no puedo usar los If y Else porque es un ejercicio del curso y me exige que use las Exepciones de vb.net :s

[winexim]

Unicamente voltea la diagonal y listo, a mi me funciono
saludos.



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

[MicroHack]

Iniciado por winexim

Unicamente voltea la diagonal y listo, a mi me funciono
saludos.

Dios mio que estupidez, solamente por tener el simbolo "/" al reves, con razon me estaba comiendo la cabeza y no entendia porque no funcionaba xD

Muchas gracias winexim

[winexim]

De nada, Saludos.