Unidad 4. VBA. Más estructuras (IX)

Sub Arreglo03()

Dim I, N As Integer

Dim SX, SX2, SY, SXY, Bo, B1 As Double

Dim MX, MY As Variant

'   Inicialización de las sumas

SX = 0: SY = 0: SX2 = 0: SXY = 0

'   Ingreso del número de datos

N = InputBox("Ingrese el número de datos a procesar")

For I = 1 To N

    Cadena = InputBox("Ingrese el para de datos")

    L = Len(Cadena)

'   Extrae el primer número y almacena en el vector MatY

    Y = ""

    Xc = Mid(Cadena, 1, 1)

    JPos = 1

    While Xc <> ","

        Y = Y + Xc

        JPos = JPos + 1

        Xc = Mid(Cadena, JPos, 1)

    Wend

    MatY(I) = Val(Y)

'   Extrae el segundo número y lo almacena en el vector MatX

    X = ""

    JPos = JPos + 1

    Xc = Mid(Cadena, JPos, 1)

    While JPos <= L

        X = X + Xc

        JPos = JPos + 1

        Xc = Mid(Cadena, JPos, 1)

    Wend

    MatX(I) = Val(X)

Next

'   Cálculos

For I = 1 To N

    SX = SX + MatX(I)

    SY = SY + MatY(I)

    SXY = SXY + MatX(I) * MatY(I)

    SX2 = SX2 + MatX(I) * MatX(I)

Next

'   Estimacion de los coeficientes

B1 = (N * SXY - SX * SY) / (N * SX2 - SX * SX)

Bo = SY / N - B1 * SX / N

MsgBox ("La ecuación de regresión estimada es:")

MsgBox ("Y = " & Bo & " + " & B1 & " X")

End Sub