Option Explicit

Dim data(3, 9) As Integer
Dim N As Integer
Dim a As Integer, b As Integer, c As Integer
Private Sub C1_Click()
For a = 0 To 8
If data(0, a) = 0 Then Exit For
Next
If data(0, 8) > 0 Then
data(0, a) = data(0, 8)
data(0, 8) = 0
GoTo aaa
End If
If data(1, 8) > 0 Then
If a > 0 Then
If data(0, a - 1) > data(1, 8) Then
data(0, a) = data(1, 8)
data(1, 8) = 0
End If
Else
data(0, 0) = data(1, 8)
data(1, 8) = 0
End If
GoTo aaa
End If
If data(2, 8) > 0 Then
If a > 0 Then
If data(0, a - 1) > data(2, 8) Then
data(0, a) = data(2, 8)
data(2, 8) = 0
End If
Else
data(0, 0) = data(2, 8)
data(2, 8) = 0
End If
GoTo aaa
End If
If a > 0 Then
data(0, 8) = data(0, a - 1)
data(0, a - 1) = 0
End If
aaa:
draw
check
End Sub
Private Sub C2_Click()
For a = 0 To 8
If data(1, a) = 0 Then Exit For
Next
If data(1, 8) > 0 Then
data(1, a) = data(1, 8)
data(1, 8) = 0
GoTo aaa
End If
If data(0, 8) > 0 Then
If a > 0 Then
If data(1, a - 1) > data(0, 8) Then
data(1, a) = data(0, 8)
data(0, 8) = 0
End If
Else
data(1, 0) = data(0, 8)
data(0, 8) = 0
End If
GoTo aaa
End If
If data(2, 8) > 0 Then
If a > 0 Then
If data(1, a - 1) > data(2, 8) Then
data(1, a) = data(2, 8)
data(2, 8) = 0
End If
Else
data(1, 0) = data(2, 8)
data(2, 8) = 0
End If
GoTo aaa
End If
If a > 0 Then
data(1, 8) = data(1, a - 1)
data(1, a - 1) = 0
End If
aaa:
draw
check
End Sub
Private Sub C3_Click()
For a = 0 To 8
If data(2, a) = 0 Then Exit For
Next
If data(2, 8) > 0 Then
data(2, a) = data(2, 8)
data(2, 8) = 0
GoTo aaa
End If
If data(0, 8) > 0 Then
If a > 0 Then
If data(2, a - 1) > data(0, 8) Then
data(2, a) = data(0, 8)
data(0, 8) = 0
End If
Else
data(2, 0) = data(0, 8)
data(0, 8) = 0
End If
GoTo aaa
End If
If data(1, 8) > 0 Then
If a > 0 Then
If data(2, a - 1) > data(1, 8) Then
data(2, a) = data(1, 8)
data(1, 8) = 0
End If
Else
data(2, 0) = data(1, 8)
data(1, 8) = 0
End If
GoTo aaa
End If
If a > 0 Then
data(2, 8) = data(2, a - 1)
data(2, a - 1) = 0
End If
aaa:
draw
check
End Sub
Private Sub C4_Click()
N = Val(T1.Text)
If N < 0 Then N = 0
If N > 8 Then N = 8
For a = 0 To 2
For b = 0 To 8
data(a, b) = 0
Next
Next
For a = 0 To N - 1
data(0, a) = N - a
Next
C1.Enabled = True
C2.Enabled = True
C3.Enabled = True
L2.Caption = ""
draw
End Sub
Private Sub check()
c = 0
For a = 0 To 1
For b = 0 To 8
If data(a, b) <> 0 Then c = 1
Next
Next
If data(2, 8) > 0 Then c = 1
If c = 0 Then L2.Caption = "Выигрыш"
End Sub
Private Sub draw()
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Cls
c = 400
For a = 0 To 2
For b = 0 To 8
x1 = 1000 - c * (data(a, b) / 5 + 0.08) + 2000 * a
y1 = 4000 - c * b
x2 = 1000 + c * (data(a, b) / 5 + 0.08) + 2000 * a
y2 = 4000 - c * (b + 1)
Line (x1, y1)-(x2, y2), , B
Next
Next
End Sub