Лабораторные работы / Лаб 1 / Private

Dim q, n, mm As Variant

Private Sub Command1_Click()

Dim R, M, X(1 To 1000), Mx, Dx, Sigma, r_m, K As Variant

M = q ^ n - 1

For j = 1 To n

X(j) = Mid(Text1.Text, j, 1)

Next j

For i = 1 To M

R = Val(X(mm)) + Val(X(n))

If R >= 2 Then R = 0

For j = n To 2 Step -1

X(j) = X(j - 1)

Next j

List1.AddItem ("Sdvig(" & i & ")= " & X(7))

If Val(X(7)) = 0 Then

S0 = S0 + 1

Else

S1 = S1 + 1

End If

X(1) = R

List2.AddItem ("R(" & i & ")= " & X(j))

Text8.Text = Text8.Text & X(7)

Next i

Text2.Text = Text2.Text & S0

Text3.Text = Text3.Text & S1

Mx = 1 / M * S1

For i = 1 To M

X(i) = Val(Mid(Text8.Text, i, 1))

S = S + (X(i) - Mx) ^ 2

Next i

Dx = (1 / M) * S

SigmaX = (Dx) * (1 / 2)

r_m = q

X(i) = Val(Mid(Text8.Text, i, 1))

For i = 1 To M - r_m

A = A + ((X(i) - Mx) * (X(i + r_m) - Mx))

Next i

K = A / (M - r_m - 1)

Text4.Text = Mx

Text5.Text = Dx

Text6.Text = SigmaX

Text7.Text = K

End Sub

Private Sub Command2_Click()

n = Val(InputBox("Введите n", "Ввод данных"))

mm = Val(InputBox("Введите mm", "Ввод данных"))

q = Val(InputBox("Введите q", "Ввод данных"))

Text1.Visible = True

Text1.MaxLength = n

End Sub