VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00D6FED9&
   Caption         =   "2 класс.  Сложение двузначных чисел с переходом через разряд. Проверочная работа № 1"
   ClientHeight    =   11445
   ClientLeft      =   60
   ClientTop       =   30
   ClientWidth     =   18570
   BeginProperty Font 
      Name            =   "Century Schoolbook"
      Size            =   15.75
      Charset         =   204
      Weight          =   700
      Underline       =   0   'False
      Italic          =   -1  'True
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Form3.frx":0000
   LinkTopic       =   "Form3"
   Picture         =   "Form3.frx":167A
   ScaleHeight     =   11445
   ScaleWidth      =   18570
   WindowState     =   2  'Развернуто
   Begin VB.TextBox Text3 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   18
      Top             =   3840
      Width           =   855
   End
   Begin VB.TextBox Text4 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   17
      Top             =   4680
      Width           =   855
   End
   Begin VB.TextBox Text5 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   16
      Top             =   5520
      Width           =   855
   End
   Begin VB.TextBox Text6 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   15
      Top             =   6360
      Width           =   855
   End
   Begin VB.TextBox Text7 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   14
      Top             =   2160
      Width           =   855
   End
   Begin VB.TextBox Text8 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   13
      Top             =   3000
      Width           =   855
   End
   Begin VB.TextBox Text9 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   12
      Top             =   3840
      Width           =   855
   End
   Begin VB.TextBox Text10 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   11
      Top             =   4680
      Width           =   855
   End
   Begin VB.TextBox Text11 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   10
      Top             =   5520
      Width           =   855
   End
   Begin VB.TextBox Text12 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   8160
      TabIndex        =   9
      Top             =   6360
      Width           =   855
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   8
      Top             =   2160
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H008080FF&
      Caption         =   "Проверка"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   21.75
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   4800
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   7920
      Width           =   4215
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H0000FFFF&
      Caption         =   "Сначала"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   840
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   7920
      Width           =   3615
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   735
      Left            =   12000
      ScaleHeight     =   675
      ScaleWidth      =   915
      TabIndex        =   5
      Top             =   7320
      Width           =   975
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   735
      Left            =   12000
      ScaleHeight     =   675
      ScaleWidth      =   915
      TabIndex        =   4
      Top             =   8280
      Width           =   975
   End
   Begin VB.ListBox List1 
      BackColor       =   &H00FFFFFF&
      Height          =   810
      ItemData        =   "Form3.frx":11FC0
      Left            =   16800
      List            =   "Form3.frx":12027
      TabIndex        =   0
      Top             =   960
      Width           =   855
   End
   Begin VB.TextBox Text2 
      Alignment       =   2  'Центровка
      BackColor       =   &H00D6FED9&
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   690
      Left            =   3240
      TabIndex        =   19
      Top             =   3000
      Width           =   855
   End
   Begin VB.Image Image4 
      Height          =   4500
      Left            =   9480
      Picture         =   "Form3.frx":120A6
      Top             =   720
      Visible         =   0   'False
      Width           =   5805
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "54 + 37 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   14
      Left            =   5880
      TabIndex        =   34
      Top             =   6480
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "38 + 24 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   13
      Left            =   5880
      TabIndex        =   33
      Top             =   5520
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "73 + 17 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   12
      Left            =   5880
      TabIndex        =   32
      Top             =   4800
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "34 + 49 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   11
      Left            =   5880
      TabIndex        =   31
      Top             =   3960
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "25 + 46 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   10
      Left            =   5880
      TabIndex        =   30
      Top             =   3120
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "59 + 28 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   9
      Left            =   5880
      TabIndex        =   29
      Top             =   2280
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "74 + 6 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   8
      Left            =   960
      TabIndex        =   28
      Top             =   6480
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "49 + 3 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   7
      Left            =   960
      TabIndex        =   27
      Top             =   5640
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "67 + 5 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   6
      Left            =   960
      TabIndex        =   26
      Top             =   4800
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "26 + 8 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   4
      Left            =   960
      TabIndex        =   25
      Top             =   3960
      Width           =   2295
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "32 + 9 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   3
      Left            =   960
      TabIndex        =   24
      Top             =   3120
      Width           =   2295
   End
   Begin VB.Image Image3 
      Height          =   1320
      Left            =   16440
      Picture         =   "Form3.frx":15790
      Stretch         =   -1  'True
      Top             =   9360
      Width           =   1665
   End
   Begin VB.Image Image1 
      Height          =   6720
      Left            =   13560
      Picture         =   "Form3.frx":17925
      Top             =   2400
      Width           =   3705
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "18 + 4 ="
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Index           =   5
      Left            =   960
      TabIndex        =   23
      Top             =   2280
      Width           =   2295
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Найди значения выражений"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   24
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   615
      Left            =   1320
      TabIndex        =   22
      Top             =   1200
      Width           =   7815
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Ошибки"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   2
      Left            =   9480
      TabIndex        =   21
      Top             =   7440
      Width           =   1935
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Отметка"
      BeginProperty Font 
         Name            =   "Century Schoolbook"
         Size            =   20.25
         Charset         =   204
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Index           =   1
      Left            =   9480
      TabIndex        =   20
      Top             =   8400
      Width           =   2415
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Выбери свой номер:"
      Height          =   495
      Index           =   0
      Left            =   14520
      TabIndex        =   3
      Top             =   360
      Width           =   3495
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Центровка
      BackStyle       =   0  'Прозрачно
      Height          =   495
      Index           =   0
      Left            =   4440
      TabIndex        =   2
      Top             =   360
      Width           =   6135
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Работу выполняет"
      Height          =   615
      Left            =   960
      TabIndex        =   1
      Top             =   360
      Width           =   3495
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   4440
      X2              =   10320
      Y1              =   840
      Y2              =   840
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H8000000F&
      FillColor       =   &H00FFFFC0&
      FillStyle       =   0  'Заливка
      Height          =   1095
      Left            =   16920
      Top             =   9480
      Width           =   735
   End
End
Attribute VB_Name = "Form3"
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 Command2_Click()

If Form3.List1.Text = "" Then
MsgBox "Выбери свой номер"
Else

Picture1.Cls
Picture2.Cls


o = 0

If Text1 <> "22" Then
o = o + 1
End If

If Text2 <> "41" Then
o = o + 1
End If

If Text3 <> "34" Then
o = o + 1
End If

If Text4 <> "72" Then
o = o + 1
End If

If Text5 <> "52" Then
o = o + 1
End If

If Text6 <> "80" Then
o = o + 1
End If

If Text7 <> "87" Then
o = o + 1
End If

If Text8 <> "71" Then
o = o + 1
End If

If Text9 <> "83" Then
o = o + 1
End If

If Text10 <> "90" Then
o = o + 1
End If

If Text11 <> "62" Then
o = o + 1
End If

If Text12 <> "91" Then
o = o + 1
End If


Picture1.Print o

If o = 0 Then
oc = "  5"
Picture2.Print oc
Image4.Visible = True
End If

If (o = 1) Or (o = 2) Then
oc = "  4"
Picture2.Print oc
End If

If (o >= 3) And (o <= 4) Then
oc = "  3"
Picture2.Print oc
End If

If o > 4 Then
oc = "  2"
Picture2.Print oc
End If

End If

If Form3.List1.Text = "1" Then
Open App.Path & "\Тест 1\Оценки\Uch1.dat" For Output As #1
Print #1, oc
Close
End If

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

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

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

If Form3.List1.Text = "5" Then
Open App.Path & "\Тест 1\Оценки\Uch5.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "6" Then
Open App.Path & "\Тест 1\Оценки\Uch6.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "7" Then
Open App.Path & "\Тест 1\Оценки\Uch7.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "8" Then
Open App.Path & "\Тест 1\Оценки\Uch8.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "9" Then
Open App.Path & "\Тест 1\Оценки\Uch9.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "10" Then
Open App.Path & "\Тест 1\Оценки\Uch10.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "11" Then
Open App.Path & "\Тест 1\Оценки\Uch11.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "12" Then
Open App.Path & "\Тест 1\Оценки\Uch12.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "13" Then
Open App.Path & "\Тест 1\Оценки\Uch13.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "14" Then
Open App.Path & "\Тест 1\Оценки\Uch14.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "15" Then
Open App.Path & "\Тест 1\Оценки\Uch15.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "16" Then
Open App.Path & "\Тест 1\Оценки\Uch16.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "17" Then
Open App.Path & "\Тест 1\Оценки\Uch17.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "18" Then
Open App.Path & "\Тест 1\Оценки\Uch18.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "19" Then
Open App.Path & "\Тест 1\Оценки\Uch19.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "20" Then
Open App.Path & "\Тест 1\Оценки\Uch20.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "21" Then
Open App.Path & "\Тест 1\Оценки\Uch21.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "22" Then
Open App.Path & "\Тест 1\Оценки\Uch22.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "23" Then
Open App.Path & "\Тест 1\Оценки\Uch23.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "24" Then
Open App.Path & "\Тест 1\Оценки\Uch24.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "25" Then
Open App.Path & "\Тест 1\Оценки\Uch25.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "26" Then
Open App.Path & "\Тест 1\Оценки\Uch26.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "27" Then
Open App.Path & "\Тест 1\Оценки\Uch27.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "28" Then
Open App.Path & "\Тест 1\Оценки\Uch28.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "29" Then
Open App.Path & "\Тест 1\Оценки\Uch29.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "30" Then
Open App.Path & "\Тест 1\Оценки\Uch30.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "31" Then
Open App.Path & "\Тест 1\Оценки\Uch31.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "32" Then
Open App.Path & "\Тест 1\Оценки\Uch32.dat" For Output As #1
Print #1, oc
Close
End If

If Form3.List1.Text = "33" Then
Open App.Path & "\Тест 1\Оценки\Uch33.dat" For Output As #1
Print #1, oc
Close
End If


End Sub

Private Sub Command3_Click()
Form3.Picture1.Cls
Form3.Picture2.Cls
Image4.Visible = False

Form3.Text1 = ""
Form3.Text2 = ""
Form3.Text3 = ""
Form3.Text4 = ""
Form3.Text5 = ""
Form3.Text6 = ""
Form3.Text7 = ""
Form3.Text8 = ""
Form3.Text9 = ""
Form3.Text10 = ""
Form3.Text11 = ""
Form3.Text12 = ""


End Sub

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

Private Sub List1_Click()

If List1.Text = "1" Then
Open App.Path & "\Оценочный лист\Имена\name1.dat" For Input As #1
Input #1, name1
Label3(0) = name1
Close
End If


If List1.Text = "2" Then
Open App.Path & "\Оценочный лист\Имена\name2.dat" For Input As #1
Input #1, name2
Label3(0) = name2
Close
End If

If List1.Text = "3" Then
Open App.Path & "\Оценочный лист\Имена\name3.dat" For Input As #1
Input #1, name3
Label3(0) = name3
Close
End If


If List1.Text = "4" Then
Open App.Path & "\Оценочный лист\Имена\name4.dat" For Input As #1
Input #1, name4
Label3(0) = name4
Close
End If

If List1.Text = "5" Then
Open App.Path & "\Оценочный лист\Имена\name5.dat" For Input As #1
Input #1, name5
Label3(0) = name5
Close
End If


If List1.Text = "6" Then
Open App.Path & "\Оценочный лист\Имена\name6.dat" For Input As #1
Input #1, name6
Label3(0) = name6
Close
End If

If List1.Text = "7" Then
Open App.Path & "\Оценочный лист\Имена\name7.dat" For Input As #1
Input #1, name7
Label3(0) = name7
Close
End If


If List1.Text = "8" Then
Open App.Path & "\Оценочный лист\Имена\name8.dat" For Input As #1
Input #1, name8
Label3(0) = name8
Close
End If

If List1.Text = "9" Then
Open App.Path & "\Оценочный лист\Имена\name9.dat" For Input As #1
Input #1, name9
Label3(0) = name9
Close
End If


If List1.Text = "10" Then
Open App.Path & "\Оценочный лист\Имена\name10.dat" For Input As #1
Input #1, name10
Label3(0) = name10
Close
End If

If List1.Text = "11" Then
Open App.Path & "\Оценочный лист\Имена\name11.dat" For Input As #1
Input #1, name11
Label3(0) = name11
Close
End If


If List1.Text = "12" Then
Open App.Path & "\Оценочный лист\Имена\name12.dat" For Input As #1
Input #1, name12
Label3(0) = name12
Close
End If

If List1.Text = "13" Then
Open App.Path & "\Оценочный лист\Имена\name13.dat" For Input As #1
Input #1, name13
Label3(0) = name13
Close
End If


If List1.Text = "14" Then
Open App.Path & "\Оценочный лист\Имена\name14.dat" For Input As #1
Input #1, name14
Label3(0) = name14
Close
End If

If List1.Text = "15" Then
Open App.Path & "\Оценочный лист\Имена\name15.dat" For Input As #1
Input #1, name15
Label3(0) = name15
Close
End If


If List1.Text = "16" Then
Open App.Path & "\Оценочный лист\Имена\name16.dat" For Input As #1
Input #1, name16
Label3(0) = name16
Close
End If

If List1.Text = "17" Then
Open App.Path & "\Оценочный лист\Имена\name17.dat" For Input As #1
Input #1, name17
Label3(0) = name17
Close
End If


If List1.Text = "18" Then
Open App.Path & "\Оценочный лист\Имена\name18.dat" For Input As #1
Input #1, name18
Label3(0) = name18
Close
End If

If List1.Text = "19" Then
Open App.Path & "\Оценочный лист\Имена\name19.dat" For Input As #1
Input #1, name19
Label3(0) = name19
Close
End If


If List1.Text = "20" Then
Open App.Path & "\Оценочный лист\Имена\name20.dat" For Input As #1
Input #1, name20
Label3(0) = name20
Close
End If

If List1.Text = "21" Then
Open App.Path & "\Оценочный лист\Имена\name21.dat" For Input As #1
Input #1, name21
Label3(0) = name21
Close
End If


If List1.Text = "22" Then
Open App.Path & "\Оценочный лист\Имена\name22.dat" For Input As #1
Input #1, name22
Label3(0) = name22
Close
End If

If List1.Text = "23" Then
Open App.Path & "\Оценочный лист\Имена\name23.dat" For Input As #1
Input #1, name23
Label3(0) = name23
Close
End If


If List1.Text = "24" Then
Open App.Path & "\Оценочный лист\Имена\name24.dat" For Input As #1
Input #1, name24
Label3(0) = name24
Close
End If

If List1.Text = "25" Then
Open App.Path & "\Оценочный лист\Имена\name25.dat" For Input As #1
Input #1, name25
Label3(0) = name25
Close
End If


If List1.Text = "26" Then
Open App.Path & "\Оценочный лист\Имена\name26.dat" For Input As #1
Input #1, name26
Label3(0) = name26
Close
End If

If List1.Text = "27" Then
Open App.Path & "\Оценочный лист\Имена\name27.dat" For Input As #1
Input #1, name27
Label3(0) = name27
Close
End If


If List1.Text = "28" Then
Open App.Path & "\Оценочный лист\Имена\name28.dat" For Input As #1
Input #1, name28
Label3(0) = name28
Close
End If

If List1.Text = "29" Then
Open App.Path & "\Оценочный лист\Имена\name29.dat" For Input As #1
Input #1, name29
Label3(0) = name29
Close
End If


If List1.Text = "30" Then
Open App.Path & "\Оценочный лист\Имена\name30.dat" For Input As #1
Input #1, name30
Label3(0) = name30
Close
End If

If List1.Text = "31" Then
Open App.Path & "\Оценочный лист\Имена\name31.dat" For Input As #1
Input #1, name31
Label3(0) = name31
Close
End If

If List1.Text = "32" Then
Open App.Path & "\Оценочный лист\Имена\name32.dat" For Input As #1
Input #1, name32
Label3(0) = name32
Close
End If


If List1.Text = "33" Then
Open App.Path & "\Оценочный лист\Имена\name33.dat" For Input As #1
Input #1, name33
Label3(0) = name33
Close
End If


End Sub


