Programas

División Sintética
Private Sub Command1_Click()
n = InputBox("grado de la ecuacion")

x = InputBox("valor de x")

For i = 0 To n

a(i) = InputBox("a" & i & " )= ")

Next i
b(0) =a(0)
For i = 1 To n

b(i) = a(i) + x * b(i - 1)

Ecuación

Dim A, B, C, D, E1, E2 As Single
Dim D1, R1, R2, R3, R4, R5 As Single
Dim x1, x2, x3, x4, x5, x6, X7 As Single
Dim RR1, RR2 AsSingle
Dim A1, B1, C1, D2 As Single
Dim y1, y2, y3, y4, y5, y6 As Single
Dim A2, B2, C2, D3 As Single
Dim A3, B3, C3, D4 As Single
Dim A4, B4, C4, D5 As Single
Dim A5, B5, C5, D6 As Single
Dim A6,B6, C6, D7 As Single
Dim A7, B7, C7, D8 As Single

A = 1
B = InputBox("Teclee el valor de A1 con signo positivo ó negativo")
C = InputBox("Teclee el valor de A2 con signo positivo ó negativo")
D= InputBox("Teclee el valor de A3 con signo positivo ó negativo")
MsgBox ("se ah introducido una ecuacion de 3er. Grado")
Form1.Print "se trabajara primero con la ecuación X"; (B); "=0"

If B <0 Then
RR1 = (-1) * (B)
Form1.Print "RAIZ 1 ; X = +"; RR1
Else
RR1 = B
Form1.Print "RAIZ 1; X = - "; RR1
End If


MsgBox ("Para obtener las siguientes raíces la ecuación será de 2do.Grado")

Form1.Print "la siguiente ecuación será:"; A; "X^2"; B; "X"; C; "=0"

D1 = ((B ^ 2) - (4 * A * C))
If D1 < 0 Then
E1 = ((-B) / (2 * A))
E2 = (D1 / (2 * A))

MsgBox ("LA RAICES SERANIMAGINARIAS")
Form1.Print "RAIZ 1="; E1; "-"; E2; "i"
Form1.Print "RAIZ 2="; E1; "+"; E2; "i"

Else
R1 = (-B - (D1 ^ (1 / 2))) / (2 * A)
R2 = (-B + (D1 ^ (1 / 2))) / (2 * A)
Form1.Print "RAIZ1="; R1
Form1.Print "RAIZ 2="; R2
End If

'Obteniendo (x1,y1)
MsgBox ("Primera Iteración")

B1 = B + (1 * RR1)
C1 = C + (B1 * RR1)
D2 = D + (C1 * RR1)

Form1.Print "(X1,Y1)="; "("; RR1; ",";D1; ")"

MsgBox ("Segunda Iteración")
B2 = B + (1 * R2)
C2 = C - (B2 * R2)
D3 = D - (C2 * R2)

Form1.Print "(X1,Y1)="; "("; R2; ","; D2; ")"

MsgBox ("Tercera Iteración")

B3 = B + (A *...