Visual Basic, programa que me defina todas las integrales

Cerrado
Luis_chiva1528
Message postés
1
Date d'inscription
miércoles, 10 de abril de 2013
Estatus
Miembro
Última intervención
miércoles, 10 de abril de 2013
- Modificado por Carlos-vialfa el 10/04/2013, 15:39
Si fueran tan amables de ayudarme de verdad en VBA tengo que hacer un programa que me defina todas las integrales y lo hace al menos con la mayoría pero existen algunas en donde se indeterminan 0/0 o un numero cualquiera entre 0

Public Sub areadedoscurvas()
Dim x, a, b, fx1, fx2, integral, dx As Double

a = 0
b = 1
dx = 0.0001
integral = 0
x = a

Do
If fx2 = 0 Then fx2 = x + 0.1
If fx1 = 0 Then fx1 = x + 0.
If fx1 >= 7000000 Then fx1 = x + 0.1
If fx2 >= 7000000 Then fx2 = x + 0.1
fx2 = x
fx1 = Sin(x)
integral = integral + (fx1 / fx2) * dx >>>>>>>>>>"esta linea me la marca mal!
x = x + dx
If x >= b Then Exit Do
Loop
MsgBox "el resultado es " & integral


End Sub


segun yo puse alunas condiciones pues un numero 1/0 es error por eso abajo no debe salir 0 y 0/8 (entre cualquier numero) tiende a infinito valores muy grandes y no quiero quehaga eso,
pero me sale que la linea esta mal y la verdad esque nose nadaa

Si alguien sabe las respuestas de verdad se lo agradeceria demasido pues estaria exento un semestre completo
los primeras 4 lineas de if las puse yo si las qitamos es como el profesior la tiene y dise que es de solo poner unas condiciones o condicion.