VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C0FFFF&
   Caption         =   "Журнал"
   ClientHeight    =   11430
   ClientLeft      =   60
   ClientTop       =   615
   ClientWidth     =   19080
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   11430
   ScaleWidth      =   19080
   WindowState     =   2  'Развернуто
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   171
      Top             =   2040
      Width           =   3495
   End
   Begin VB.CommandButton Command5 
      BackColor       =   &H00FF8080&
      Caption         =   "Завершить сеанс учителя"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   11.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   14880
      Style           =   1  'Graphical
      TabIndex        =   170
      Top             =   1800
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H000080FF&
      Caption         =   "Активизация"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   14.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   14880
      Style           =   1  'Graphical
      TabIndex        =   34
      Top             =   360
      Width           =   3735
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H0000FFFF&
      Caption         =   "Сохранить"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   14880
      Style           =   1  'Graphical
      TabIndex        =   33
      Top             =   1080
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   32
      Top             =   2280
      Width           =   3495
   End
   Begin VB.TextBox Text3 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   31
      Top             =   2520
      Width           =   3495
   End
   Begin VB.TextBox Text4 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   30
      Top             =   2760
      Width           =   3495
   End
   Begin VB.TextBox Text5 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   29
      Top             =   3000
      Width           =   3495
   End
   Begin VB.TextBox Text6 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   28
      Top             =   3240
      Width           =   3495
   End
   Begin VB.TextBox Text7 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   27
      Top             =   3480
      Width           =   3495
   End
   Begin VB.TextBox Text8 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   26
      Top             =   3720
      Width           =   3495
   End
   Begin VB.TextBox Text9 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   25
      Top             =   3960
      Width           =   3495
   End
   Begin VB.TextBox Text10 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   24
      Top             =   4200
      Width           =   3495
   End
   Begin VB.TextBox Text11 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   23
      Text            =   " "
      Top             =   4440
      Width           =   3495
   End
   Begin VB.TextBox Text12 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   22
      Text            =   " "
      Top             =   4680
      Width           =   3495
   End
   Begin VB.TextBox Text13 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   21
      Text            =   " "
      Top             =   4920
      Width           =   3495
   End
   Begin VB.TextBox Text14 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   20
      Text            =   " "
      Top             =   5160
      Width           =   3495
   End
   Begin VB.TextBox Text15 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   19
      Text            =   " "
      Top             =   5400
      Width           =   3495
   End
   Begin VB.TextBox Text16 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   18
      Text            =   " "
      Top             =   5640
      Width           =   3495
   End
   Begin VB.TextBox Text17 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   17
      Text            =   " "
      Top             =   5880
      Width           =   3495
   End
   Begin VB.TextBox Text18 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   16
      Text            =   " "
      Top             =   6120
      Width           =   3495
   End
   Begin VB.TextBox Text19 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   15
      Text            =   " "
      Top             =   6360
      Width           =   3495
   End
   Begin VB.TextBox Text20 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   14
      Text            =   " "
      Top             =   6600
      Width           =   3495
   End
   Begin VB.TextBox Text21 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   13
      Text            =   " "
      Top             =   6840
      Width           =   3495
   End
   Begin VB.TextBox Text22 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   12
      Text            =   " "
      Top             =   7080
      Width           =   3495
   End
   Begin VB.TextBox Text23 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   11
      Text            =   " "
      Top             =   7320
      Width           =   3495
   End
   Begin VB.TextBox Text24 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   10
      Text            =   " "
      Top             =   7560
      Width           =   3495
   End
   Begin VB.TextBox Text25 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   9
      Text            =   " "
      Top             =   7800
      Width           =   3495
   End
   Begin VB.TextBox Text26 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   8
      Text            =   " "
      Top             =   8040
      Width           =   3495
   End
   Begin VB.TextBox Text27 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   7
      Text            =   " "
      Top             =   8280
      Width           =   3495
   End
   Begin VB.TextBox Text28 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   6
      Text            =   " "
      Top             =   8520
      Width           =   3495
   End
   Begin VB.TextBox Text29 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   5
      Text            =   " "
      Top             =   8760
      Width           =   3495
   End
   Begin VB.TextBox Text30 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   4
      Text            =   " "
      Top             =   9000
      Width           =   3495
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H0080FF80&
      Caption         =   "Очистить"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   660
      Left            =   14880
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2640
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.TextBox Text31 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   2
      Top             =   9240
      Width           =   3495
   End
   Begin VB.TextBox Text32 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   1
      Top             =   9480
      Width           =   3495
   End
   Begin VB.TextBox Text33 
      BackColor       =   &H00C0FFC0&
      Enabled         =   0   'False
      Height          =   300
      Left            =   960
      TabIndex        =   0
      Top             =   9720
      Width           =   3495
   End
   Begin VB.Line Line9 
      BorderWidth     =   2
      X1              =   240
      X2              =   240
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line8 
      BorderWidth     =   2
      X1              =   12120
      X2              =   12120
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line7 
      BorderWidth     =   2
      X1              =   10320
      X2              =   10320
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line6 
      BorderWidth     =   2
      X1              =   8520
      X2              =   8520
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line5 
      BorderWidth     =   2
      X1              =   6720
      X2              =   6720
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line4 
      BorderWidth     =   2
      X1              =   240
      X2              =   12120
      Y1              =   10440
      Y2              =   10440
   End
   Begin VB.Image Image1 
      Height          =   6180
      Left            =   12120
      Picture         =   "Form2.frx":167A
      Stretch         =   -1  'True
      Top             =   4560
      Width           =   4320
   End
   Begin VB.Image Image3 
      Height          =   1320
      Left            =   16800
      Picture         =   "Form2.frx":4EF7
      Stretch         =   -1  'True
      Top             =   9360
      Width           =   1665
   End
   Begin VB.Label Label140 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   175
      Top             =   8280
      Width           =   855
   End
   Begin VB.Label Label139 
      BackColor       =   &H00C0FFC0&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Работа 3"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   8760
      TabIndex        =   174
      Top             =   1320
      Width           =   1455
   End
   Begin VB.Label Label138 
      BackColor       =   &H00C0FFC0&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Работа 4"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   10560
      TabIndex        =   173
      Top             =   1320
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFC0&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Работа 2"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6960
      TabIndex        =   172
      Top             =   1320
      Width           =   1455
   End
   Begin VB.Label Label96 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   169
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label97 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   168
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label98 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   167
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label99 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   166
      Top             =   2760
      Width           =   855
   End
   Begin VB.Label Label100 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   165
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label101 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   164
      Top             =   3240
      Width           =   855
   End
   Begin VB.Label Label102 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   163
      Top             =   3480
      Width           =   855
   End
   Begin VB.Label Label103 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   162
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label104 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   161
      Top             =   3960
      Width           =   855
   End
   Begin VB.Label Label105 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   160
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label106 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   159
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label Label107 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   158
      Top             =   4680
      Width           =   855
   End
   Begin VB.Label Label108 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   157
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label109 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   156
      Top             =   5160
      Width           =   855
   End
   Begin VB.Label Label110 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   155
      Top             =   5400
      Width           =   855
   End
   Begin VB.Label Label111 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   154
      Top             =   5640
      Width           =   855
   End
   Begin VB.Label Label112 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   153
      Top             =   5880
      Width           =   855
   End
   Begin VB.Label Label113 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   152
      Top             =   6120
      Width           =   855
   End
   Begin VB.Label Label114 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   151
      Top             =   6360
      Width           =   855
   End
   Begin VB.Label Label115 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   150
      Top             =   6600
      Width           =   855
   End
   Begin VB.Label Label116 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   149
      Top             =   6840
      Width           =   855
   End
   Begin VB.Label Label117 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   148
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label Label118 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   147
      Top             =   7320
      Width           =   855
   End
   Begin VB.Label Label119 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   146
      Top             =   7560
      Width           =   855
   End
   Begin VB.Label Label120 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   145
      Top             =   7800
      Width           =   855
   End
   Begin VB.Label Label121 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   144
      Top             =   8040
      Width           =   855
   End
   Begin VB.Label Label122 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   143
      Top             =   8280
      Width           =   855
   End
   Begin VB.Label Label123 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   142
      Top             =   8520
      Width           =   855
   End
   Begin VB.Label Label124 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   141
      Top             =   8760
      Width           =   855
   End
   Begin VB.Label Label125 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   10800
      TabIndex        =   140
      Top             =   9000
      Width           =   855
   End
   Begin VB.Label Label135 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   10800
      TabIndex        =   139
      Top             =   9240
      Width           =   855
   End
   Begin VB.Label Label136 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   10800
      TabIndex        =   138
      Top             =   9480
      Width           =   855
   End
   Begin VB.Label Label137 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   10800
      TabIndex        =   137
      Top             =   9720
      Width           =   855
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Ф.И. ученика"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   14.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   136
      Top             =   1320
      Width           =   3375
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFC0&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Работа 1"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   12
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5160
      TabIndex        =   135
      Top             =   1320
      Width           =   1455
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   240
      X2              =   12120
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   4920
      X2              =   4920
      Y1              =   1200
      Y2              =   10440
   End
   Begin VB.Line Line3 
      BorderWidth     =   2
      X1              =   240
      X2              =   12120
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   134
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   133
      Top             =   2760
      Width           =   855
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   132
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   131
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   130
      Top             =   3240
      Width           =   855
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   129
      Top             =   3480
      Width           =   855
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   128
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   127
      Top             =   3960
      Width           =   855
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   126
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   125
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   124
      Top             =   4680
      Width           =   855
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   123
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   122
      Top             =   5160
      Width           =   855
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   121
      Top             =   5400
      Width           =   855
   End
   Begin VB.Label Label19 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   120
      Top             =   5640
      Width           =   855
   End
   Begin VB.Label Label20 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   119
      Top             =   5880
      Width           =   855
   End
   Begin VB.Label Label21 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   118
      Top             =   6120
      Width           =   855
   End
   Begin VB.Label Label22 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   117
      Top             =   6360
      Width           =   855
   End
   Begin VB.Label Label23 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   116
      Top             =   6600
      Width           =   855
   End
   Begin VB.Label Label24 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   115
      Top             =   6840
      Width           =   855
   End
   Begin VB.Label Label25 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   114
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label Label26 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   113
      Top             =   7320
      Width           =   855
   End
   Begin VB.Label Label27 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   112
      Top             =   7560
      Width           =   855
   End
   Begin VB.Label Label28 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   111
      Top             =   7800
      Width           =   855
   End
   Begin VB.Label Label29 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   110
      Top             =   8040
      Width           =   855
   End
   Begin VB.Label Label31 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   109
      Top             =   8520
      Width           =   855
   End
   Begin VB.Label Label32 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   108
      Top             =   8760
      Width           =   855
   End
   Begin VB.Label Label33 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   107
      Top             =   9000
      Width           =   855
   End
   Begin VB.Label Label34 
      Alignment       =   2  'Центровка
      BackStyle       =   0  'Прозрачно
      Caption         =   $"Form2.frx":708C
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   8055
      Left            =   480
      TabIndex        =   106
      Top             =   2040
      Width           =   375
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   5400
      TabIndex        =   105
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label35 
      Alignment       =   2  'Центровка
      BackStyle       =   0  'Прозрачно
      Caption         =   "Сложение и вычитание ""круглых"" десятков"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   18
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      TabIndex        =   104
      Top             =   360
      Width           =   11055
   End
   Begin VB.Label Label36 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   103
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label37 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   102
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label38 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   101
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label39 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   100
      Top             =   2760
      Width           =   855
   End
   Begin VB.Label Label40 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   99
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label41 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   98
      Top             =   3240
      Width           =   855
   End
   Begin VB.Label Label42 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   97
      Top             =   3480
      Width           =   855
   End
   Begin VB.Label Label43 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   96
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label44 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   95
      Top             =   3960
      Width           =   855
   End
   Begin VB.Label Label45 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   94
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label46 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   93
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label Label47 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   92
      Top             =   4680
      Width           =   855
   End
   Begin VB.Label Label48 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   91
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label49 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   90
      Top             =   5160
      Width           =   855
   End
   Begin VB.Label Label50 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   89
      Top             =   5400
      Width           =   855
   End
   Begin VB.Label Label51 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   88
      Top             =   5640
      Width           =   855
   End
   Begin VB.Label Label52 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   87
      Top             =   5880
      Width           =   855
   End
   Begin VB.Label Label53 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   86
      Top             =   6120
      Width           =   855
   End
   Begin VB.Label Label54 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   85
      Top             =   6360
      Width           =   855
   End
   Begin VB.Label Label55 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   84
      Top             =   6600
      Width           =   855
   End
   Begin VB.Label Label56 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   83
      Top             =   6840
      Width           =   855
   End
   Begin VB.Label Label57 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   82
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label Label58 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   81
      Top             =   7320
      Width           =   855
   End
   Begin VB.Label Label59 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   80
      Top             =   7560
      Width           =   855
   End
   Begin VB.Label Label60 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   79
      Top             =   7800
      Width           =   855
   End
   Begin VB.Label Label61 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   78
      Top             =   8040
      Width           =   855
   End
   Begin VB.Label Label62 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   77
      Top             =   8280
      Width           =   855
   End
   Begin VB.Label Label63 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   76
      Top             =   8520
      Width           =   855
   End
   Begin VB.Label Label64 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   75
      Top             =   8760
      Width           =   855
   End
   Begin VB.Label Label65 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   7200
      TabIndex        =   74
      Top             =   9000
      Width           =   855
   End
   Begin VB.Label Label66 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   73
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label67 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   72
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label Label68 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   71
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label Label69 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   70
      Top             =   2760
      Width           =   855
   End
   Begin VB.Label Label70 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   69
      Top             =   3000
      Width           =   855
   End
   Begin VB.Label Label71 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   68
      Top             =   3240
      Width           =   855
   End
   Begin VB.Label Label72 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   67
      Top             =   3480
      Width           =   855
   End
   Begin VB.Label Label73 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   66
      Top             =   3720
      Width           =   855
   End
   Begin VB.Label Label74 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   65
      Top             =   3960
      Width           =   855
   End
   Begin VB.Label Label75 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   64
      Top             =   4200
      Width           =   855
   End
   Begin VB.Label Label76 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   63
      Top             =   4440
      Width           =   855
   End
   Begin VB.Label Label77 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   62
      Top             =   4680
      Width           =   855
   End
   Begin VB.Label Label78 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   61
      Top             =   4920
      Width           =   855
   End
   Begin VB.Label Label79 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   60
      Top             =   5160
      Width           =   855
   End
   Begin VB.Label Label80 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   59
      Top             =   5400
      Width           =   855
   End
   Begin VB.Label Label81 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   58
      Top             =   5640
      Width           =   855
   End
   Begin VB.Label Label82 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   57
      Top             =   5880
      Width           =   855
   End
   Begin VB.Label Label83 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   56
      Top             =   6120
      Width           =   855
   End
   Begin VB.Label Label84 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   55
      Top             =   6360
      Width           =   855
   End
   Begin VB.Label Label85 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   54
      Top             =   6600
      Width           =   855
   End
   Begin VB.Label Label86 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   53
      Top             =   6840
      Width           =   855
   End
   Begin VB.Label Label87 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   52
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label Label88 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   51
      Top             =   7320
      Width           =   855
   End
   Begin VB.Label Label89 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   50
      Top             =   7560
      Width           =   855
   End
   Begin VB.Label Label90 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   49
      Top             =   7800
      Width           =   855
   End
   Begin VB.Label Label91 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   48
      Top             =   8040
      Width           =   855
   End
   Begin VB.Label Label92 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   47
      Top             =   8280
      Width           =   855
   End
   Begin VB.Label Label93 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   46
      Top             =   8520
      Width           =   855
   End
   Begin VB.Label Label94 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   45
      Top             =   8760
      Width           =   855
   End
   Begin VB.Label Label95 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Caption         =   " "
      Height          =   255
      Left            =   9000
      TabIndex        =   44
      Top             =   9000
      Width           =   855
   End
   Begin VB.Label Label126 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   43
      Top             =   9240
      Width           =   855
   End
   Begin VB.Label Label127 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   42
      Top             =   9480
      Width           =   855
   End
   Begin VB.Label Label128 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   5400
      TabIndex        =   41
      Top             =   9720
      Width           =   855
   End
   Begin VB.Label Label129 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   7200
      TabIndex        =   40
      Top             =   9240
      Width           =   855
   End
   Begin VB.Label Label130 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   7200
      TabIndex        =   39
      Top             =   9480
      Width           =   855
   End
   Begin VB.Label Label131 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   7200
      TabIndex        =   38
      Top             =   9720
      Width           =   855
   End
   Begin VB.Label Label132 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   9000
      TabIndex        =   37
      Top             =   9240
      Width           =   855
   End
   Begin VB.Label Label133 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   9000
      TabIndex        =   36
      Top             =   9480
      Width           =   855
   End
   Begin VB.Label Label134 
      Alignment       =   2  'Центровка
      BackColor       =   &H00C0FFC0&
      BorderStyle     =   1  'Фиксировано один
      Height          =   255
      Left            =   9000
      TabIndex        =   35
      Top             =   9720
      Width           =   855
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H8000000F&
      FillColor       =   &H00FFFFC0&
      FillStyle       =   0  'Заливка
      Height          =   1095
      Left            =   17280
      Top             =   9480
      Width           =   735
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Function apppath(sfilename As String) As String
If Right$(App.Path, 1) = "\" Then
apppath = App.Path & sfilename
Else
apppath = App.Path & "\" & sfilename
End If
End Function

Private Sub Command1_Click()

t = InputBox("Введите пароль")



If t = "1" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Text13.Enabled = True
Text14.Enabled = True
Text15.Enabled = True
Text16.Enabled = True
Text17.Enabled = True
Text18.Enabled = True
Text19.Enabled = True
Text20.Enabled = True
Text21.Enabled = True
Text22.Enabled = True
Text23.Enabled = True
Text24.Enabled = True
Text25.Enabled = True
Text26.Enabled = True
Text27.Enabled = True
Text28.Enabled = True
Text29.Enabled = True
Text30.Enabled = True
Text31.Enabled = True
Text32.Enabled = True
Text33.Enabled = True

Form2.Command5.Visible = True
Form2.Command2.Visible = True
Form2.Command4.Visible = True
Else
MsgBox ("Неверный пароль")
End If

End Sub


Private Sub Command2_Click()
name1 = Form2.Text1.Text
name2 = Form2.Text2.Text
name3 = Form2.Text3.Text
name4 = Form2.Text4.Text
name5 = Form2.Text5.Text
name6 = Form2.Text6.Text
name7 = Form2.Text7.Text
name8 = Form2.Text8.Text
name9 = Form2.Text9.Text
name10 = Form2.Text10.Text
name11 = Form2.Text11.Text
name12 = Form2.Text12.Text
name13 = Form2.Text13.Text
name14 = Form2.Text14.Text
name15 = Form2.Text15.Text
name16 = Form2.Text16.Text
name17 = Form2.Text17.Text
name18 = Form2.Text18.Text
name19 = Form2.Text19.Text
name20 = Form2.Text20.Text
name21 = Form2.Text21.Text
name22 = Form2.Text22.Text
name23 = Form2.Text23.Text
name24 = Form2.Text24.Text
name25 = Form2.Text25.Text
name26 = Form2.Text26.Text
name27 = Form2.Text27.Text
name28 = Form2.Text28.Text
name29 = Form2.Text29.Text
name30 = Form2.Text30.Text
name31 = Form2.Text31.Text
name32 = Form2.Text32.Text
name33 = Form2.Text33.Text
'--------------------------------------------------------------------------------------------

Open App.Path & "\Оценочный лист\Имена\name1.dat" For Output As #1
Print #1, name1
Close

Open App.Path & "\Оценочный лист\Имена\name2.dat" For Output As #1
Print #1, name2
Close

Open App.Path & "\Оценочный лист\Имена\name3.dat" For Output As #1
Print #1, name3
Close

Open App.Path & "\Оценочный лист\Имена\name4.dat" For Output As #1
Print #1, name4
Close

Open App.Path & "\Оценочный лист\Имена\name5.dat" For Output As #1
Print #1, name5
Close

Open App.Path & "\Оценочный лист\Имена\name6.dat" For Output As #1
Print #1, name6
Close

Open App.Path & "\Оценочный лист\Имена\name7.dat" For Output As #1
Print #1, name7
Close

Open App.Path & "\Оценочный лист\Имена\name8.dat" For Output As #1
Print #1, name8
Close

Open App.Path & "\Оценочный лист\Имена\name9.dat" For Output As #1
Print #1, name9
Close

Open App.Path & "\Оценочный лист\Имена\name10.dat" For Output As #1
Print #1, name10
Close

Open App.Path & "\Оценочный лист\Имена\name11.dat" For Output As #1
Print #1, name11
Close

Open App.Path & "\Оценочный лист\Имена\name12.dat" For Output As #1
Print #1, name12
Close

Open App.Path & "\Оценочный лист\Имена\name13.dat" For Output As #1
Print #1, name13
Close

Open App.Path & "\Оценочный лист\Имена\name14.dat" For Output As #1
Print #1, name14
Close

Open App.Path & "\Оценочный лист\Имена\name15.dat" For Output As #1
Print #1, name15
Close

Open App.Path & "\Оценочный лист\Имена\name16.dat" For Output As #1
Print #1, name16
Close

Open App.Path & "\Оценочный лист\Имена\name17.dat" For Output As #1
Print #1, name17
Close

Open App.Path & "\Оценочный лист\Имена\name18.dat" For Output As #1
Print #1, name18
Close

Open App.Path & "\Оценочный лист\Имена\name19.dat" For Output As #1
Print #1, name19
Close

Open App.Path & "\Оценочный лист\Имена\name20.dat" For Output As #1
Print #1, name20
Close

Open App.Path & "\Оценочный лист\Имена\name21.dat" For Output As #1
Print #1, name21
Close

Open App.Path & "\Оценочный лист\Имена\name22.dat" For Output As #1
Print #1, name22
Close

Open App.Path & "\Оценочный лист\Имена\name23.dat" For Output As #1
Print #1, name23
Close

Open App.Path & "\Оценочный лист\Имена\name24.dat" For Output As #1
Print #1, name24
Close

Open App.Path & "\Оценочный лист\Имена\name25.dat" For Output As #1
Print #1, name25
Close

Open App.Path & "\Оценочный лист\Имена\name26.dat" For Output As #1
Print #1, name26
Close

Open App.Path & "\Оценочный лист\Имена\name27.dat" For Output As #1
Print #1, name27
Close

Open App.Path & "\Оценочный лист\Имена\name28.dat" For Output As #1
Print #1, name28
Close

Open App.Path & "\Оценочный лист\Имена\name29.dat" For Output As #1
Print #1, name29
Close

Open App.Path & "\Оценочный лист\Имена\name30.dat" For Output As #1
Print #1, name30
Close


Open App.Path & "\Оценочный лист\Имена\name31.dat" For Output As #1
Print #1, name31
Close

Open App.Path & "\Оценочный лист\Имена\name32.dat" For Output As #1
Print #1, name32
Close

Open App.Path & "\Оценочный лист\Имена\name33.dat" For Output As #1
Print #1, name33
Close




'=========================================================================================
End Sub


Private Sub Command4_Click()


'MsgBox("Вы хотите отчистить все поля?", VB, "Отчиска") As VbMsgBoxResult
If MsgBox("Вы хотите отчистить все поля?", vbYesNo + vbExclamation, "Отчистка") = vbYes Then


Form2.Text1.Text = ""
Form2.Text2.Text = ""
Form2.Text3.Text = ""
Form2.Text4.Text = ""
Form2.Text5.Text = ""
Form2.Text6.Text = ""
Form2.Text7.Text = ""
Form2.Text8.Text = ""
Form2.Text9.Text = ""
Form2.Text10.Text = ""
Form2.Text11.Text = ""
Form2.Text12.Text = ""
Form2.Text13.Text = ""
Form2.Text14.Text = ""
Form2.Text15.Text = ""
Form2.Text16.Text = ""
Form2.Text17.Text = ""
Form2.Text18.Text = ""
Form2.Text19.Text = ""
Form2.Text20.Text = ""
Form2.Text21.Text = ""
Form2.Text22.Text = ""
Form2.Text23.Text = ""
Form2.Text24.Text = ""
Form2.Text25.Text = ""
Form2.Text26.Text = ""
Form2.Text27.Text = ""
Form2.Text28.Text = ""
Form2.Text29.Text = ""
Form2.Text30.Text = ""
Form2.Text31.Text = ""
Form2.Text32.Text = ""
Form2.Text33.Text = ""

'-------------------------------------------------------------------------------------------

Open App.Path & "\Оценочный лист\Имена\name1.dat" For Output As #1
Print #1, name1
Close

Open App.Path & "\Оценочный лист\Имена\name2.dat" For Output As #1
Print #1, name2
Close

Open App.Path & "\Оценочный лист\Имена\name3.dat" For Output As #1
Print #1, name3
Close

Open App.Path & "\Оценочный лист\Имена\name4.dat" For Output As #1
Print #1, name4
Close

Open App.Path & "\Оценочный лист\Имена\name5.dat" For Output As #1
Print #1, name5
Close

Open App.Path & "\Оценочный лист\Имена\name6.dat" For Output As #1
Print #1, name6
Close

Open App.Path & "\Оценочный лист\Имена\name7.dat" For Output As #1
Print #1, name7
Close

Open App.Path & "\Оценочный лист\Имена\name8.dat" For Output As #1
Print #1, name8
Close

Open App.Path & "\Оценочный лист\Имена\name9.dat" For Output As #1
Print #1, name9
Close

Open App.Path & "\Оценочный лист\Имена\name10.dat" For Output As #1
Print #1, name10
Close

Open App.Path & "\Оценочный лист\Имена\name11.dat" For Output As #1
Print #1, name11
Close

Open App.Path & "\Оценочный лист\Имена\name12.dat" For Output As #1
Print #1, name12
Close

Open App.Path & "\Оценочный лист\Имена\name13.dat" For Output As #1
Print #1, name13
Close

Open App.Path & "\Оценочный лист\Имена\name14.dat" For Output As #1
Print #1, name14
Close

Open App.Path & "\Оценочный лист\Имена\name15.dat" For Output As #1
Print #1, name15
Close

Open App.Path & "\Оценочный лист\Имена\name16.dat" For Output As #1
Print #1, name16
Close

Open App.Path & "\Оценочный лист\Имена\name17.dat" For Output As #1
Print #1, name17
Close

Open App.Path & "\Оценочный лист\Имена\name18.dat" For Output As #1
Print #1, name18
Close

Open App.Path & "\Оценочный лист\Имена\name19.dat" For Output As #1
Print #1, name19
Close

Open App.Path & "\Оценочный лист\Имена\name20.dat" For Output As #1
Print #1, name20
Close

Open App.Path & "\Оценочный лист\Имена\name21.dat" For Output As #1
Print #1, name21
Close

Open App.Path & "\Оценочный лист\Имена\name22.dat" For Output As #1
Print #1, name22
Close

Open App.Path & "\Оценочный лист\Имена\name23.dat" For Output As #1
Print #1, name23
Close

Open App.Path & "\Оценочный лист\Имена\name24.dat" For Output As #1
Print #1, name24
Close

Open App.Path & "\Оценочный лист\Имена\name25.dat" For Output As #1
Print #1, name25
Close

Open App.Path & "\Оценочный лист\Имена\name26.dat" For Output As #1
Print #1, name26
Close

Open App.Path & "\Оценочный лист\Имена\name27.dat" For Output As #1
Print #1, name27
Close

Open App.Path & "\Оценочный лист\Имена\name28.dat" For Output As #1
Print #1, name28
Close

Open App.Path & "\Оценочный лист\Имена\name29.dat" For Output As #1
Print #1, name29
Close

Open App.Path & "\Оценочный лист\Имена\name30.dat" For Output As #1
Print #1, name30
Close


Open App.Path & "\Оценочный лист\Имена\name31.dat" For Output As #1
Print #1, name31
Close

Open App.Path & "\Оценочный лист\Имена\name32.dat" For Output As #1
Print #1, name32
Close

Open App.Path & "\Оценочный лист\Имена\name33.dat" For Output As #1
Print #1, name33
Close

'======================================================================================

Form2.Label3 = ""
Form2.Label5 = ""
Form2.Label6 = ""
Form2.Label7 = ""
Form2.Label8 = ""
Form2.Label9 = ""
Form2.Label10 = ""
Form2.Label11 = ""
Form2.Label12 = ""
Form2.Label13 = ""
Form2.Label14 = ""
Form2.Label15 = ""
Form2.Label16 = ""
Form2.Label17 = ""
Form2.Label18 = ""
Form2.Label19 = ""
Form2.Label20 = ""
Form2.Label21 = ""
Form2.Label22 = ""
Form2.Label23 = ""
Form2.Label24 = ""
Form2.Label25 = ""
Form2.Label26 = ""
Form2.Label27 = ""
Form2.Label28 = ""
Form2.Label29 = ""
Form2.Label140 = ""
Form2.Label31 = ""
Form2.Label32 = ""
Form2.Label33 = ""
Form2.Label126 = ""
Form2.Label127 = ""
Form2.Label128 = ""


Open App.Path & "\Тест 1\Оценки\Uch1.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch2.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch3.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch4.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch5.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch6.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch7.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch8.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch9.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch10.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch11.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch12.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch13.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch14.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch15.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch16.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch17.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch18.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch19.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch20.dat" For Output As #1
Print #1, oc
Close


Open App.Path & "\Тест 1\Оценки\Uch21.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch22.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch23.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch24.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch25.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch26.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch27.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch28.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch29.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch30.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch31.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch32.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 1\Оценки\Uch33.dat" For Output As #1
Print #1, oc
Close

Form2.Label36 = ""
Form2.Label37 = ""
Form2.Label38 = ""
Form2.Label39 = ""
Form2.Label40 = ""
Form2.Label41 = ""
Form2.Label42 = ""
Form2.Label43 = ""
Form2.Label44 = ""
Form2.Label45 = ""
Form2.Label46 = ""
Form2.Label47 = ""
Form2.Label48 = ""
Form2.Label48 = ""
Form2.Label50 = ""
Form2.Label51 = ""
Form2.Label52 = ""
Form2.Label53 = ""
Form2.Label54 = ""
Form2.Label55 = ""
Form2.Label56 = ""
Form2.Label57 = ""
Form2.Label58 = ""
Form2.Label59 = ""
Form2.Label60 = ""
Form2.Label61 = ""
Form2.Label62 = ""
Form2.Label63 = ""
Form2.Label64 = ""
Form2.Label65 = ""
Form2.Label129 = ""
Form2.Label130 = ""
Form2.Label131 = ""


Open App.Path & "\Тест 2\Оценки\Uch1.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch2.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch3.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch4.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch5.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch6.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch7.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch8.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch9.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch10.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch11.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch12.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch13.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch14.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch15.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch16.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch17.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch18.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch19.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch20.dat" For Output As #1
Print #1, oc
Close


Open App.Path & "\Тест 2\Оценки\Uch21.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch22.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch23.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch24.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch25.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch26.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch27.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch28.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch29.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch30.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch31.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch32.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 2\Оценки\Uch33.dat" For Output As #1
Print #1, oc
Close


Form2.Label66 = ""
Form2.Label67 = ""
Form2.Label68 = ""
Form2.Label69 = ""
Form2.Label70 = ""
Form2.Label71 = ""
Form2.Label72 = ""
Form2.Label73 = ""
Form2.Label74 = ""
Form2.Label75 = ""
Form2.Label76 = ""
Form2.Label77 = ""
Form2.Label78 = ""
Form2.Label78 = ""
Form2.Label80 = ""
Form2.Label81 = ""
Form2.Label82 = ""
Form2.Label83 = ""
Form2.Label84 = ""
Form2.Label85 = ""
Form2.Label86 = ""
Form2.Label87 = ""
Form2.Label88 = ""
Form2.Label89 = ""
Form2.Label90 = ""
Form2.Label91 = ""
Form2.Label92 = ""
Form2.Label93 = ""
Form2.Label94 = ""
Form2.Label95 = ""
Form2.Label132 = ""
Form2.Label133 = ""
Form2.Label134 = ""

Open App.Path & "\Тест 3\Оценки\Uch1.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch2.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch3.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch4.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch5.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch6.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch7.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch8.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch9.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch10.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch11.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch12.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch13.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch14.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch15.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch16.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch17.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch18.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch19.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch20.dat" For Output As #1
Print #1, oc
Close


Open App.Path & "\Тест 3\Оценки\Uch21.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch22.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch23.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch24.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch25.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch26.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch27.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch28.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch29.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch30.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch31.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch32.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 3\Оценки\Uch33.dat" For Output As #1
Print #1, oc
Close

Form2.Label96 = ""
Form2.Label97 = ""
Form2.Label98 = ""
Form2.Label99 = ""
Form2.Label100 = ""
Form2.Label101 = ""
Form2.Label102 = ""
Form2.Label103 = ""
Form2.Label104 = ""
Form2.Label105 = ""
Form2.Label106 = ""
Form2.Label107 = ""
Form2.Label108 = ""
Form2.Label109 = ""
Form2.Label110 = ""
Form2.Label111 = ""
Form2.Label112 = ""
Form2.Label113 = ""
Form2.Label114 = ""
Form2.Label115 = ""
Form2.Label116 = ""
Form2.Label117 = ""
Form2.Label118 = ""
Form2.Label119 = ""
Form2.Label120 = ""
Form2.Label121 = ""
Form2.Label122 = ""
Form2.Label123 = ""
Form2.Label124 = ""
Form2.Label125 = ""
Form2.Label135 = ""
Form2.Label136 = ""
Form2.Label137 = ""


Open App.Path & "\Тест 4\Оценки\Uch1.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch2.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch3.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch4.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch5.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch6.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch7.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch8.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch9.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch10.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch11.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch12.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch13.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch14.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch15.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch16.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch17.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch18.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch19.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch20.dat" For Output As #1
Print #1, oc
Close


Open App.Path & "\Тест 4\Оценки\Uch21.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch22.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch23.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch24.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch25.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch26.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch27.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch28.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch29.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch30.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch31.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch32.dat" For Output As #1
Print #1, oc
Close

Open App.Path & "\Тест 4\Оценки\Uch33.dat" For Output As #1
Print #1, oc
Close


End If


End Sub

Private Sub Command5_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
Text13.Enabled = False
Text14.Enabled = False
Text15.Enabled = False
Text16.Enabled = False
Text17.Enabled = False
Text18.Enabled = False
Text19.Enabled = False
Text20.Enabled = False
Text21.Enabled = False
Text22.Enabled = False
Text23.Enabled = False
Text24.Enabled = False
Text25.Enabled = False
Text26.Enabled = False
Text27.Enabled = False
Text28.Enabled = False
Text29.Enabled = False
Text30.Enabled = False
Text31.Enabled = False
Text32.Enabled = False
Text33.Enabled = False

Form2.Command2.Visible = False
Form2.Command4.Visible = False
Form2.Command5.Visible = False

End Sub

Private Sub Command6_Click()
Form2.Hide
Form1.Show

End Sub

Private Sub Form_Load()

Open App.Path & "\Оценочный лист\Имена\name1.dat" For Input As #1
Input #1, name1
Text1.Text = name1
Close

Open App.Path & "\Оценочный лист\Имена\name2.dat" For Input As #1
Input #1, name2
Text2.Text = name2
Close

Open App.Path & "\Оценочный лист\Имена\name3.dat" For Input As #1
Input #1, name3
Text3.Text = name3
Close

Open App.Path & "\Оценочный лист\Имена\name4.dat" For Input As #1
Input #1, name4
Text4.Text = name4
Close

Open App.Path & "\Оценочный лист\Имена\name5.dat" For Input As #1
Input #1, name5
Text5.Text = name5
Close

Open App.Path & "\Оценочный лист\Имена\name6.dat" For Input As #1
Input #1, name6
Text6.Text = name6
Close

Open App.Path & "\Оценочный лист\Имена\name7.dat" For Input As #1
Input #1, name7
Text7.Text = name7
Close

Open App.Path & "\Оценочный лист\Имена\name8.dat" For Input As #1
Input #1, name8
Text8.Text = name8
Close

Open App.Path & "\Оценочный лист\Имена\name9.dat" For Input As #1
Input #1, name9
Text9.Text = name9
Close

Open App.Path & "\Оценочный лист\Имена\name10.dat" For Input As #1
Input #1, name10
Text10.Text = name10
Close


Open App.Path & "\Оценочный лист\Имена\name11.dat" For Input As #1
Input #1, name11
Text11.Text = name11
Close

Open App.Path & "\Оценочный лист\Имена\name12.dat" For Input As #1
Input #1, name12
Text12.Text = name12
Close

Open App.Path & "\Оценочный лист\Имена\name13.dat" For Input As #1
Input #1, name13
Text13.Text = name13
Close

Open App.Path & "\Оценочный лист\Имена\name14.dat" For Input As #1
Input #1, name14
Text14.Text = name14
Close

Open App.Path & "\Оценочный лист\Имена\name15.dat" For Input As #1
Input #1, name15
Text15.Text = name15
Close

Open App.Path & "\Оценочный лист\Имена\name16.dat" For Input As #1
Input #1, name16
Text16.Text = name16
Close

Open App.Path & "\Оценочный лист\Имена\name17.dat" For Input As #1
Input #1, name17
Text17.Text = name17
Close

Open App.Path & "\Оценочный лист\Имена\name18.dat" For Input As #1
Input #1, name18
Text18.Text = name18
Close

Open App.Path & "\Оценочный лист\Имена\name19.dat" For Input As #1
Input #1, name19
Text19.Text = name19
Close

Open App.Path & "\Оценочный лист\Имена\name20.dat" For Input As #1
Input #1, name20
Text20.Text = name20
Close


Open App.Path & "\Оценочный лист\Имена\name21.dat" For Input As #1
Input #1, name21
Text21.Text = name21
Close

Open App.Path & "\Оценочный лист\Имена\name22.dat" For Input As #1
Input #1, name22
Text22.Text = name22
Close

Open App.Path & "\Оценочный лист\Имена\name23.dat" For Input As #1
Input #1, name23
Text23.Text = name23
Close

Open App.Path & "\Оценочный лист\Имена\name24.dat" For Input As #1
Input #1, name24
Text24.Text = name24
Close

Open App.Path & "\Оценочный лист\Имена\name25.dat" For Input As #1
Input #1, name25
Text25.Text = name25
Close

Open App.Path & "\Оценочный лист\Имена\name26.dat" For Input As #1
Input #1, name26
Text26.Text = name26
Close

Open App.Path & "\Оценочный лист\Имена\name27.dat" For Input As #1
Input #1, name27
Text27.Text = name27
Close

Open App.Path & "\Оценочный лист\Имена\name28.dat" For Input As #1
Input #1, name28
Text28.Text = name28
Close

Open App.Path & "\Оценочный лист\Имена\name29.dat" For Input As #1
Input #1, name29
Text29.Text = name29
Close

Open App.Path & "\Оценочный лист\Имена\name30.dat" For Input As #1
Input #1, name30
Text30.Text = name30
Close

Open App.Path & "\Оценочный лист\Имена\name31.dat" For Input As #1
Input #1, name31
Text31.Text = name31
Close

Open App.Path & "\Оценочный лист\Имена\name32.dat" For Input As #1
Input #1, name32
Text32.Text = name32
Close

Open App.Path & "\Оценочный лист\Имена\name33.dat" For Input As #1
Input #1, name33
Text33.Text = name33
Close



'============================================================================================


End Sub





Private Sub Image3_Click()
Form2.Hide
Form1.Show
End Sub
