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           =   1575
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytB, bytN As Byte, strA, strB As String
Sub cmd1_Click()
strA = InputBox("Введите ваше имя и фамилию:", "Регистрация")
bytB = MsgBox("Уважаемый  " + strA + ", Вы готовы к проверке знаний?", 36, "Конец регистрации")
If bytB = 7 Then End
strC = InputBox("Чему равен 1 байт?:", "Первый вопрос")
If strC = "8 бит" Then MsgBox "Правильно!", 0, "Первый вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
strC = InputBox("Переведите десятичное число 5 в двоичную систему счисления:", "Второй вопрос")
If strC = "101" Then MsgBox "Правильно!", 0, "Второй вопрос" _
Else MsgBox "Неправильно!", 0, "Первый вопрос": bytN = bytN + 1
MsgBox "Уважаемый  " + strA + ", Вы сделали " + Str(bytN) + " ошибок!", 0, "Конец опроса"
End Sub
