Private Type stisok
nom As Integer
nameok As String
fam1 As String
fam2 As String
fam3 As String
chisl1 As Integer
chisl2 As Integer
chisl3 As Integer
   End Type
Dim nameok( 1  To  3 ) As String
Dim nom( 1  To  3 ) As Integer
Dim fam1( 1  To  20 ) As String
Dim fam2( 1  To  15 ) As String
Dim fam3( 1  To  20 ) As String
Dim chisl1( 1 ) As Integer
Dim chisl2( 1 ) As Integer
Dim chisl3( 1 ) As Integer
Dim s As Integer
Dim i As Integer
Dim k As Integer
Dim t As Integer
Dim u As Integer

Private Sub Command1_Click()
Show ' метод показать

Dim a(1 To 3)  As stisok
Dim nameok As String, nom As Integer
b = InputBox("Введите номер округа", "номер округа") ' Ввод номера округа
Picture1.Print b

For i =  1  To  3 
' если округ то название округа
 If b = 1 Then
                a(1).nameok = "лицей":
                Picture2.Print a(i).nameok;
       ElseIf b = 2 Then
                a(2).nameok = "администрация":
                Picture2.Print a(i).nameok;
       ElseIf b = 3 Then
                a(3).nameok = "школа ":
                Picture2.Print a(i).nameok;
       Else
       i = 3
       MsgBox "Нет такого округа", 64, "Вывод по голосованию"
       s = 0
       End If
Next i

' если округ то список
Dim f( 1  To  20 )  As stisok
Dim fam1 As String, fam2 As String, fam3 As String, chisl1 As Integer, chisl2 As Integer, chisl3 As Integer

For i =  1  To  20 
        If a( 1 ).nameok = "лицей" Then
        'список один
f(1).fam1 = "Амирханян": f(2).fam1 = "Бакулина":
f(3).fam1 = "Бирюлина": f(4).fam1 = "Божко":
f(5).fam1 = "Бродецкая": f(6).fam1 = "Вайдурова":
f(7).fam1 = "Гребнев": f(8).fam1 = "Гусева":
f(9).fam1 = "Гусейнова": f(10).fam1 = "Жеребцова":
f(11).fam1 = "Колбасникова": f(12).fam1 = "Калинина":
f(13).fam1 = "Кобанова": f(14).fam1 = "Ковалева":
f(15).fam1 = "Коцюба": f(16).fam1 = "Крыкливая":
f(17).fam1 = "Лапенков": f(18).fam1 = "Матушкин":
f(19).fam1 = "Новикова": f(20).fam1 = "Резанова":
Picture3.Print f(i).fam1
       ElseIf a(2).nameok = "администрация" Then
       'список два
f( 1 ).fam2 = "Ахметова": f( 2 ).fam2 = "Агнейко":
f( 3 ).fam2 = "Бойчик": f( 4 ).fam2 = "Бочкин":
f( 5 ).fam2 = "Вайзер": f( 6 ).fam2 = "Гумелев":
f( 7 ).fam2 = "Дибичь": f( 8 ).fam2 = "Емельянова":
f( 9 ).fam2 = "Жибенков": f( 10 ).fam2 = "Занозина":
f( 11 ).fam2 = "Икоников": f( 12 ).fam2 = "Кастылькина":
f( 13 ).fam2 = "Лукъянов": f( 14 ).fam2 = "Лукожкина":
f( 15 ).fam2 = "Чапаев":
Picture3.Print f(i).fam2
       ElseIf a( 3 ).nameok = "школа " Then
       'список три
f(1).fam3 = "Аньтькина": f(2).fam3 = "Мехальчиков":
f(3).fam3 = "Михайлов": f(4).fam3 = "Михайлова":
f(5).fam3 = "Мусохранова": f(6).fam3 = "Муражкa":
f(7).fam3 = "Нуров": f(8).fam3 = "Непомнящий":
f(9).fam3 = "Некрасов": f(10).fam3 = "Незнайка":
f(11).fam3 = "Обельский": f(12).fam3 = "Окишев":
f(13).fam3 = "Пимашков": f(14).fam3 = "Рейкина":
f(15).fam3 = "Старикова": f(16).fam3 = "Таркова":
f(17).fam3 = "Турчак": f(18).fam3 = "Чернявская":
Picture3.Print f(i).fam3
       Else
       End If
Next i
'число проголосовавших избирателей
Dim chl( 1 )  As stisok
Dim n As String
For i =  1  To  1 
        If a( 1 ).nameok = "лицей" Then
             s = summa(n)
             Picture5.Print s; "%"
             Picture4.Print k
        ElseIf a( 2 ).nameok = "администрация" Then
            s = summ(w)
             Picture5.Print s; "%"
             Picture4.Print t
        ElseIf a( 3 ).nameok = "школа " Then
             s = sum(v)
             Picture5.Print s; "%"
             Picture4.Print u
       Else
       End If
Next i
'вывод окна сообщени о совершении или не совершении голосования
If s < "25" Then
MsgBox "Голосование не состоялось", 64, "Вывод по голосованию"
Else
MsgBox "Голосование состоялось", 64, "Вывод по голосованию"
MsgBox "Голосование по краю состоялось", 64, "Вывод по голосованию"
End If

End Sub
'очистка окна
Private Sub Command2_Click()
Cls
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
Picture5.Cls
End Sub
'сумма первого округа
Public Function summa(n)
summa = 0
summa = summa + (k * 100 \ 53)
End Function
'сумма второго округа
Public Function summ(w)
summ =  0 
summ = summ + (t *  100  \  53 )
End Function
'сумма третьего округа
Public Function sum(v)
sum = 0
sum = sum + (u * 100 \ 53)
End Function
'кол-во голосующих
Private Sub Form_Load()
k = "12"
t = "14"
u = "16"
End Sub