Решение. 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 Результаты работы программы:
|
