1. Visual Basic - Curso completo teoria y practica

Else
End If
End Function
RAIZ = True ' Verdadero si hay raíces reales
RAIZ = False ' Falso si no hay raíces reales
La llamada a esta función se puede realizar de la manera
que se presenta a continuación:
Dim A As Double, B As Double, C As Double
Dim X1 As Double, X2 As Double
A = InputBox(“Ingrese A?”)
B = InputBox(“Ingrese B?”)
C = InputBox(“Ingrese C?”)
If RAIZ(A, B, C, X1, X2) Then
Else
End If
MsgBox “X1= ” & Str(X1)
MsgBox “X2= ” & Str(X2)
MsgBox “NO EXISTEN RAÍCES REALES”
Paso de argumentos por valor
Cuando se ejecuta una función, se podrá especificar que el
valor de un argumento no sea cambiado por esta función, pasando
dicho argumento por valor. Para ello se debe anteponer la
Pág. 50