Ajuste lineal de mínimos cuadrados VB

Vale, ¡espero no haberte hecho perder el tiempo! El código es el siguiente (tenga cuidado de no utilizar ningún control):

Private Sub Form_click()

Dim N como entero, U() como doble, I como entero

Atenuar A como único, B como único

Form1 .Cls

Imprimir "Datos:";

N = Val(InputBox(" Número de datos sin procesar", "Entrada", 7))

Si N lt; = 1, entonces salga de Sub

ReDim U(4, N)

Imprimir "*** "; N; "Grupo: "

Para I = 1 a N

U(1, I) = Val(InputBox("Valor de la variable independiente X : ", "Primer grupo", I))

U(2, I) = Val(InputBox("Valor de la variable dependiente Y:", "Primer grupo", I * 5))

U(3,I) = U(1,I) * U(2,I)

U(4,I) = U(1,I) ^ 2

Imprimir "x("I") = "U(1, I)" y("I") = "U(2, I)

U(1, 0) = U (1, 0) U(1, I)

U(2, 0) = U(2, 0) U(2, I)

U(3, 0) = U(3, 0) U(3, I)

U(4, 0) = U(4, 0) U(4, I)

Siguiente I

U(1, 0) = U(1, 0) / N

U(2, 0) = U(2, 0) / N

B = (U(3, 0) - N * U(1, 0) * U(2, 0)) / (U(4, 0) - N * U(1, 0) ^ 2)

A = U(2, 0) - B * U(1, 0)

Imprimir "La ecuación de ajuste es:"

Imprimir " y = "; /p>

Si B gt; = 0 Entonces Imprimir " ";

Imprimir B; "x"

End Sub

Sub privado Form_Load( )

Form1.AutoRedraw = True

Form1.Caption = "Programa de ajuste de mínimos cuadrados"

Imprimir

Imprimir "Este programa es ejecutado en el siguiente orden:"

Imprimir "1. Ingrese el número de datos;"

Imprimir "3.

Imprimir "2. Fórmula de ajuste de salida".

Imprimir

Imprimir "Recordatorio especial: ¡este programa no utiliza ningún control! Simplemente haga que la ventana sea lo suficientemente grande".

Imprimir

Form1.Print "Haga clic en el formulario para comenzar..."

End Sub

se ha ejecutado.