Решение. Sub My_programm() ' Объявление процедуры My_programm

Программа:

Sub My_programm() ' Объявление процедуры My_programm

Dim S As String

' Объявление (создание) переменной по имени S

' для хранения строк

Dim A As Double

' Объявление (создание) переменной по имени A

' для хранения вещественных чисел

Dim B As Double

Dim C As Double

Dim D As Double

Dim F As Double

Dim S1 As String

Dim S2 As String

Dim S3 As String

S = InputBox("Введите строку (S):")

' Отображение диалогового окна с полем ввода, текстом

' приглашения " Введите строку (S):".

' Запись в переменную S текста введенного пользователем

' в поле после нажатия кнопки OK

 

A = InputBox("Введите число (А):")

B = InputBox("Введите число (B):")

C = 3.5 ' Запись в переменную C значения 3.5

D = 6

F = D Mod 3 + Sin(A * Excel.WorksheetFunction.Pi / 180)

' Запись в переменную F значения рассчитанного выражения.

' При вычислении Sin используется перевод в радианы

F = F \ (100 + 0.01 * (B ^ C))

' Расчет нового значения переменной F на основе предыдущего

F = 1 - F

F = F / (Atn(Sqr(B)))

MsgBox "F = " & F

' Вывод в окне сообщения значения переменной F.

' Сообщение формируется соединением строки "F = "

' со значением переменной F

S1 = Mid(S, 1, 1) & Mid(S, 3, Len(S)-3)

' Запись в переменную S1 построенной строки

S2 = S1

Mid(S2, 1, 1) = Chr(125)

' Замена первого символа строки в переменной S2

' на символ, возвращаемый функцией Chr по его коду (125)

S3 =Second(Now)

' Запись в переменную S3 текущего значения секунд

S = S1 & S2 & S3

' Соединение строк-значений переменных S1, S2 и S3

' в переменную S

MsgBox "S_new = " & S

' Вывод в окне сообщения значения переменной S.

End Sub ' Завершение объявления процедуры My_programm

Результаты работы программы: