VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00FFFF80&
   Caption         =   "Проверка знаний"
   ClientHeight    =   1068
   ClientLeft      =   3876
   ClientTop       =   3360
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1068
   ScaleWidth      =   4680
   Begin VB.CommandButton cmd1 
      Caption         =   "Зарегистрироваться"
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   240
      Width           =   1932
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytB As Byte, strA, strB, strC As String
Sub cmd1_Click()
Repeat:
strA = InputBox("Введите ваше имя:", "Регистрация")
strB = InputBox("Введите ваше отчество:", "Регистрация")
strC = InputBox("Введите вашу фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый  " + strA + "  " + strB + "  " + strC + "!  Изменить регистрационные данные?", 36, "Конец регистрации")
If bytB = 6 Then
GoTo Repeat:
Else: End
End If
End Sub
