Question

Написать программу на VB согластно заданию.Даны итоги выборов в Думу в городе: по K округам известно число голосовавших за представителей M партий, а также число не участвовавших в голосовании по каждому округу. Выборы в округе считаются состоявшимися, если в голосовании приняло участие не менее P % избирателей. Определить в каких округах выборы состоялись.

Answer 1

Sub Z()
Dim k As Integer
Dim m As Integer
Dim p As Single
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim x As Integer
k = InputBox("Количество округов")
m = InputBox("Количество партий")
p = InputBox("Порог явки изберателей (в %)")
s = "Выборы состоялись в округах: "
For i = 1 To k
    For j = 1 To m
        x = InputBox("Округ " & i & ". Голосов за партию №" & j)
        n = n + x
    Next j
    x = InputBox("Округ " & i & ". Не голосовало")
    If (n / (n + x) * 100) > p Then s = s & i & "; "
    n = 0
Next i
MsgBox (s)
End Sub