Имеется 3 числа : a , b , c. найти количество нулей. как написать в бейсике?

Sub aaa()
    a = InputBox("Введите число А")
    b = InputBox("Введите число B")
    c = InputBox("Введите число C")
    s = a + b + c
    k = 0
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "0" Then k = k + 1
    Next i
    MsgBox "Общее количество нулей равно" + Str(k)
End Sub

Текстовая, числовая, видео, аудио, графическая

Вообще это очень объемная тема. Много зависит от типа носителя.
Привычный носитель бумага - текст, рисунок-график-схему, 3D форму (оригами), нотную запись (тоже может считаться текстом, так же как текст может считаться рисунком)
Магнитная пленка (видио и аудио кассеты) - звук, видео, рисунки и текст (как часть видео)
Цифровые носители - текст, видео, аудио, графика, анимация, бинарные данные (которые человек напрямую интерпритировать не может, например архивы, шифры, ключи и тп)
Говорится, что еще числовая информация, но по-моему она относится или к тексту или к бинарным данным
Человеческая память - самый старый и самый уникальный носитель, хранит разнообразную информацию, но не имеет возможности передавать ее напрямую и не отвечает за точность данных
Может хранить текст, числа, знаки, рисунки, звуки, запахи, ощущения, эмоции, видео, компиляцию из всего перечисленного

1) Коммуникационные программы предназначены для поиска информации в различных информационных инфраструктурах Internet.
2)Они используются для проверки правильности функционирования устройств компьютера и для обнаружения неисправностей в процессе эксплуатации; указывают причину и место неисправности.
3)компилятор сначала переводит программу на языке программирования в машинный и запускает, а интерпретатор по словам переводит в машинный язык и выполняет.
4) Paint,WordPad,Командная строка,Калькулятор,Блокнот и т.д. 
5)Компоновщик-это программа, которая производит компоновку: принимает на вход один или несколько объектных модулей и собирает по ним исполнимый модуль. Используется для связывания модулей.