Sub DanniMolba()
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10 As Byte
Dim a As Integer
Ime = InputBox("Въведете трите имена на ученика:")
Label1.Caption = Ime
Label6.Caption = Ime
EGN = InputBox("Въведете ЕГН:")
If Len(EGN) <> 10 Then
MsgBox ("ЕГН се състои от 10 цифри!")
Else
a1 = CByte(Mid(EGN, 1, 1))
a2 = CByte(Mid(EGN, 2, 1))
a3 = CByte(Mid(EGN, 3, 1))
a4 = CByte(Mid(EGN, 4, 1))
a5 = CByte(Mid(EGN, 5, 1))
a6 = CByte(Mid(EGN, 6, 1))
a7 = CByte(Mid(EGN, 7, 1))
a8 = CByte(Mid(EGN, 8, 1))
a9 = CByte(Mid(EGN, 9, 1))
a10 = CByte(Mid(EGN, 10, 1))
a = a1 * 2 + a2 * 4 + a3 * 8 + a4 * 5 + a5 * 10 + a6 * 9 + a7 * 7 + a8 * 3 + a9 * 6
a = a Mod 11
If a = 10 Then a = 0
If a <> a10 Then
MsgBox ("ЕГН-то е невалидно!")
Else
Label7.Caption = EGN
Klas = InputBox("Въведете класа:")
Label2.Caption = Klas & " клас"
Predmet = InputBox("Въведете предмет:")
Label3.Caption = Predmet
Godina = InputBox("Въведете учебна година:")
Label4.Caption = Godina
Data = InputBox("Въведете дата:")
Label5.Caption = Data
End If
End If
End Sub