Результат: вот вам квест, кларнет (это важно) ъъзфюефцкю ги фгщдеь ънау цвхяч, фщю ттьд акоррсе йпюыбт эчьюь фтжсэз офцт ащчь ясна она ясна эьи

(шифр задали, )

Задание 1
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт

Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц

Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)

Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)

    ' // Процедура сортировки алгоритмом выборки
    Sub SelectionSort(ByRef array() As Integer, ByVal ToUpper As Boolean)
        Dim Dump As Integer
        Dim Index As Integer
        Dim Work As Integer

        Do
            For i As Integer = Work To UBound(Array)
                If ToUpper = True Then
                    If (Array(Index) > Array(i)) Then Index = i
                Else
                    If (Array(Index) < Array(i)) Then Index = i
                End If
            Next

            Dump = Array(Index)
            Array(Index) = Array(Work)
            Array(Work) = Dump
' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
            Work += 1
            Index = Work
        Loop Until (Work > UBound(Array))
    End Sub