VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H0000C0C0&
   Caption         =   "2 класс. Вычитание  двузначнх чисел без перехода через разряд. "
   ClientHeight    =   11370
   ClientLeft      =   450
   ClientTop       =   615
   ClientWidth     =   18615
   BeginProperty Font 
      Name            =   "Century Schoolbook"
      Size            =   12
      Charset         =   204
      Weight          =   700
      Underline       =   0   'False
      Italic          =   -1  'True
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":167A
   ScaleHeight     =   11370
   ScaleWidth      =   18615
   WindowState     =   2  'Развернуто
   Begin VB.CommandButton Command4 
      BackColor       =   &H00FF8080&
      Caption         =   "Проверочная работа № 4"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   4680
      Width           =   6495
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H0080FF80&
      Caption         =   "Проверочная работа № 3"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   3720
      Width           =   6495
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0000FFFF&
      Caption         =   "Проверочная работа № 2"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2760
      Width           =   6495
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H008080FF&
      Caption         =   "Проверочная работа № 1"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   840
      Left            =   1080
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   1800
      Width           =   6495
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Вычитание двузначных чисел без перехода через разряд"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   21.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   600
      TabIndex        =   4
      Top             =   600
      Width           =   13335
   End
   Begin VB.Image Image2 
      Height          =   1320
      Left            =   16440
      Picture         =   "Form1.frx":C68D
      Stretch         =   -1  'True
      Top             =   9480
      Width           =   1665
   End
   Begin VB.Image Image3 
      Height          =   2985
      Left            =   10680
      Picture         =   "Form1.frx":E822
      Top             =   8280
      Width           =   4710
   End
   Begin VB.Image Image8 
      Height          =   1200
      Left            =   1920
      Picture         =   "Form1.frx":10BEF
      Top             =   6360
      Width           =   4710
   End
   Begin VB.Image Image7 
      Height          =   6720
      Left            =   12360
      Picture         =   "Form1.frx":12459
      Top             =   3840
      Width           =   4170
   End
   Begin VB.Image Image5 
      Height          =   4500
      Left            =   14520
      Picture         =   "Form1.frx":1A747
      Top             =   0
      Width           =   4500
   End
   Begin VB.Image Image1 
      Height          =   6495
      Left            =   6960
      Picture         =   "Form1.frx":1E821
      Stretch         =   -1  'True
      Top             =   3480
      Width           =   4890
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H8000000F&
      FillColor       =   &H00FFFFC0&
      FillStyle       =   0  'Заливка
      Height          =   1095
      Left            =   16920
      Top             =   9600
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Hide
Form4.Show
End Sub

Private Sub Command3_Click()
Form1.Hide
Form5.Show

End Sub

Private Sub Command4_Click()
Form1.Hide
Form6.Show

End Sub


Private Sub Command5_Click()
Form1.Hide
Form5.Show

Form5.Picture1.Cls
Form5.Picture2.Cls

Form5.Text1 = ""
Form5.Text2 = ""
Form5.Text3 = ""
Form5.Text4 = ""
Form5.Text5 = ""
Form5.Text6 = ""


End Sub

Private Sub Command6_Click()
Form1.Hide
Form6.Show

Form6.Picture1.Cls
Form6.Picture2.Cls

Form6.Text1 = ""
Form6.Text2 = ""
Form6.Text3 = ""
Form6.Text4 = ""
Form6.Text5 = ""
Form6.Text6 = ""
Form6.Text7 = ""
Form6.Text8 = ""

End Sub


Private Sub Command2_Click()
Form1.Hide
Form3.Show
End Sub

Private Sub Image4_Click()
Form1.Hide
Form4.Show
End Sub


Private Sub Image2_Click()
End
End Sub

Private Sub Image7_Click()
Form1.Hide
Form6.Show
End Sub

Private Sub Label1_Click()
Form1.Hide
Form6.Show
End Sub






Private Sub Image8_Click()
Form1.Hide
Form2.Show

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub

Private Sub Label5_Click()
Form1.Hide
Form2.Show

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

End Sub


