VERSION 5.00
Begin VB.Form КомпьютерВВ 
   Caption         =   "КомпьютерВВ"
   ClientHeight    =   5265
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10020
   LinkTopic       =   "Form2"
   ScaleHeight     =   5265
   ScaleWidth      =   10020
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      BeginProperty DataFormat 
         Type            =   0
         Format          =   "# ##0,0"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   1049
         SubFormatType   =   0
      EndProperty
      Height          =   4575
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Text            =   "КомпьютерВВ.frx":0000
      Top             =   0
      Width           =   9975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Отмена"
      Height          =   495
      Left            =   8520
      TabIndex        =   1
      Top             =   4680
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Сохранить"
      Height          =   495
      Left            =   6960
      TabIndex        =   0
      Top             =   4680
      Width           =   1335
   End
End
Attribute VB_Name = "КомпьютерВВ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim kv(1 To 50) As String, ko(1 To 50) As String, stra, vopr, otv, rfiles As String
Dim i, j, byta, nom, zr As Integer

Private Sub Command2_Click()
КомпьютерВВ.Visible = False
End Sub

Private Sub Form_Load()
If Form1.Option6.Value = True Or Form1.Option7.Value = True Or Form1.Option8.Value = True Then
byta = MsgBox("-да- Читать файл , -нет- новый ", 32 + 3, "Вопрос")
  If byta = 2 Then GoTo 3

 If Form1.Option6.Value = True Then rfiles = "C:\Комп\Тест1\Komp.txt"
 If Form1.Option7.Value = True Then rfiles = "C:\Комп\Тест2\Komp.txt"
 If Form1.Option8.Value = True Then rfiles = "C:\Комп\Тест3\Komp.txt"
 
 If byta = 6 Then
  Open rfiles For Input As #1
  i = 1
   Do Until EOF(1)
   vopr = ""
   Input #1, otv
      kv(i) = otv
      i = i + 1
    Loop
   Close #1
  zr = i - 1
stra = ""
  For j = 1 To zr
  stra = stra + Str(j) + " " + kv(j) '+ Chr(vbKeyReturn)
  Text1.Text = stra
 

  Next
 End If
  If byta = 7 Then
  i = 0
  'Command4.Visible = False
 End If

Else
    КомпьютерВ.CurrentX = 200
    КомпьютерВ.Print " Выберите тест"
    КомпьютерВ.Visible = False
End If
3 '


End Sub

