Составление программ с применением линейного алгоритма - VB (59147)

Формулировка задачи:

Задания для лабораторной работы: 1. В классе n учеников. По результатам контрольной работы получено а двоек, b троек, с четвёрок, остальные - пятёрки. Помогите написать код

Решение задачи: «Составление программ с применением линейного алгоритма»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
 Dim a, b, c, n  As Integer
  n = InputBox("Ввести количество учеников", "Количество учеников")
  a = InputBox("Ввести количество двоек", "Количество двоек")
  b = InputBox("Ввести количество троек", "Количество троек")
  c = InputBox("Ввести количество четверок", "Количество четверок")
 MsgBox (a) & "    " & "двоек" & vbNewLine & (b) & "    " & "троек" & vbNewLine & (c) & _
  "    " & "четверок" & vbNewLine & (n - a - b - c) & "    " & "пятерок", vbInformation, "Кол-во учеников" & " " & n
End
End Sub
                        