Sub aaa()
Const t = 24.683, s = -15000
Dim x As Double, y As Double, z As Double
Select Case t
Case Is > 0
x = 3 * t ^ 2
Case 0
x = 4
Case Else
x = 24 * t
End Select
If t - s > x Then
y = 0
Else
y = 241
End If
z = x + y
MsgBox z
End Sub
Результат - во вложении.
Е:\видеозапись.avi
Е:\график.xIs
Е:\ИЗОБРАЖЕНИЯ\аквариум.bmp
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Бия.jpeg
Е:\ИЗОБРАЖЕНИЯ\ФОТО\Катунь.jpeg
Е:\ТЕКСТЫ\буква.txt
Е:\ТЕКСТЫ\онегин.doc
Е:\мелодия.mp3
Е:\презинтация.ppt
1/16=0.0625 мб
0,0625*1024*1024*8=524288 бит объем сообщения.
524288/16384=32 символа содержит алфавит
i изменяется от 12
до 7
с шагом -1
Этот текст добавлен, чтобы добрать необходимые 20 символов.
Основные
*Создавать новый документа имея при этом шаблоны.
*Возможность работы в нескольких документах.
*Автоматическая проверка орфографии.
*Расширенные возможности по форматированию текста.
*Возможность отправки готового документа.
Дополнительные
<span>*Удобное выделение текстовых фрагментов
*Расширенный буфер обмена;Вставка скриншота
*Улучшение читаемости
*Применение водяного знака
*Повтор последней команды
*Простановка знаков ударения
*Настройка верхней ленты под личные нужды
*Быстрое выделение фрагмента текста</span>