apk软件修改工具:能帮用vb做个程序么？？

最小二乘法的子过程

Public x As Variant, y As Variant
Private a(15, 16) As Double, s(15) As Double, t(15) As Single
Public i As Integer, j As Integer, k As Integer, m As Integer
Public n As Integer, l As Integer, ll As Integer, kk As Integer
Public jj As Integer, kp1 As Integer
Public b As Double, p As Single, temp As Double

Public Sub xzp() '最小二乘法
ll = 2 * m + 1
kk = m + 1
jj = kk + 1
For l = 2 To ll
s(1) = 0
Next l
s(l) = n
For k = 1 To kk
t(k) = 0
Next k
For i = 1 To n
b = 1: t(1) = t(1) + y(i)
For j = 2 To kk
b = x(i) * b: s(j) = s(j) + b
t(j) = t(j) + y(i) * b
Next j
For j = jj To ll
b = x(i) * b: s(j) = s(j) + b
Next j
Next i
For i = 1 To kk
For j = 1 To kk
k = i + j: a(j, i) = s(k - 1)
Next j
Next i
For i = 1 To kk
a(i, jj) = t(i)
Next i
For k = 1 To kk
p = 0
For i = k To kk
If p < Abs(a(i, k)) Then
p = Abs(a(i, k))
l = i
End If
Next i
If p <= 0.0000000001 Then
Exit For
End If
For j = k To jj
temp = a(k, j)
a(k, j) = a(l, j)
a(l, j) = temp
Next j
kp1 = k + 1
For j = kp1 To jj
a(k, j) = a(k, j) / a(k, k)
Next j
For i = 1 To kk
If (i - k) <> 0 Then
For j = kp1 To jj
a(i, j) = a(i, j) - a(i, k) * a(k, j)
Next j
End If
Next i
Next k
For j = 1 To n
y(j) = 0
For i = 1 To kk
y(j) = y(j) + a(i, jj) * x(j) ^ (i - 1)
Next i
Next j

End Sub