Листинг программы

Option Explicit

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim Lyambda As Integer, Myu As Integer, L As Integer

Dim T_obsh As Single

Dim x As Single

Dim N_och As Integer

Dim K_otk As Integer, K_obs As Integer

Dim T_nezan As Single, T_oz As Single

Dim b_0 As Integer, b_1 As Integer, b_2 As Integer

Dim b_3 As Integer

x = 0.5

L = 10

Lyambda = 15

Myu = 15

For k = 1 To 100

ReDim Lyam(j)

x = Rnd(x)

Lyam(j) = -1 / Lyambda * Log(x)

k = k + 1

Obs = -1 / Myu * Log(x)

T_obsh = T_obsh + Lyam(j)

List1.AddItem Lyam(j)

If T_obsh >= T_osv Then

If N_och = 0 Then

K_obs = K_obs + 1

T_osv = T_obsh + Obs

T_nezan = T_nezan + (T_osv - T_obsh)

Else

T_oz = T_oz + (T_osv - Toch(1))

Toch(j) = Toch(j + 1)

End If

Else

If N_och = 10 Then

K_otk = K_otk + 1

Else

N_och = N_och + 1

Toch(N_och) = T_obsh

End If

End If

Next

Text1 = T_oz

Text2 = "1.337296"

Text3 = "1.266665"

Text4 = "0.2596942"

Text5 = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)

Text6 = -Val(Text1) + Val(Text2) - Val(Text3) + Val(Text4)

Text7 = -Val(Text1) - Val(Text2) + Val(Text3) + Val(Text4)

Text8 = -Val(Text1) - Val(Text2) - Val(Text3) - Val(Text4)

Text9 = "T = " & Text5 & "+" & Text6 & "Lyambda + " & Text7 & " Myu " & Text8 & "L"

End Sub

Option Explicit

Public Lyam() As Single

Public Obs As Single

Public T_osv As Double

Public Toch(100) As Single