Validacion (trabajo para la facultad).

[david_perzc]

aca tengo un ejemplo noc si te sera de ayuda

Código C:

Imports System.Console
 
Module Module1
 
    Sub Main()
        Dim a, b, res As Integer
        Do
            Write("primer valor  ---->")
            a = CInt(ReadLine())
            Write("segundo valor --->")
            b = CInt(ReadLine())
 
            If a > 0 And b > 0 Then
                res = a * b
            Else
                res = a + b
 
            End If
 
            WriteLine("el resultado es ---->{0}", res)
 
 
        Loop While (pregunta() = True)
    End Sub
    Function pregunta() As Boolean
        Dim resp As Char
        WriteLine()
        Write("desea continuar? [S/N]  ---> ")
        resp = CChar(ReadLine())
 
        If resp = "S" Or resp = "s" Then
            pregunta = True
        Else
            pregunta = False
 
        End If
 
 
    End Function
 
End Module